re PR fortran/34676 (IO error delayed)

2008-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/34676
	* io/list_read.c (next_char): Only save the EOF condition for later if
	advance="no".

From-SVN: r131337

libgfortran/ChangeLog

+2008-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libfortran/34676
+	* io/list_read.c (next_char): Only save the EOF condition for later if
+	advance="no".
+
 2008-01-03  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR libfortran/34565

libgfortran/io/list_read.c

@@ -236,12 +236,17 @@ next_char (st_parameter_dt *dtp)
 	}
       if (length == 0)
 	{
+	  if (dtp->u.p.advance_status == ADVANCE_NO)
+	    {
 	      if (dtp->u.p.current_unit->endfile == AT_ENDFILE)
 		longjmp (*dtp->u.p.eof_jump, 1);
 	      dtp->u.p.current_unit->endfile = AT_ENDFILE;
 	      c = '\n';
 	    }
 	  else
+	    longjmp (*dtp->u.p.eof_jump, 1);
+	}
+      else
 	c = *p;
     }
 done: