PR libgfortran/25463
* io/transfer.c (finalize_transfer): Fix execution order so that
next_record is set to zero in all cases.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108784
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-12-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/25463
+ * io/transfer.c (finalize_transfer): Fix execution order so that
+ next_record is set to zero in all cases.
+
2005-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25264
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
}
next_record (dtp, 1);
- dtp->u.p.current_unit->current_record = 0;
}
sfree (dtp->u.p.current_unit->s);