------- Comment #1 from burnus at gcc dot gnu dot org 2009-10-02 08:42 ------- I think the problem occurs in decl.c's
static gfc_try encapsulate_class_symbol (gfc_typespec *ts, symbol_attribute *attr, gfc_array_spec **as) { [...] if (fclass == NULL) { [...] c->attr.dimension = attr->dimension; c->as = (*as); } [...] attr->allocatable = attr->pointer = attr->dimension = 0; (*as) = NULL; /* XXX */ [...] } which is called as: if (sym->ts.type == BT_CLASS) encapsulate_class_symbol (&sym->ts, &sym->attr, &sym->as); -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41539