PR fortran/30964

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / lrshift_1.c

/* Left and right shift C routines, to compare to Fortran results.  */
int c_lshift_ (int *x, int *y) { return (*x) << (*y); }
int c_rshift_ (int *x, int *y) { return (*x) >> (*y); }