diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d4d6b9f1703..b13f107f736 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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>
 
 	PR fortran/43409
diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c
index 078c6e25fc8..cc906b97693 100644
--- a/libgfortran/io/read.c
+++ b/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)
     {