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.

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f03b329..e0a27c5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,11 @@
 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
        * gfortran.dg/g77/f77-edit-t-in.f: Not XFAIL-ed any more.
 

diff --git a/gcc/testsuite/gfortran.dg/pr19216.f b/gcc/testsuite/gfortran.dg/pr19216.f
index 966d893..76c3938 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 2637fb5..e8033be 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,5 +1,11 @@
 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.
 
 2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>

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