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

libgfortran/ChangeLog

+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>
 
 	PR fortran/43409

libgfortran/io/read.c

@@ -1046,6 +1046,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)
     {