diff options
| -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 bed09721458..1de3474efa8 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 13738190b08..613ffe0a6be 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. */ |