re PR fortran/36676 (Namelist Comments Problems)

2008-07-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/36676
	* io/list_read.c (find_nml_name): Use eat_separator instead of eat_line.

From-SVN: r137334

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 69a205949bfebcc0a2cb6ca64022596d673b02a2..6e3a729fc7a7af82c971d4cbf8152a1946c7803d 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/36676
+       * io/list_read.c (find_nml_name): Use eat_separator instead of eat_line.
+       
 2008-06-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR fortran/36657

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 82c288f6c6e1bf2ada72b3b06eff47ee4a63b3b1..ba8de9750e1e35367116b7ff64bb4405640ff5dc 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -2922,8 +2922,8 @@ find_nml_name:
       goto find_nml_name;
     }
 
-  if (c == '!')
-    eat_line (dtp);
+  unget_char (dtp, c);
+  eat_separator (dtp);
 
   /* Ready to read namelist objects.  If there is an error in input
      from stdin, output the error message and continue.  */