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