re PR libfortran/46373 (fflush called when reading from a string)

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.

From-SVN: r166490

libgfortran/ChangeLog

+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

libgfortran/io/transfer.c

@@ -2646,6 +2646,7 @@ data_transfer_init (st_parameter_dt *dtp, int read_flag)
     }
 
   /* Bugware for badly written mixed C-Fortran I/O.  */
+  if (!is_internal_unit (dtp))
     flush_if_preconnected(dtp->u.p.current_unit->s);
 
   dtp->u.p.current_unit->mode = dtp->u.p.mode;