[Bug fortran/69385] [6 regression] ICE on valid with -fcheck=mem

[janus at gcc dot gnu.org]

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

--- Comment #9 from janus at gcc dot gnu.org ---
So, I can confirm that the modification suggested in comment #3, represented by
this patch ...

Index: gcc/fortran/trans-expr.c
===================================================================
--- gcc/fortran/trans-expr.c    (Revision 232631)
+++ gcc/fortran/trans-expr.c    (Arbeitskopie)
@@ -9286,6 +9286,7 @@
     {
       gfc_conv_expr (&lse, expr1);
       if (gfc_option.rtcheck & GFC_RTCHECK_MEM
+          && !init_flag
          && gfc_expr_attr (expr1).allocatable
          && expr1->rank
          && !expr2->rank)

... fixes the original problem, but not the one with comment #5. I'm regtesting
this now.