On Tue, Oct 04, 2005 at 08:47:04PM +0300, Erik Edelmann wrote: > @@ -1912,7 +1912,7 @@ find_array_spec (gfc_expr * e) > gfc_ref *ref; > > as = e->symtree->n.sym->as; > - c = e->symtree->n.sym->components; > + c = e->symtree->n.sym->ts.derived ? e->symtree->n.sym->ts.derived->components : NULL; This line is too long. Jakub