From: Janne Blomqvist Date: Wed, 15 Apr 2009 19:38:32 +0000 (+0300) Subject: re PR libfortran/38668 (advance="no": no buffering, truncate and seek) X-Git-Tag: releases/gcc-4.5.0~6577 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=6f454a9f7c2d2dff407443d17630051bb7330ff8;p=thirdparty%2Fgcc.git 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 --- diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e0b9a2c7a52b..451cbce119dd 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 717041d0b41d..94454a6776f4 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