re PR fortran/29563 (Internal read loses data.)

2006-10-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/29563
	* io/list_read.c (next_char): Fix an error in previous commit.

From-SVN: r118063

libgfortran/ChangeLog

+2006-10-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/29563
+	* io/list_read.c (next_char): Fix an error in previous commit.
+
 2006-10-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/29563

libgfortran/io/list_read.c

@@ -173,13 +173,13 @@ next_char (st_parameter_dt *dtp)
       /* Check for "end-of-record" condition.  */
       if (dtp->u.p.current_unit->bytes_left == 0)
 	{
+	  c = '\n';
 	  record = next_array_record (dtp, dtp->u.p.current_unit->ls);
 
 	  /* Check for "end-of-file" condition.  */      
 	  if (record == 0)
 	    {
 	      dtp->u.p.at_eof = 1;
-	      c = '\n';
 	      goto done;
 	    }
 
@@ -188,6 +188,7 @@ next_char (st_parameter_dt *dtp)
 	    longjmp (*dtp->u.p.eof_jump, 1);
 
 	  dtp->u.p.current_unit->bytes_left = dtp->u.p.current_unit->recl;
+	  goto done;
 	}
     }