diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-02-24 04:52:00 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-02-24 04:52:00 +0000 |
| commit | c73d8ee3ddc1766f1f4cd1e2adea9146a8ed22f8 (patch) | |
| tree | c916ef0e8ff03087630c8101056e9aec21c01c36 | |
| parent | aad35e893e6b53cd901daf5a8516c0cded8c21f6 (diff) | |
| download | gcc-c73d8ee3ddc1766f1f4cd1e2adea9146a8ed22f8.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@170458 138bc75d-0d04-0410-961f-82ee72b054a4
| -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. */ |