From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Thu, 16 Jun 2005 22:50:51 +0000 (+0200)
Subject: re PR libfortran/19216 (list directed read with leading slash (NIST FM923))
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=04d9e6bdd3a504bc0c3b0cfd806f4c14a49d58b3;p=gcc.git

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 f03b329f56d..e0a27c58453 100644
--- 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 966d893606a..76c393836c9 100644
--- 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 2637fb5ad03..e8033bee477 100644
--- 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 7b0d25f5d74..0a75a982459 100644
--- 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':