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

re PR fortran/77707 (formatted direct access: nextrec off by one)

Browse source 
2016-09-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/77707
	io/transfer.c (next_record): Flush before calculating next_record.
	Correctly calculate.

From-SVN: r240592
This commit is contained in:
Jerry DeLisle 2016-09-28 19:38:03 +00:00
parent 4b3906980a
commit b89f743da8
2 changed files with 10 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 @@
2016-09-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/77707
io/transfer.c (next_record): Flush before calculating next_record.
Correctly calculate.
2016-09-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/48298

7
libgfortran/io/transfer.c
View file

@ -3720,6 +3720,8 @@ next_record (st_parameter_dt *dtp, int done)
else
next_record_w (dtp, done);
fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode);
if (!is_stream_io (dtp))
{
/* Since we have changed the position, set it to unspecified so
@ -3733,8 +3735,8 @@ next_record (st_parameter_dt *dtp, int done)
fp = stell (dtp->u.p.current_unit->s);
/* Calculate next record, rounding up partial records. */
dtp->u.p.current_unit->last_record =
(fp + dtp->u.p.current_unit->recl - 1) /
dtp->u.p.current_unit->recl;
(fp + dtp->u.p.current_unit->recl) /
dtp->u.p.current_unit->recl - 1;
}
else
dtp->u.p.current_unit->last_record++;
@ -3743,7 +3745,6 @@ next_record (st_parameter_dt *dtp, int done)
if (!done)
pre_position (dtp);
fbuf_flush (dtp->u.p.current_unit, dtp->u.p.mode);
smarkeor (dtp->u.p.current_unit->s);
}