http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55199
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |ASSIGNED
AssignedTo|unassigned at gcc dot |janus at gcc dot gnu.org
|gnu.org |
--- Comment #3 from janus at gcc dot gnu.org 2012-11-04 12:43:31 UTC ---
Draft patch:
Index: gcc/fortran/parse.c
===================================================================
--- gcc/fortran/parse.c (revision 193047)
+++ gcc/fortran/parse.c (working copy)
@@ -3394,13 +3394,6 @@ parse_associate (void)
sym->assoc = a;
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;
}
accept_statement (ST_ASSOCIATE);
regtesting now ...
