Plugins: Add label-text.h to CPPLIB_H so it will be installed [PR115288]

[official-gcc.git] / gcc / testsuite / gfortran.dg / boz_dshift_2.f90

! { dg-do run }
program foo
   integer k, n
   k = dshiftl(z'1234',42,1)
   n = dshiftr(z'1234',42,1)
   if (k /= 9320) stop 1
   if (n /= 21) stop 2
   k = dshiftl(42,b'01010101', 1)
   n = dshiftr(22,o'12345', 1)
   if (k /= 84) stop 1
   if (n /= 2674) stop 2
end program foo