Commit 5a79ae84 by Jerry DeLisle

re PR fortran/35617 (read namelist error)

2008-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/35617
	* io/list_read.c (eat_separator): If next character after eatline is '!'
	then eatline again.

From-SVN: r133302
parent f82f5289
2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/35617
* io/list_read.c (eat_separator): If next character after eatline is '!'
then eatline again.
2008-03-16 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* aclocal.m4: Regenerate.
......
......@@ -356,6 +356,11 @@ eat_separator (st_parameter_dt *dtp)
{
eat_line (dtp);
c = next_char (dtp);
if (c == '!')
{
eat_line (dtp);
c = next_char (dtp);
}
}
}
while (c == '\n' || c == '\r' || c == ' ');
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment