diff options
| author | Paul Brook <pbrook@gcc.gnu.org> | 2004-10-04 15:33:18 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-10-04 15:33:18 +0000 |
| commit | 06e4f02a16465f976c9f1a179fd2c60fb76e9659 (patch) | |
| tree | 4114a0c97da613eea429829446e76db65fd5d026 /gcc | |
| parent | f3e41701124d2c5a838c28b99bbc4d8fd69e381e (diff) | |
| download | gcc-06e4f02a16465f976c9f1a179fd2c60fb76e9659.zip gcc-06e4f02a16465f976c9f1a179fd2c60fb76e9659.tar.gz gcc-06e4f02a16465f976c9f1a179fd2c60fb76e9659.tar.bz2 | |
re PR libfortran/17706 (reading a value of 0.0 gives a value of -0.0)
2004-10-04 Paul Brook <paul@codesourcery.com>
Bud Davis <bdavis9659@comcast.net>
PR fortran/17706
PR fortran/16434
* io/format.c (parse_format_list): Set repeat count for S, SP, SS,
BN and BZ formats.
* io/write.c (output_float): Don't output minus zero.
libgfortran/
* gfortran/pr17706.f90: New test.
* gfortran.dg/g77/f77-edit-s-out.f: Remove xfail.
Actually apply the patch this time.
From-SVN: r88513
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f b/gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f index b5205a8..89a8df2 100644 --- a/gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f +++ b/gcc/testsuite/gfortran.dg/g77/f77-edit-s-out.f @@ -16,5 +16,5 @@ C ( dg-output "^" } write(*,40) 0 ! { dg-output " \\+0(\n|\r\n|\r)" } C 15.5.9 - Note 5: When SP editing is in effect, the plus sign is not optional write(*,50) 11 ! { dg-output "\\*\\*(\n|\r\n|\r)" } -C { dg-output "\$" {xfail *-*-*} } gfortran PR 16434 +C { dg-output "\$" } end |