2014-07-12 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / lrshift_1.c
blob8b451107b01022f476f0b385affbaf7218470a98
1 /* Left and right shift C routines, to compare to Fortran results. */
2 int c_lshift_ (int *x, int *y) { return (*x) << (*y); }
3 int c_rshift_ (int *x, int *y) { return (*x) >> (*y); }