[Bug fortran/95585] ICE in gfc_check_reshape, at fortran/check.c:4751

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org
     Ever confirmed|0                           |1
           Priority|P3                          |P4
   Last reconfirmed|                            |2020-06-08
             Status|UNCONFIRMED                 |NEW

--- Comment #1 from kargl at gcc dot gnu.org ---
Index: gcc/fortran/check.c
===================================================================
--- gcc/fortran/check.c (revision 280157)
@@ -4720,7 +4728,8 @@ gfc_check_reshape (gfc_expr *source, gfc_expr *shape,
           && shape->ref->u.ar.as->lower[0]->ts.type == BT_INTEGER
           && shape->ref->u.ar.as->upper[0]->expr_type == EXPR_CONSTANT
           && shape->ref->u.ar.as->upper[0]->ts.type == BT_INTEGER
-          && shape->symtree->n.sym->attr.flavor == FL_PARAMETER)
+          && shape->symtree->n.sym->attr.flavor == FL_PARAMETER
+          && shape->symtree->n.sym->value)
     {
       int i, extent;
       gfc_expr *e, *v;