[Bug fortran/89174] [8/9 Regression] Allocation segfault with CLASS(*) MOLD

[tkoenig at gcc dot gnu.org]

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

--- Comment #7 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
This patch makes the test case work again:

===================================================================
--- trans-expr.c        (Revision 265171)
+++ trans-expr.c        (Arbeitskopie)
@@ -394,7 +394,11 @@
       e->ref = NULL;
     }

+#if 0
   base_expr = gfc_copy_expr (e);
+#else
+  base_expr = gfc_expr_to_initialize (e);
+#endif

   /* Restore the original tail expression.  */
   if (class_ref)