gcc/testsuite/gfortran.dg/pr92629.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fno-range-check" }
   3 !
   4 ! Test the fix for PR92629.
   5 program bge_tests
   6   if (bge (huge (1_1), 128_1)) stop 1
   7   if (bge (    128_1 , 255_1)) stop 2
   8   if (bge (huge (1_2), 32768_2)) stop 3
   9   if (bge (huge (1_4), 2147483648_4)) stop 4
  10   if (bge (huge (1_8), 9223372036854775808_8)) stop 5
  11 end program