diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2009-04-15 22:38:32 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2009-04-15 22:38:32 +0300 |
| commit | 6f454a9f7c2d2dff407443d17630051bb7330ff8 (patch) | |
| tree | 7cf8f4318383d6cd4966074e70d21e3cf59fe648 /libgfortran | |
| parent | e0f56f41e3662b66fbe1c5bf1c39367aa92318d5 (diff) | |
| download | gcc-6f454a9f7c2d2dff407443d17630051bb7330ff8.tar.gz | |
re PR libfortran/38668 (advance="no": no buffering, truncate and seek)
2009-04-15 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/38688
* io/transfer.c (finalize_transfer): Don't flush for advance='no'.
From-SVN: r146134
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 1 |
2 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e0b9a2c7a52..451cbce119d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2009-04-15 Janne Blomqvist <jb@gcc.gnu.org> + + PR libfortran/38688 + * io/transfer.c (finalize_transfer): Don't flush for advance='no'. + 2009-04-15 Danny Smith <dannysmith@clear.net.nz> * io/write.c (itoa) : Rename back to gfc_itoa. diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 717041d0b41..94454a6776f 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -3169,7 +3169,6 @@ finalize_transfer (st_parameter_dt *dtp) dtp->u.p.current_unit->saved_pos = dtp->u.p.max_pos > 0 ? dtp->u.p.max_pos - bytes_written : 0; fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode); - sflush (dtp->u.p.current_unit->s); return; } else if (dtp->u.p.current_unit->flags.form == FORM_FORMATTED |