diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-12 08:35:25 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-12 08:35:25 +0000 |
| commit | 9a5286486cdae1b411510a3d35108639c4c620d4 (patch) | |
| tree | ba28573d451b2bae8b9a54c55d9b2f6a95926c1c /gcc | |
| parent | 197e22b7b8c278811924134ece710aa9167c8057 (diff) | |
| download | gcc-9a5286486cdae1b411510a3d35108639c4c620d4.zip gcc-9a5286486cdae1b411510a3d35108639c4c620d4.tar.gz gcc-9a5286486cdae1b411510a3d35108639c4c620d4.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1874ff9..f13ce49 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 9a9ed8a..ad636f9 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -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; |