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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131487 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1874ff9..f13ce49 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 9a9ed8a..ad636f9 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;