------- Comment #1 from jvdelisle at gcc dot gnu dot org 2005-12-17 21:33 ------- This simple patch appears to fix this: The stement moved needs to be executed before the return is called.
=================================================================== *** io/transfer.c (revision 108671) --- io/transfer.c (working copy) *************** finalize_transfer (st_parameter_dt *dtp) *** 2017,2022 **** --- 2017,2023 ---- finish_list_read (dtp); else { + dtp->u.p.current_unit->current_record = 0; if (dtp->u.p.advance_status == ADVANCE_NO || dtp->u.p.seen_dollar) { /* Most systems buffer lines, so force the partial record *************** finalize_transfer (st_parameter_dt *dtp) *** 2027,2033 **** } next_record (dtp, 1); - dtp->u.p.current_unit->current_record = 0; } sfree (dtp->u.p.current_unit->s); --- 2028,2033 ---- -- jvdelisle at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|unassigned at gcc dot gnu |jvdelisle at gcc dot gnu dot |dot org |org Status|UNCONFIRMED |ASSIGNED Ever Confirmed|0 |1 Last reconfirmed|0000-00-00 00:00:00 |2005-12-17 21:33:29 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25463