From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Sat, 18 Apr 2009 10:05:34 +0000 (+0300)
Subject: re PR fortran/39782 (IO depends on uninitialised value)
X-Git-Tag: releases/gcc-4.5.0~6438
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=0a629857bcb96127913375be6cc48805e26d0c94;p=thirdparty%2Fgcc.git

re PR fortran/39782 (IO depends on uninitialised value)

2009-04-18  Janne Blomqvist  <jb@gcc.gnu.org>

	PR libfortran/39782
	* io/transfer.c (data_transfer_init): Don't flush before seek.
	(finalize_transfer): Remove extra flush.

From-SVN: r146308
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 20a07192b6d6..6763ad1a993d 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2009-04-18  Janne Blomqvist  <jb@gcc.gnu.org>
+
+	PR libfortran/39782
+	* io/transfer.c (data_transfer_init): Don't flush before seek.
+	(finalize_transfer): Remove extra flush.
+
 2009-04-17  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	* io/io.h (is_preconnected): Remove prototype.
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 94454a6776f4..27ae89949188 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -2332,7 +2332,6 @@ data_transfer_init (st_parameter_dt *dtp, int read_flag)
           if (dtp->pos != dtp->u.p.current_unit->strm_pos)
             {
               fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode);
-              sflush (dtp->u.p.current_unit->s);
               if (sseek (dtp->u.p.current_unit->s, dtp->pos - 1, SEEK_SET) < 0)
                 {
                   generate_error (&dtp->common, LIBERROR_OS, NULL);
@@ -3143,11 +3142,6 @@ finalize_transfer (st_parameter_dt *dtp)
 	  && dtp->u.p.advance_status != ADVANCE_NO)
 	next_record (dtp, 1);
 
-      if (dtp->u.p.current_unit->flags.form == FORM_UNFORMATTED
-	  && stell (dtp->u.p.current_unit->s) >= dtp->rec)
-	{
-	  sflush (dtp->u.p.current_unit->s);
-	}
       return;
     }