From 31de5c748de62335e990e67c9f0cf6d73e7d410d Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Wed, 7 Nov 2007 02:43:44 +0000
Subject: [PATCH] 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
---
libgfortran/ChangeLog | 5 +++++
libgfortran/io/transfer.c | 9 +++------
2 files changed, 8 insertions(+), 6 deletions(-)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index c64254288d6e..3aaa72716376 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 38bb96bf9ddc..4073137da748 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;
}
--
GitLab