diff options
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 3cd67b39ba7..e3d38e638e8 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -1010,13 +1010,12 @@ void write_real_g0 (st_parameter_dt *dtp, const char *source, int length, int d) { fnode f ; - int org_scale = dtp->u.p.scale_factor; - dtp->u.p.scale_factor = 1; set_fnode_default (dtp, &f, length); - f.format = FMT_ES; - f.u.real.d = d; + if (d > 0) + f.u.real.d = d; + dtp->u.p.g0_no_blanks = 1; write_float (dtp, &f, source , length); - dtp->u.p.scale_factor = org_scale; + dtp->u.p.g0_no_blanks = 0; } |