gcc/testsuite/gfortran.dg/real_const_3.f90

   1 !{ dg-run }
   2 !{ dg-options "-fno-range-check" }
   3 ! PR19310 and PR19904, allow disabling range check during compile.
   4 ! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   5 program main
   6   real, parameter :: zero=0, nan=0/zero
   7   complex :: z = (-0.1,-2.2)/(0.0,0.0)
   8   complex :: z2 = (0.1,1)/0
   9   complex :: z3 = (1e300, -2e-200)/1234e-325
  10   complex :: z4 = (1e-300, -2e-200)/1234e325
  11   real :: a
  12   a = exp(1000.0)
  13   b = 1/exp(1000.0)
  14   print *, a
  15   print *, b
  16   print *, -1.0/b
  17   print *, b/0.0
  18   print *, 0.0/0.0
  19   print *, 1.0/-0.0
  20   print *, -2.0/0.0
  21   print *, 3.0/0.0
  22   print *, nan
  23   print *, z
  24   print *, z2
  25   print *, z3
  26   print *, z4
  27
  28 end program main
  29 !{dg-output "      +Infinity"
  30 !{dg-output "   0.000000"
  31 !{dg-output "      -Infinity"
  32 !{dg-output "            NaN"
  33 !{dg-output "            NaN"
  34 !{dg-output "      -Infinity"
  35 !{dg-output "      -Infinity"
  36 !{dg-output "      +Infinity"
  37 !{dg-output "            NaN"
  38 !{dg-output " (           NaN,           NaN)"
  39 !{dg-output " (           NaN,           NaN)"
  40 !{dg-output " (     +Infinity,     -Infinity)"
  41 !{dg-output " (  0.000000    ,  0.000000    )"