1! { dg-do run } 2program 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 12end program foo 13