mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-09 15:51:08 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/25463 (T edit descriptor and ADVANCE="no")

Browse Source 
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.

From-SVN: r108784
This commit is contained in:
Jerry DeLisle 2005-12-19 06:52:33 +00:00
parent 57b3c68ec5
commit 0a73639369
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
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

2
libgfortran/io/transfer.c
View File

@ -2017,6 +2017,7 @@ finalize_transfer (st_parameter_dt *dtp)
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
@ -2027,7 +2028,6 @@ finalize_transfer (st_parameter_dt *dtp)
}
next_record (dtp, 1);
dtp->u.p.current_unit->current_record = 0;
}
sfree (dtp->u.p.current_unit->s);