re PR libfortran/38668 (advance="no": no buffering, truncate and seek)
2009-04-15 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/38688 * io/transfer.c (finalize_transfer): Don't flush for advance='no'. From-SVN: r146134
This commit is contained in:
parent
e0f56f41e3
commit
6f454a9f7c
|
@ -1,3 +1,8 @@
|
||||||
|
2009-04-15 Janne Blomqvist <jb@gcc.gnu.org>
|
||||||
|
|
||||||
|
PR libfortran/38688
|
||||||
|
* io/transfer.c (finalize_transfer): Don't flush for advance='no'.
|
||||||
|
|
||||||
2009-04-15 Danny Smith <dannysmith@clear.net.nz>
|
2009-04-15 Danny Smith <dannysmith@clear.net.nz>
|
||||||
|
|
||||||
* io/write.c (itoa) : Rename back to gfc_itoa.
|
* io/write.c (itoa) : Rename back to gfc_itoa.
|
||||||
|
|
|
@ -3169,7 +3169,6 @@ finalize_transfer (st_parameter_dt *dtp)
|
||||||
dtp->u.p.current_unit->saved_pos =
|
dtp->u.p.current_unit->saved_pos =
|
||||||
dtp->u.p.max_pos > 0 ? dtp->u.p.max_pos - bytes_written : 0;
|
dtp->u.p.max_pos > 0 ? dtp->u.p.max_pos - bytes_written : 0;
|
||||||
fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode);
|
fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode);
|
||||||
sflush (dtp->u.p.current_unit->s);
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
else if (dtp->u.p.current_unit->flags.form == FORM_FORMATTED
|
else if (dtp->u.p.current_unit->flags.form == FORM_FORMATTED
|
||||||
|
|
Loading…
Reference in New Issue