diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-02-27 20:47:12 +0100 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-02-27 20:47:12 +0100 |
| commit | d8f92af2cf130270d367242c9e1ac34004e6c3bb (patch) | |
| tree | c393eca17eb4709f5673d05271affeed243cf7f3 /libgfortran | |
| parent | 6e09312586c862bcb4ab336e20c835ad54d4b607 (diff) | |
| download | gcc-d8f92af2cf130270d367242c9e1ac34004e6c3bb.zip gcc-d8f92af2cf130270d367242c9e1ac34004e6c3bb.tar.gz gcc-d8f92af2cf130270d367242c9e1ac34004e6c3bb.tar.bz2 | |
re PR libfortran/20101 (zero prints incorrectly with 1pe12.4)
libgfortran/
2005-02-27 Fran��ois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/20101
* write.c (output_float): Adding special check for value 0.0 in
PE format.
gcc/testsuite/
2005-02-27 Fran��ois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/20101
* gfortran.dg/write_0_pe_format.f90: New test.
From-SVN: r95628
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index c7b5821..052664c 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-02-27 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR libfortran/20101 + * write.c (output_float): Added special check for value 0.0 in + PE format. + 2004-02-27 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> * io/write.c (output_float): Fix typo in condition. diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index d4ee605..9b71cc5 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -375,7 +375,8 @@ output_float (fnode *f, double value, int len) case FMT_E: case FMT_D: i = g.scale_factor; - e -= i; + if (value != 0.0) + e -= i; if (i < 0) { nbefore = 0; |