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

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

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index efe39c8..fc9aeea 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index f10a099..9092c1a 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/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;
        }
     }