re PR fortran/19310 ([4.1 Only] unnecessary error for overflowing results)

2006-06-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/19310
	PR fortran/19904
	* gfortran.dg/real_const_3.f90: New test.

From-SVN: r114753

gcc/testsuite/ChangeLog

+2006-06-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/19310
+	PR fortran/19904
+	* gfortran.dg/real_const_3.f90: New test.
+
 2006-06-16  Mark Mitchell  <mark@codesourcery.com>
 
 	PR c++/28016

gcc/testsuite/gfortran.dg/real_const_3.f90

+!{ dg-run }
+!{ dg-options "-fno-range-check" }
+! PR19310 and PR19904, allow disabling range check during compile.
+! Contributed by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+program main
+  real, parameter :: zero=0, nan=0/zero
+  complex :: z = (-0.1,-2.2)/(0.0,0.0)
+  complex :: z2 = (0.1,1)/0
+  complex :: z3 = (1e300, -2e-200)/1234e-325
+  complex :: z4 = (1e-300, -2e-200)/1234e325
+  real :: a
+  a = exp(1000.0)
+  b = 1/exp(1000.0)
+  print *, a
+  print *, b
+  print *, -1.0/b
+  print *, b/0.0
+  print *, 0.0/0.0
+  print *, 1.0/-0.0
+  print *, -2.0/0.0
+  print *, 3.0/0.0
+  print *, nan
+  print *, z
+  print *, z2
+  print *, z3
+  print *, z4
+
+end program main
+!{dg-output "      +Infinity"
+!{dg-output "   0.000000"
+!{dg-output "      -Infinity"
+!{dg-output "            NaN"
+!{dg-output "            NaN"
+!{dg-output "      -Infinity"
+!{dg-output "      -Infinity"
+!{dg-output "      +Infinity"
+!{dg-output "            NaN"
+!{dg-output " (           NaN,           NaN)"
+!{dg-output " (           NaN,           NaN)"
+!{dg-output " (     +Infinity,     -Infinity)"
+!{dg-output " (  0.000000    ,  0.000000    )"