Fortran: catch NULL pointer dereferences while simplifying PACK [PR106857]

[gcc.git] / gcc / fortran / simplify.cc

diff --git a/gcc/fortran/simplify.cc b/gcc/fortran/simplify.cc
index bc178d5489186cec4a5570bff190151833f6d672..140c17721a72128381d722039a0877c3a2b9f617 100644 (file)
--- a/gcc/fortran/simplify.cc
+++ b/gcc/fortran/simplify.cc
@@ -6431,7 +6431,7 @@ gfc_simplify_pack (gfc_expr *array, gfc_expr *mask, gfc_expr *vector)
       /* Copy only those elements of ARRAY to RESULT whose
         MASK equals .TRUE..  */
       mask_ctor = gfc_constructor_first (mask->value.constructor);
-      while (mask_ctor)
+      while (mask_ctor && array_ctor)
        {
          if (mask_ctor->expr->value.logical)
            {