From: Jerry DeLisle Date: Thu, 11 Nov 2010 03:24:26 +0000 (+0000) Subject: re PR libfortran/46373 (fflush called when reading from a string) X-Git-Tag: releases/gcc-4.4.6~272 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=578dce4bf382a64b5846e5421d05d0f233a2da64;p=thirdparty%2Fgcc.git re PR libfortran/46373 (fflush called when reading from a string) 2010-11-10 Jerry DeLisle 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 --- diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 78fef049284a..8a0ed507496e 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,10 @@ +2010-11-10 Jerry DeLisle + + 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 PR libgfortran/46010 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index f647941f1aa9..96a44f524e34 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -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;