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)
