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