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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index efe39c8d0948c29587a30028b8b8e4f1fe65a778..fc9aeea0ee3b8321b93cb42047c5170fe862ac01 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 f10a0997617661838b0f2c777f9d32fb3f22362b..9092c1a507b53a4d64e1a045a0ca5328e23ea7b0 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;
        }
     }