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

re PR fortran/33039 (Read NAMELIST: reads wrong namelist name)

Browse Source 
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.

From-SVN: r127332
This commit is contained in:
Jerry DeLisle 2007-08-10 12:36:01 +00:00
parent caba20819a
commit cf9293a17e
2 changed files with 14 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 @@
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

8
libgfortran/io/list_read.c
View File

@ -2593,6 +2593,14 @@ find_nml_name:
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. */