! { 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