mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-22 06:50:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/33985 (access="stream",form="unformatted" doesn't buffer)

Browse Source 
2007-11-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/33985
	* io/transfer.c (finalize_transfer): Do not flush for
	unformatted STREAM I/O.

From-SVN: r129870
This commit is contained in:
Jerry DeLisle 2007-11-03 14:57:13 +00:00
parent ecf24057f8
commit 0c70ecbea2
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2007-11-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/33985
* io/transfer.c (finalize_transfer): Do not flush for
unformatted STREAM I/O.
2007-10-27 Tobias Burnus <burnus@net-b.de>
* mk-kinds-h.sh: Change LANG=C to LC_ALL=C.

8
libgfortran/io/transfer.c
View File

@ -2640,9 +2640,11 @@ finalize_transfer (st_parameter_dt *dtp)
if (is_stream_io (dtp))
{
if (dtp->u.p.current_unit->flags.form == FORM_FORMATTED)
next_record (dtp, 1);
flush (dtp->u.p.current_unit->s);
sfree (dtp->u.p.current_unit->s);
{
next_record (dtp, 1);
flush (dtp->u.p.current_unit->s);
sfree (dtp->u.p.current_unit->s);
}
return;
}