diff options
Diffstat (limited to 'libgfortran/io/transfer.c')
| -rw-r--r-- | libgfortran/io/transfer.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index fd63139..c810f4d 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -1213,7 +1213,12 @@ formatted_transfer_scalar (st_parameter_dt *dtp, bt type, void *p, int kind, break; case BT_REAL: if (f->u.real.w == 0) - write_real (dtp, p, kind); + { + if (f->u.real.d == 0) + write_real (dtp, p, kind); + else + write_real_g0 (dtp, p, kind, f->u.real.d); + } else write_d (dtp, f, p, kind); break; |