------- Comment #7 from pault at gcc dot gnu dot org 2006-06-21 20:39 -------
Here's the patch (or rather, one of three that I have found!):
Paul
Index: gcc/fortran/primary.c
===================================================================
*** gcc/fortran/primary.c (revision 114823)
--- gcc/fortran/primary.c (working copy)
*************** match_variable (gfc_expr ** result, int
*** 2282,2287 ****
--- 2282,2299 ----
break;
case FL_UNKNOWN:
+ /* If a putative variable is followed by a left parenthesis
+ but does not have the attribute of dimension, this cannot
+ be a variable. */
+ if (!sym->attr.dimension
+ && !equiv_flag
+ && sym->ts.type != BT_CHARACTER)
+ {
+ gfc_gobble_whitespace ();
+ if (gfc_peek_char () == '(')
+ return MATCH_NO;
+ }
+
if (gfc_add_flavor (&sym->attr, FL_VARIABLE,
sym->name, NULL) == FAILURE)
return MATCH_ERROR;
--
pault at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |pault at gcc dot gnu dot org
|dot org |
Status|NEW |ASSIGNED
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25072
