gcc/testsuite/gfortran.dg/real_const_3.f90

   1 !{ dg-do 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(\n|\r\n|\r)" }
  30 !{ dg-output "   0.000000    (\n|\r\n|\r)" }
  31 !{ dg-output "      -Infinity(\n|\r\n|\r)" }
  32 !{ dg-output "            NaN(\n|\r\n|\r)" }
  33 !{ dg-output "            NaN(\n|\r\n|\r)" }
  34 !{ dg-output "      -Infinity(\n|\r\n|\r)" }
  35 !{ dg-output "      -Infinity(\n|\r\n|\r)" }
  36 !{ dg-output "      \\+Infinity(\n|\r\n|\r)" }
  37 !{ dg-output "            NaN(\n|\r\n|\r)" }
  38 !{ dg-output " \\(           NaN,           NaN\\)(\n|\r\n|\r)" }
  39 !{ dg-output " \\(           NaN,           NaN\\)(\n|\r\n|\r)" }
  40 !{ dg-output " \\(     \\+Infinity,     -Infinity\\)(\n|\r\n|\r)" }
  41 !{ dg-output " \\(  0.000000    , -0.000000    \\)(\n|\r\n|\r)" }