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