2006-11-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/29752
* io/transfer.c (finalize_transfer): Flush on ADVANCE_NO.
From-SVN: r118611
+2006-11-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/29752
+ * io/transfer.c (finalize_transfer): Flush on ADVANCE_NO.
+
2006-11-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* io/transfer.c (next_record_w): Fix indentation.
dtp->u.p.current_unit->current_record = 0;
- if (dtp->u.p.advance_status == ADVANCE_NO)
- return;
-
if (!is_internal_unit (dtp) && dtp->u.p.seen_dollar)
{
dtp->u.p.seen_dollar = 0;
return;
}
+ if (dtp->u.p.advance_status == ADVANCE_NO)
+ {
+ flush (dtp->u.p.current_unit->s);
+ return;
+ }
+
next_record (dtp, 1);
sfree (dtp->u.p.current_unit->s);
}