From 6f454a9f7c2d2dff407443d17630051bb7330ff8 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Wed, 15 Apr 2009 22:38:32 +0300 Subject: [PATCH] re PR libfortran/38668 (advance="no": no buffering, truncate and seek) 2009-04-15 Janne Blomqvist PR libfortran/38688 * io/transfer.c (finalize_transfer): Don't flush for advance='no'. From-SVN: r146134 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/transfer.c | 1 - 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + PR libfortran/38688 + * io/transfer.c (finalize_transfer): Don't flush for advance='no'. + 2009-04-15 Danny Smith * 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