[Bug fortran/107922] ICE in gfc_simplify_unpack, at fortran/simplify.cc:8473

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gcc dot gnu.org
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2022-11-29
     Ever confirmed|0                           |1

--- Comment #1 from anlauf at gcc dot gnu.org ---
Confirmed.

Potential patch:

diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc
index b6184181f26..24a3a9a1e90 100644
--- a/gcc/fortran/simplify.cc
+++ b/gcc/fortran/simplify.cc
@@ -8485,7 +8486,13 @@ gfc_simplify_unpack (gfc_expr *vector, gfc_expr *mask,
gfc_expr *field)
            }
        }
       else if (field->expr_type == EXPR_ARRAY)
-       e = gfc_copy_expr (field_ctor->expr);
+       if (field_ctor)
+         e = gfc_copy_expr (field_ctor->expr);
+       else
+         {
+           gfc_free_expr (result);
+           return &gfc_bad_expr;
+         }
       else
        e = gfc_copy_expr (field);