re PR libfortran/32611 (Print sign of negative zero)

2007-07-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/32611
	* gfortran.dg/large_real_kind_1.f90: Update test.
	* gfortran.dg/pr17706.f90: Update test.
	* gfortran.dg/fmt_zero_digits.f90: Update test.
	* gfortran.dg/fmt_zero_precision.f90: Update test.
	* gfortran.dg/real_const_3.f90: Update test.

From-SVN: r126656

gcc/testsuite/ChangeLog

+2007-07-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libfortran/32611
+	* gfortran.dg/large_real_kind_1.f90: Update test.
+	* gfortran.dg/pr17706.f90: Update test.
+	* gfortran.dg/fmt_zero_digits.f90: Update test.
+	* gfortran.dg/fmt_zero_precision.f90: Update test.
+	* gfortran.dg/real_const_3.f90: Update test.
+
 2007-07-15  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
 	PR fortran/32036

gcc/testsuite/gfortran.dg/fmt_zero_digits.f90

@@ -6,5 +6,7 @@ program test
   50 FORMAT (d20.0)
   astr = ""
   write(astr,50) -8.0D0
+  if (astr.ne."             -0.D+01") call abort()
+  write(astr,50) 8.0D0
   if (astr.ne."              0.D+01") call abort()
 end program test

gcc/testsuite/gfortran.dg/fmt_zero_precision.f90

@@ -53,7 +53,7 @@
 ! { dg-output "-1\\.<(\n|\r\n|\r)" }
 ! { dg-output "-1\\.<(\n|\r\n|\r)" }
 ! { dg-output "-1\\.<(\n|\r\n|\r)" }
-! { dg-output " 0\\.<(\n|\r\n|\r)" }
+! { dg-output "-0\\.<(\n|\r\n|\r)" }
 ! { dg-output "     38\\.<(\n|\r\n|\r)" }
 ! { dg-output "  10345\\.<(\n|\r\n|\r)" }
 ! { dg-output "    334\\.<(\n|\r\n|\r)" }

gcc/testsuite/gfortran.dg/large_real_kind_1.f90

@@ -67,7 +67,7 @@ program test
 
   x = tiny(x)
   call outputstring (x,'(F20.15)','   0.000000000000000')
-  call outputstring (-x,'(F20.15)','   0.000000000000000')
+  call outputstring (-x,'(F20.15)','  -0.000000000000000')
 
   write (c1,'(G20.10E5)') x
   write (c2,'(G20.10E5)') -x

gcc/testsuite/gfortran.dg/pr17706.f90

 ! { dg-do run }
+! { dg-options "-fno-sign-zero" }
 ! PR17706
 ! this is a libgfortran test
 ! output value -0.00 is not standard compliant

gcc/testsuite/gfortran.dg/real_const_3.f90

@@ -38,4 +38,4 @@ end program main
 !{ dg-output " \\(           NaN,           NaN\\)(\n|\r\n|\r)" }
 !{ dg-output " \\(           NaN,           NaN\\)(\n|\r\n|\r)" }
 !{ dg-output " \\(     \\+Infinity,     -Infinity\\)(\n|\r\n|\r)" }
-!{ dg-output " \\(  0.000000    ,  0.000000    \\)(\n|\r\n|\r)" }
+!{ dg-output " \\(  0.000000    , -0.000000    \\)(\n|\r\n|\r)" }