OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/34676 (IO error delayed)

Browse Source 
2008-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/34676
	* io/list_read.c (next_char): Only save the EOF condition for later if
	advance="no".

From-SVN: r131337
This commit is contained in:
Jerry DeLisle 2008-01-05 16:00:40 +00:00
parent 58fcda212f
commit fa347f2232
2 changed files with 14 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 @@
2008-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/34676
* io/list_read.c (next_char): Only save the EOF condition for later if
advance="no".
2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34565

11
libgfortran/io/list_read.c
View File

@ -236,10 +236,15 @@ next_char (st_parameter_dt *dtp)
}
if (length == 0)
{
if (dtp->u.p.current_unit->endfile == AT_ENDFILE)
if (dtp->u.p.advance_status == ADVANCE_NO)
{
if (dtp->u.p.current_unit->endfile == AT_ENDFILE)
longjmp (*dtp->u.p.eof_jump, 1);
dtp->u.p.current_unit->endfile = AT_ENDFILE;
c = '\n';
}
else
longjmp (*dtp->u.p.eof_jump, 1);
dtp->u.p.current_unit->endfile = AT_ENDFILE;
c = '\n';
}
else
c = *p;