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

re PR fortran/43517 (spurious end-of-file condition when namelist read follows formatted read) 

2010-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/43517
	* io/read.c (read_x): Return if seen EOR condition.

From-SVN: r157739
This commit is contained in:
Jerry DeLisle 2010-03-26 04:56:51 +00:00
parent c064b4a492
commit 82b4ee5735
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2010-03-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/43517
* io/read.c (read_x): Return if seen EOR condition.
2010-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/43265

3
libgfortran/io/read.c
View File

@ -1041,6 +1041,9 @@ read_x (st_parameter_dt *dtp, int n)
goto done;
}
if (dtp->u.p.sf_seen_eor)
return;
p = fbuf_read (dtp->u.p.current_unit, &length);
if (p == NULL)
{