From 54d4b3bcb2af59050745e7ffa031e9fad7bb4b65 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 9 Nov 2010 13:51:57 +0000 Subject: [PATCH] re PR libfortran/46373 (fflush called when reading from a string) 2010-11-09 Jerry DeLisle 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 | 6 ++++++ libgfortran/io/transfer.c | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index f7fe9e1d391..8e511901ce0 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2010-11-09 Jerry DeLisle + + 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 PR libfortran/44931 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 05425ca2515..6f13113c6b2 100644 --- 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. */ - 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; -- 2.30.2