[Bug fortran/55199] [OOP] Equivalenced variable has wrong type when used with generic member function

[janus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55199

--- Comment #5 from janus at gcc dot gnu.org 2012-11-04 13:56:03 UTC ---
Here is an improved patch, which hopefully should be free of testsuite
regressions (will re-check):

Index: gcc/fortran/parse.c
===================================================================
--- gcc/fortran/parse.c    (revision 193133)
+++ gcc/fortran/parse.c    (working copy)
@@ -3395,12 +3395,10 @@ parse_associate (void)
       sym->declared_at = a->where;
       gfc_set_sym_referenced (sym);

-      /* Initialize the typespec.  It is not available in all cases,
-     however, as it may only be set on the target during resolution.
-     Still, sometimes it helps to have it right now -- especially
-     for parsing component references on the associate-name
-     in case of association to a derived-type.  */
-      sym->ts = a->target->ts;
+      /* For variables, we can already set the typespec. Other cases have to
+     wait until resolution stage.  */
+      if (a->target->expr_type == EXPR_VARIABLE)
+    sym->ts = a->target->ts;
     }

   accept_statement (ST_ASSOCIATE);