https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87352

--- Comment #10 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
This patch

Index: class.c
===================================================================
--- class.c     (Revision 269895)
+++ class.c     (Arbeitskopie)
@@ -1031,11 +1031,13 @@ finalize_component (gfc_expr *expr, gfc_symbol *de
     }
   else
     {
+#if 0
       gfc_component *c;

       for (c = comp->ts.u.derived->components; c; c = c->next)
        finalize_component (e, comp->ts.u.derived, c, stat, fini_coarray, code,
                            sub_ns);
+#endif     
       gfc_free_expr (e);
     }
 }

leads to a reduction in the compile time, but a segfault in the
test case.

Reply via email to