From bdd3085e6640fa149e6e3a2247f61a4bcafb85f9 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 2 Jul 2008 03:58:57 +0000 Subject: [PATCH] re PR fortran/36676 (Namelist Comments Problems) 2008-07-01 Jerry DeLisle PR fortran/36676 * io/list_read.c (find_nml_name): Use eat_separator instead of eat_line. From-SVN: r137334 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/list_read.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 69a205949bf..6e3a729fc7a 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2008-07-01 Jerry DeLisle + + PR fortran/36676 + * io/list_read.c (find_nml_name): Use eat_separator instead of eat_line. + 2008-06-28 Jerry DeLisle PR fortran/36657 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 82c288f6c6e..ba8de9750e1 100644 --- 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. */ -- 2.30.2