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

list_read.c (namelist_read): Convert variable names to lower case, so that mixed-case names are recognized.

Browse Source 
2004-08-10  Victor Leikehman  <lei@il.ibm.com>

	* io/list_read.c (namelist_read): Convert variable names
	to lower case, so that mixed-case names are recognized.
	Don't read beyond terminating slash.

From-SVN: r85751
This commit is contained in:
Victor Leikehman 2004-08-10 13:34:04 +00:00 committed by Paul Brook
parent 45d78e7f76
commit a57bb5f6a5
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2004-08-10 Victor Leikehman <lei@il.ibm.com>
* io/list_read.c (namelist_read): Convert variable names
to lower case, so that mixed-case names are recognized.
Don't read beyond terminating slash.
2004-08-09 Richard Henderson <rth@redhat.com>
Roger Sayle <roger@eyesopen.com>

10
libgfortran/io/list_read.c
View File

@ -1453,11 +1453,15 @@ restart:
match_namelist_name(ioparm.namelist_name, ioparm.namelist_name_len);
/* Ready to read namelist elements */
for (;;)
while (!input_complete)
{
c = next_char ();
switch (c)
{
case '/':
input_complete = 1;
next_record (0);
break;
case '&':
match_namelist_name("end",3);
return;
@ -1475,7 +1479,7 @@ restart:
name_matched = 1;
nl = find_nml_node (saved_string);
if (nl == NULL)
internal_error ("Can not found a valid namelist var!");
internal_error ("Can not match a namelist variable");
free_saved();
len = nl->len;
@ -1528,7 +1532,7 @@ restart:
break;
default :
push_char(c);
push_char(tolower(c));
break;
}
}