re PR libfortran/33985 (access="stream",form="unformatted" doesn't buffer)

2007-11-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/33985
	* io/transfer.c (finalize_transfer): Do not flush for
	unformatted STREAM I/O.

From-SVN: r129870

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 8d3a4b45e63f13129e77a484f353c8261547a205..c64254288d6ef05471e67a1ddba4544652e1d834 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-11-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/33985
+       * io/transfer.c (finalize_transfer): Do not flush for
+       unformatted STREAM I/O.
+
 2007-10-27  Tobias Burnus  <burnus@net-b.de>
 
        * mk-kinds-h.sh: Change LANG=C to LC_ALL=C.

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 793f1941d04e9cd8adcbc76de2fd648ccf085805..38bb96bf9ddc9da0cc37d8c336bc8b7d2c4d96ac 100644 (file)
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -2640,9 +2640,11 @@ 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;
     }