diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-11-07 02:43:44 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-11-07 02:43:44 +0000 |
| commit | 31de5c748de62335e990e67c9f0cf6d73e7d410d (patch) | |
| tree | 394282fd9f4eadcac2dad6251364a1afe2a41bba /libgfortran | |
| parent | 812e8c79b4bf1d3b76ea17da56a6ad7ecb141aac (diff) | |
| download | gcc-31de5c748de62335e990e67c9f0cf6d73e7d410d.zip gcc-31de5c748de62335e990e67c9f0cf6d73e7d410d.tar.gz gcc-31de5c748de62335e990e67c9f0cf6d73e7d410d.tar.bz2 | |
re PR libfortran/33985 (access="stream",form="unformatted" doesn't buffer)
2007-11-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/33985
* io/transfer.c (finalize_transfer): Revert previous patch.
From-SVN: r129955
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 9 |
2 files changed, 8 insertions, 6 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index c642542..3aaa727 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2007-11-06 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/33985 + * io/transfer.c (finalize_transfer): Revert previous patch. + 2007-11-03 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/33985 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 38bb96b..4073137 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -591,7 +591,6 @@ write_buf (st_parameter_dt *dtp, void *buf, size_t nbytes) size_t have_written, to_write_subrecord; int short_record; - /* Stream I/O. */ if (is_stream_io (dtp)) @@ -2640,11 +2639,9 @@ finalize_transfer (st_parameter_dt *dtp) if (is_stream_io (dtp)) { if (dtp->u.p.current_unit->flags.form == FORM_FORMATTED) - { - next_record (dtp, 1); - flush (dtp->u.p.current_unit->s); - sfree (dtp->u.p.current_unit->s); - } + next_record (dtp, 1); + flush (dtp->u.p.current_unit->s); + sfree (dtp->u.p.current_unit->s); return; } |