From 1a579c52699a788ee3f118530f9721161ef33e35 Mon Sep 17 00:00:00 2001 From: tobi Date: Sun, 27 Feb 2005 19:47:12 +0000 Subject: =?UTF-8?q?libgfortran/=202005-02-27=20=20Fran=EF=BF=BD=EF=BF=BDoi?= =?UTF-8?q?s-Xavier=20Coudert=20=20?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 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 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/write.c | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) (limited to 'libgfortran') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index c7b5821e890..052664c1068 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2005-02-27 Francois-Xavier Coudert + + PR libfortran/20101 + * write.c (output_float): Added special check for value 0.0 in + PE format. + 2004-02-27 Tobias Schl"uter * io/write.c (output_float): Fix typo in condition. 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; -- cgit v1.2.1