re PR libfortran/19216 (list directed read with leading slash (NIST FM923))

	PR libfortran/19216
	* io/list_read.c (eat_separator): No need to call next_record,
	even in non-namelist_mode.
	* gfortran.dg/pr19216.f: New test.

From-SVN: r101107

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4a0193ce2d74c24b34d2f06beb2a6deb588f515a..05961d06007a7166242c9c133b0b1d0d247fe340 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR libfortran/19216
+       * gfortran.dg/pr19216.f: Add test.
+
 2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR libfortran/19155

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 511d550506918d65c179f1ec6e568a994da4edec..27ef234b10894fd7114564154ecf807004438af4 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR libfortran/19216
+       * io/list_read.c (eat_separator): No need to call next_record,
+       even in non-namelist_mode.
+
 2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR libfortran/19155

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 4417db22d4ddfe0085f025dc5c96a7cbc4501130..8dd5982f7b62c0d3cf737eb53a73aa4a257afc7a 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -236,11 +236,6 @@ eat_separator (void)
 
     case '/':
       input_complete = 1;
-      if (!namelist_mode)
-       {
-         next_record (0);
-         at_eol = 1;
-       }
       break;
 
     case '\n':