------- Comment #3 from burnus at gcc dot gnu dot org 2010-02-27 19:37 -------
Janus, can you have a look? I was wondering whether the following patch makes
sense. If you have time, can you finish a patch for this PR and PR 43169.
Index: resolve.c
===================================================================
--- resolve.c (Revision 157111)
+++ resolve.c (Arbeitskopie)
@@ -4006,6 +4006,8 @@ find_array_spec (gfc_expr *e)
case REF_COMPONENT:
if (derived == NULL)
derived = e->symtree->n.sym->ts.u.derived;
+ if (derived->attr.is_class)
+ derived = derived->components->ts.u.derived;
c = derived->components;
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |janus at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43199
