From 4f8d744edbce76b1b6c91989b701caf95811dc12 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 25 Feb 2007 02:27:17 +0000 Subject: [PATCH] re PR libfortran/30918 (Failure to skip commented out NAMELIST) 2007-02-24 Jerry DeLisle PR libgfortran/30918 * io/listread.c (namelist_read): Eat comment line. From-SVN: r122307 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/list_read.c | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 11a2125832ff..1ca53435fdfa 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2007-02-24 Jerry DeLisle + + PR libgfortran/30918 + * io/listread.c (namelist_read): Eat comment line. + 2007-02-22 Jerry DeLisle PR libgfortran/30910 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 6379776b9bba..3203f3116f78 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -2567,6 +2567,10 @@ find_nml_name: case '&': break; + case '!': + eat_line (dtp); + goto find_nml_name; + case '=': c = next_char (dtp); if (c == '?') -- 2.47.2