re PR libfortran/17090 (Runtime I/O error)

2004-09-13  Bud Davis  <bdavis9659@comcast.net>

        PR fortran/17090

        * io/list_read.c (list_formatted_read): Handle trailing spaces
        at end of line.

2004-09-13  Bud Davis  <bdavis9659@comcast.net>

        PR fortran/17090
        * gfortran.dg/pr17090.f90: New test.

From-SVN: r87474

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b43b48819564425228630c3d8c8db7fd1797ca38..356701cfe4217dcee95a976edc53b11619cbc374 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-13  Bud Davis  <bdavis9659@comcast.net>
+
+       PR fortran/17090
+       * gfortran.dg/pr17090.f90: New test.
+
 2004-09-13  Dale Johannesen  <dalej@apple.com>
 
        * gcc.c-torture/compile/pr17408.c:  New test case.

diff --git a/gcc/testsuite/gfortran.dg/pr17090.f90 b/gcc/testsuite/gfortran.dg/pr17090.f90
new file mode 100644 (file)
index 0000000..44dc5e4
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr17090.f90
@@ -0,0 +1,21 @@
+! pr 17090 Runtime I/O error
+! bdavis9659@comcast.net 
+! 9/12/2004
+! list directed read with spaces between the last data item and the
+! eoln cause missed data items.
+! this is a libgfortran test case
+       implicit none
+       integer i,sum
+       real a(14)
+       data sum / 0 /
+       open(unit=9,status='SCRATCH')
+       write(9,*)1.0,2.0,3.0,4.0,'      '
+       write(9,*)5.0,6.0,7.0,8.0,'      '
+       write(9,*)9.0,10.0,11.0,12.0,13.0,14.0,'      '
+       rewind(9)
+       read(9,*)a
+       do i = 1,14
+          sum = sum + a(i)
+       end do
+       if (sum.ne.105) call abort
+       end

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 26a3544a49c12184fabecf4fec70c69b501c0755..70e1469ebd7cc2c3e7ad029c602af1347249ac2c 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,10 @@
+2004-09-13  Bud Davis  <bdavis9659@comcast.net>
+
+       PR fortran/17090
+
+       * io/list_read.c (list_formatted_read): Handle trailing spaces
+       at end of line.
+
 2004-09-06  Steven G. Kargl  <kargls@comcast.net>
 
        * io/write.c (output_float): Typo in comment.  Remove debugging

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index f47d473df91dcef586ca41f259049edd7995473b..51767d076721baee12132f929756a9d15efd59b1 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -1270,7 +1270,12 @@ list_formatted_read (bt type, void *p, int len)
       if (at_eol)
         finish_separator ();
       else
-        eat_spaces ();
+        {
+          eat_spaces ();
+          /* trailing spaces prior to end of line */
+          if (at_eol)
+            finish_separator ();
+        }
 
       saved_type = BT_NULL;
       repeat_count = 1;