git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages 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: r157737
This commit is contained in:
Jerry DeLisle 2010-03-26 03:23:34 +00:00
parent 5dc2271456
commit 6a10835a6b
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-21 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2010-03-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/43409 PR fortran/43409

3
libgfortran/io/read.c
View File

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