blob: c2fbd1b2eb94593e021ac13d8e83e029cc2fe38d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { 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
|
