diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-27 19:47:12 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-27 19:47:12 +0000 |
| commit | 1a579c52699a788ee3f118530f9721161ef33e35 (patch) | |
| tree | c393eca17eb4709f5673d05271affeed243cf7f3 /libgfortran/io | |
| parent | 29a138d712f68ad8f118a0c7e16b54ddf7d10378 (diff) | |
| download | gcc-1a579c52699a788ee3f118530f9721161ef33e35.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95628 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/write.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index d4ee605de29..9b71cc5a7f4 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; |