diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-03-09 04:47:51 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-03-09 04:47:51 +0000 |
| commit | 163a2ea0c06cef0f4b9c86b9df7afbba2844eeec (patch) | |
| tree | 1d555d944b2c451b20e578ea1f5f0f34fbc88b8c /libgfortran/io | |
| parent | fcf316005efc28d56ce3820557c3c3ccd4233360 (diff) | |
| download | gcc-163a2ea0c06cef0f4b9c86b9df7afbba2844eeec.tar.gz | |
2009-03-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/39409
* io/write_float.def (output_float): Handle F0.d formatting correctly
for any d when value is 0.0.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@144718 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
| -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 f94fde30b70..17bd7844560 100644 --- a/libgfortran/io/write_float.def +++ b/libgfortran/io/write_float.def @@ -122,7 +122,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size, /* Handle special cases. */ if (w == 0) - w = 2; + w = d + 2; /* For this one we choose to not output a decimal point. F95 10.5.1.2.1 */ |