From: Jerry DeLisle Date: Wed, 2 Jul 2008 03:58:57 +0000 (+0000) Subject: re PR fortran/36676 (Namelist Comments Problems) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bdd3085e6640fa149e6e3a2247f61a4bcafb85f9;p=gcc.git 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 --- 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. */