From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Sat, 12 Jan 2008 08:35:25 +0000 (+0000)
Subject: re PR fortran/34722 (ICE: left-over "@iostat" variable polutes namespace)
X-Git-Tag: releases/gcc-4.3.0~645
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9a5286486cdae1b411510a3d35108639c4c620d4;p=thirdparty%2Fgcc.git

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 1874ff9345e7..f13ce492650e 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 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;