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

re PR fortran/34722 (ICE: left-over "@iostat" variable polutes namespace) 

2008-01-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/34722
	* match.c (gfc_match_name): Don't error if leading character is a '(',
	just return MATCH_NO.

From-SVN: r131487
This commit is contained in:
Jerry DeLisle 2008-01-12 08:35:25 +00:00
parent 197e22b7b8
commit 9a5286486c
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2008-01-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/34722
* match.c (gfc_match_name): Don't error if leading character is a '(',
just return MATCH_NO.
2008-01-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/34722

2
gcc/fortran/match.c
View File

@ -496,7 +496,7 @@ gfc_match_name (char *buffer)
c = gfc_next_char ();
if (!(ISALPHA (c) || (c == '_' && gfc_option.flag_allow_leading_underscore)))
{
if (gfc_error_flag_test() == 0)
if (gfc_error_flag_test() == 0 && c != '(')
gfc_error ("Invalid character in name at %C");
gfc_current_locus = old_loc;
return MATCH_NO;