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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 97e8836..ae67bd0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,12 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 b/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90
index 64f4d72..adb3071 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90
+++ b/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

diff --git a/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90 b/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
index 62e5238..459bca4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_zero_precision.f90
+++ b/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)" }

diff --git a/gcc/testsuite/gfortran.dg/large_real_kind_1.f90 b/gcc/testsuite/gfortran.dg/large_real_kind_1.f90
index 84de672..5c741ad 100644 (file)
--- a/gcc/testsuite/gfortran.dg/large_real_kind_1.f90
+++ b/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

diff --git a/gcc/testsuite/gfortran.dg/pr17706.f90 b/gcc/testsuite/gfortran.dg/pr17706.f90
index f678736..5ddda3d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr17706.f90
+++ b/gcc/testsuite/gfortran.dg/pr17706.f90
@@ -1,4 +1,5 @@
 ! { dg-do run }
+! { dg-options "-fno-sign-zero" }
 ! PR17706
 ! this is a libgfortran test
 ! output value -0.00 is not standard compliant

diff --git a/gcc/testsuite/gfortran.dg/real_const_3.f90 b/gcc/testsuite/gfortran.dg/real_const_3.f90
index 379ecb4..533b4af 100644 (file)
--- a/gcc/testsuite/gfortran.dg/real_const_3.f90
+++ b/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)" }