[Bug fortran/98458] PRINT the array constructed from implied do-loop throw ICE

["kargl at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #3 from kargl at gcc dot gnu.org ---
Index: gcc/fortran/simplify.c
===================================================================
--- gcc/fortran/simplify.c      (revision 1050250)
+++ gcc/fortran/simplify.c      (working copy)
@@ -6728,13 +6731,18 @@ gfc_simplify_reshape (gfc_expr *source, gfc_expr *shap
   bool zerosize = false;

   /* Check that argument expression types are OK.  */
-  if (!is_constant_array_expr (source)
-      || !is_constant_array_expr (shape_exp)
-      || !is_constant_array_expr (pad)
-      || !is_constant_array_expr (order_exp))
-    return NULL;
+  if (!is_constant_array_expr (source))
+    {
+      if (gfc_init_expr_flag && !gfc_reduce_init_expr (source))
+         return NULL;
+    }

   if (source->shape == NULL)
+    return NULL;
+
+  if (!is_constant_array_expr (shape_exp)
+      || !is_constant_array_expr (pad)
+      || !is_constant_array_expr (order_exp))
     return NULL;

   /* Proceed with simplification, unpacking the array.  */