gcc/testsuite/gfortran.dg/pr92629.f90


1
2
3
4
5
6
7
8
9
10
11

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