OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

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

From-SVN: r166589
This commit is contained in:
Jerry DeLisle 2010-11-11 03:24:26 +00:00
parent ed7350117d
commit 578dce4bf3
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2010-11-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/46373
Backport from mainline:
* io/transfer.c (data_transfer_init): Do not call flush_if_preconnected
if this is an internal unit.
2010-11-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/46010

3
libgfortran/io/transfer.c
View File

@ -2450,7 +2450,8 @@ data_transfer_init (st_parameter_dt *dtp, int read_flag)
}
/* 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;