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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index c64254288d6ef05471e67a1ddba4544652e1d834..3aaa72716376c3519e201ef7f9bc02fcaf119cf3 100644 (file)
--- 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 38bb96bf9ddc9da0cc37d8c336bc8b7d2c4d96ac..4073137da7488b2aac752340e4afdd1350129e1c 100644 (file)
--- 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;
     }