diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-23 21:42:10 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-23 21:42:10 +0000 |
| commit | 70952ee73f4ca4dc9fdf317a7e0290a42caa18ad (patch) | |
| tree | 797b94319e93a5e9611a5afcb30d9746919f369a /libgfortran/io | |
| parent | f28fe27f3113662a38e1387cb483ff960219c422 (diff) | |
| download | gcc-70952ee73f4ca4dc9fdf317a7e0290a42caa18ad.tar.gz | |
PR libfortran/18025
* write.c (output_float): Handling the "F0.d" format similarly as
commercial compilers.
* pr18025.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96953 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/write.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 88e5280b338..d22aa344b05 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -537,7 +537,7 @@ output_float (fnode *f, double value, int len) /* Pick a field size if none was specified. */ if (w <= 0) - w = nbefore + nzero + nafter + 2; + w = nbefore + nzero + nafter + (sign != SIGN_NONE ? 2 : 1) /* Create the ouput buffer. */ out = write_block (w); |