[Bug fortran/36676] Namelist Comments Problems

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2008-07-01 05:43 -------
Patch:

Index: list_read.c
===================================================================
--- list_read.c (revision 137236)
+++ list_read.c (working copy)
@@ -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.  */


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36676