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

gcc/testsuite/ChangeLog

 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.
 

gcc/testsuite/gfortran.dg/pr19216.f

 ! PR libfortran/19216
-! {dg-do run}
+! { dg-do run }
        integer dat(3), i, j
        data dat / 3,2,1 /
 

libgfortran/ChangeLog

 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>

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':