From 9a5286486cdae1b411510a3d35108639c4c620d4 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 12 Jan 2008 08:35:25 +0000 Subject: [PATCH] re PR fortran/34722 (ICE: left-over "@iostat" variable polutes namespace) 2008-01-12 Jerry DeLisle PR fortran/34722 * match.c (gfc_match_name): Don't error if leading character is a '(', just return MATCH_NO. From-SVN: r131487 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/match.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1874ff9345e7..f13ce492650e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2008-01-12 Jerry DeLisle + + 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 PR fortran/34722 diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 9a9ed8a41cb4..ad636f93f3d6 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; -- 2.47.2