diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-10-18 05:23:47 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-10-18 05:23:47 +0000 |
| commit | b9f0f963eadefadb654446f7a25caf84967ffa86 (patch) | |
| tree | 3fab2cf7aa5d235cfc6921adc37e53d6f6c3d5fa /libgfortran/io/write_float.def | |
| parent | 33cc16e260f3cdf7b37e4bf39bab5b2f4dfa5e1d (diff) | |
| download | gcc-b9f0f963eadefadb654446f7a25caf84967ffa86.tar.gz | |
2008-10-17 Jerry DeLisle <jvdelisle@gcc.gnu.org
PR libfortran/37707
* io/write_float.def (WRITE_FLOAT): Round to 1.0 correctly.
* io/io.h (st_parameter_44): Fix id type declaration.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@141207 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/write_float.def')
| -rw-r--r-- | libgfortran/io/write_float.def | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 0ee8f3560c4..73a6ed14a1b 100644 --- a/libgfortran/io/write_float.def +++ b/libgfortran/io/write_float.def @@ -746,7 +746,7 @@ sprintf (buffer, "%+-#" STR(MIN_FIELD_WIDTH) ".*" \ if (tmp < 0.5)\ tmp = 0.0;\ else if (tmp < 1.0)\ - tmp = tmp + 0.5;\ + tmp = 1.0;\ }\ zero_flag = (tmp == 0.0);\ \ |