PR libfortran/33039
* io/list_read.c (find_nml_name): Check for a space after a namelist
name match.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127332
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-08-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libfortran/33039
+ * io/list_read.c (find_nml_name): Check for a space after a namelist
+ name match.
+
2007-08-09 Tobias Burnus <burnus@net-b.de>
PR fortran/32987
if (dtp->u.p.nml_read_error)
goto find_nml_name;
+ /* A trailing space is required, we give a little lattitude here, 10.9.1. */
+ c = next_char (dtp);
+ if (!is_separator(c))
+ {
+ unget_char (dtp, c);
+ goto find_nml_name;
+ }
+
/* Ready to read namelist objects. If there is an error in input
from stdin, output the error message and continue. */