OSDN Git Service

2010-03-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 26 Mar 2010 03:23:34 +0000 (03:23 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 26 Mar 2010 03:23:34 +0000 (03:23 +0000)
PR libfortran/43517
* io/read.c (read_x): Return if seen EOR condition.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@157737 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/io/read.c

index d4d6b9f..b13f107 100644 (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>
 
        PR fortran/43409
index 078c6e2..cc906b9 100644 (file)
@@ -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)
     {