gcc/testsuite/gfortran.dg/exponent_2.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fdefault-integer-8" }
   3 ! PR fortran/32942
   4 ! Testcase contributed by Dominique d'Humieres <dominiq@lps.ens.fr>.
   5 integer i
   6 real x
   7 x = 3.0
   8 if (2 /= exponent(x)) call abort
   9 i = exponent (x)
  10 if (i /= 2) call abort
  11 end