procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/38668 (advance="no": no buffering, truncate and seek)

Browse source 
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:
Janne Blomqvist 2009-04-15 22:38:32 +03:00
parent e0f56f41e3
commit 6f454a9f7c
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
libgfortran/ChangeLog
View file

@ -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>
* io/write.c (itoa) : Rename back to gfc_itoa.

1
libgfortran/io/transfer.c
View file

@ -3169,7 +3169,6 @@ finalize_transfer (st_parameter_dt *dtp)
dtp->u.p.current_unit->saved_pos =
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);
sflush (dtp->u.p.current_unit->s);
return;
}
else if (dtp->u.p.current_unit->flags.form == FORM_FORMATTED