gcc/testsuite/gfortran.dg/no_range_check_1.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fno-range-check -O0" }
   3 !
   4 ! This testcase arose from PR 31262
   5   integer :: a
   6   integer(kind=8) :: b
   7   a = -3
   8   b = -huge(b) / 7
   9   a = a ** 73
  10   b = 7894_8 * b - 78941_8
  11   if ((-3)**73 /= a) STOP 1
  12   if (7894_8 * (-huge(b) / 7) - 78941_8 /= b) STOP 2
  13
  14   a = 1234789786453123
  15   if (a - 1234789786453123 /= a - (-426244989)) STOP 3
  16   end