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