This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[patch, libgfortran] PR46733 fflush called when reading from a string


Committed as obvious.

Sending        ChangeLog
Sending        io/transfer.c
Transmitting file data ..
Committed revision 166490.


Index: io/transfer.c =================================================================== --- io/transfer.c (revision 166469) +++ io/transfer.c (working copy) @@ -2646,7 +2646,8 @@ }

   /* 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;

Regards,

Jerry


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]