diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-15 16:35:07 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-15 16:35:07 +0000 |
| commit | b220e3f9c9fb24054b9647abb173b6f0fb8df5b4 (patch) | |
| tree | 5495e5224892673af261ea425585823899cc8db2 | |
| parent | 68d2e027fa110ac1561547716f64cdb9273ecbfb (diff) | |
| download | gcc-b220e3f9c9fb24054b9647abb173b6f0fb8df5b4.zip gcc-b220e3f9c9fb24054b9647abb173b6f0fb8df5b4.tar.gz gcc-b220e3f9c9fb24054b9647abb173b6f0fb8df5b4.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_zero_precision.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/large_real_kind_1.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr17706.f90 | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/real_const_3.f90 | 2 |
6 files changed, 15 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 97e8836..ae67bd0 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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)" } |