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: Add correct space between brackets and
	dg directive.

From-SVN: r101105

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f03b329f56da6c67265a8aeacc3b690a43e1189d..e0a27c58453fb6ca1ec60280d518bcd660355db2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+       PR libfortran/19216
+       * gfortran.dg/pr19216.f: Add correct space between brackets and
+       dg directive.
+
 2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR libfortran/16436

diff --git a/gcc/testsuite/gfortran.dg/pr19216.f b/gcc/testsuite/gfortran.dg/pr19216.f
index 966d893606a0ffa88c17920b1e291854281a6122..76c393836c97d166d1b8e329a42b732228c71552 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr19216.f
+++ b/gcc/testsuite/gfortran.dg/pr19216.f
@@ -1,5 +1,5 @@
 ! PR libfortran/19216
-! {dg-do run}
+! { dg-do run }
        integer dat(3), i, j
        data dat / 3,2,1 /
 

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 2637fb5ad039f551ef0da1b65a4ae4544c08dfaa..e8033bee477515dd68ae920311dfd52af7a9b606 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>
 
        * io/transfer.c (formatted_transfer): Fix typo in error message.

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 7b0d25f5d74d949c25ae8c0461c4e2e098296326..0a75a9824599d42da56245b6eb001bc1a150be1a 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':