OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/35617 (read namelist error)

Browse Source 
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
This commit is contained in:
Jerry DeLisle 2008-03-18 04:27:56 +00:00
parent f82f5289e7
commit 5a79ae8432
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
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> 2008-03-16 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* aclocal.m4: Regenerate. * aclocal.m4: Regenerate.

5
libgfortran/io/list_read.c
View File

@ -356,6 +356,11 @@ eat_separator (st_parameter_dt *dtp)
{ {
eat_line (dtp); eat_line (dtp);
c = next_char (dtp); c = next_char (dtp);
if (c == '!')
{
eat_line (dtp);
c = next_char (dtp);
}
} }
} }
while (c == '\n' || c == '\r' || c == ' '); while (c == '\n' || c == '\r' || c == ' ');