2010-11-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR libgfortran/46373
	* io/transfer.c (data_transfer_init): Do not call flush_if_preconnected
	if this is an internal unit.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@166490 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f7fe9e1..8e51190 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2010-11-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libgfortran/46373
+       * io/transfer.c (data_transfer_init): Do not call flush_if_preconnected
+       if this is an internal unit.
+

 2010-11-04  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR libfortran/44931
 2010-11-04  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR libfortran/44931

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 05425ca..6f13113 100644 (file)
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -2646,7 +2646,8 @@ data_transfer_init (st_parameter_dt *dtp, int read_flag)
     }
 
   /* Bugware for badly written mixed C-Fortran I/O.  */
     }
 
   /* Bugware for badly written mixed C-Fortran I/O.  */

-  flush_if_preconnected(dtp->u.p.current_unit->s);
+  if (!is_internal_unit (dtp))
+    flush_if_preconnected(dtp->u.p.current_unit->s);

 
   dtp->u.p.current_unit->mode = dtp->u.p.mode;
 
 
   dtp->u.p.current_unit->mode = dtp->u.p.mode;