gcc/testsuite/gfortran.dg/boz_dshift_2.f90

   1 ! { dg-do run }
   2 program foo
   3    integer k, n
   4    k = dshiftl(z'1234',42,1)
   5    n = dshiftr(z'1234',42,1)
   6    if (k /= 9320) stop 1
   7    if (n /= 21) stop 2
   8    k = dshiftl(42,b'01010101', 1)
   9    n = dshiftr(22,o'12345', 1)
  10    if (k /= 84) stop 1
  11    if (n /= 2674) stop 2
  12 end program foo