diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2011-02-24 04:52:00 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2011-02-24 04:52:00 +0000 |
| commit | 5a30f819c7f84dcee4987b96d7e9d8ea0177fe90 (patch) | |
| tree | c916ef0e8ff03087630c8101056e9aec21c01c36 | |
| parent | cd34c8436057524c36b1999828643da0bd41601b (diff) | |
| download | gcc-5a30f819c7f84dcee4987b96d7e9d8ea0177fe90.zip gcc-5a30f819c7f84dcee4987b96d7e9d8ea0177fe90.tar.gz gcc-5a30f819c7f84dcee4987b96d7e9d8ea0177fe90.tar.bz2 | |
re PR libfortran/47567 (Wrong output for small absolute values with F editing)
2011-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/47567
* io/write_float.def (output_float): Remove special case handling of
zero with width 1.
From-SVN: r170458
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/write_float.def | 19 |
2 files changed, 6 insertions, 19 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index bed0972..1de3474 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2011-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/47567 + * io/write_float.def (output_float): Remove special case handling of + zero with width 1. + 2011-02-23 Janne Blomqvist <jb@gcc.gnu.org> Jerry DeLisle <jvdelisle@gcc.gnu.org> diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def index 1373819..613ffe0 100644 --- a/libgfortran/io/write_float.def +++ b/libgfortran/io/write_float.def @@ -117,25 +117,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size, /* Handle special cases. */ if (w == 0) w = d + (sign != S_NONE ? 2 : 1) + (d == 0 ? 1 : 0); - - /* For this one we choose to not output a decimal point. - F95 10.5.1.2.1 */ - if (w == 1 && ft == FMT_F) - { - out = write_block (dtp, w); - if (out == NULL) - return FAILURE; - - if (unlikely (is_char4_unit (dtp))) - { - gfc_char4_t *out4 = (gfc_char4_t *) out; - *out4 = '0'; - return SUCCESS; - } - - *out = '0'; - return SUCCESS; - } } /* Normalize the fractional component. */ |