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

re PR fortran/29563 (Internal read loses data.)

Browse source 
2006-10-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/29563
	* io/list_read.c (next_char): Fix an error in previous commit.

From-SVN: r118063
This commit is contained in:
Jerry DeLisle 2006-10-26 07:17:21 +00:00
parent 20f04e65e3
commit bbd6c8aa76
2 changed files with 7 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 @@
2006-10-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/29563
* io/list_read.c (next_char): Fix an error in previous commit.
2006-10-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/29563

3
libgfortran/io/list_read.c
View file

@ -173,13 +173,13 @@ next_char (st_parameter_dt *dtp)
/* Check for "end-of-record" condition. */
if (dtp->u.p.current_unit->bytes_left == 0)
{
c = '\n';
record = next_array_record (dtp, dtp->u.p.current_unit->ls);
/* Check for "end-of-file" condition. */
if (record == 0)
{
dtp->u.p.at_eof = 1;
c = '\n';
goto done;
}
@ -188,6 +188,7 @@ next_char (st_parameter_dt *dtp)
longjmp (*dtp->u.p.eof_jump, 1);
dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
goto done;
}
}