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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1874ff9345e79fa676c4829aba97b84094c29d31..f13ce492650e69a680bbf9443fae1b881718dff2 100644 (file)
--- 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 9a9ed8a41cb40c9807796fc8f5f79c8f6236ed8a..ad636f93f3d6709e8a25a65e4914251f2dce7589 100644 (file)
--- 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;