[Bug fortran/101564] ICE in resolve_allocate_deallocate, at fortran/resolve.c:8169

[kargl at gcc dot gnu.org]

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

--- Comment #3 from kargl at gcc dot gnu.org ---
(In reply to anlauf from comment #2)
> The %kind was introduced probably in r9, so likely not a real regression.
> 
> I am testing the following patch:
> 
> diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
> index 45c3ad387ac..51d312116eb 100644
> --- a/gcc/fortran/resolve.c
> +++ b/gcc/fortran/resolve.c
> @@ -8165,6 +8165,9 @@ resolve_allocate_deallocate (gfc_code *code, const
> char *fcn)
>         gfc_error ("Stat-variable at %L must be a scalar INTEGER "
>                    "variable", &stat->where);
>  
> +      if (stat->expr_type == EXPR_CONSTANT || stat->symtree == NULL)
> +       goto done_stat;
> +
>        for (p = code->ext.alloc.list; p; p = p->next)
>         if (p->expr->symtree->n.sym->name == stat->symtree->n.sym->name)
>           {
> @@ -8192,6 +8195,8 @@ resolve_allocate_deallocate (gfc_code *code, const
> char *fcn)
>           }
>      }
>  
> +done_stat:
> +
>    /* Check the errmsg variable.  */
>    if (errmsg)
>      {

The patch I posted is simpler, but yours will also do the trick.