blob: 46891e3c649aefd130ebdbe053e2f879d9950fe7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do run }
program foo
integer :: k = 4242
if (bge(z'1234', z'5678') .neqv. .false.) stop 1
if (bgt(z'1234', z'5678') .neqv. .false.) stop 2
if (ble(z'1234', z'5678') .eqv. .false.) stop 3
if (blt(z'1234', z'5678') .eqv. .false.) stop 4
if (bge(z'1234', k) .eqv. .false.) stop 5
if (bgt(z'1234', k) .eqv. .false.) stop 6
if (ble(z'1234', k) .neqv. .false.) stop 7
if (blt(z'1234', k) .neqv. .false.) stop 8
if (bge(k, z'5678') .neqv. .false.) stop 9
if (bgt(k, z'5678') .neqv. .false.) stop 10
if (ble(k, z'5678') .eqv. .false.) stop 11
if (blt(k, z'5678') .eqv. .false.) stop 12
end program foo
|