[Bug fortran/71783] [5/6/7 Regression ] ICE on valid code in gimplify_var_or_parm_decl at gimplify.c:1801

[dominiq at lps dot ens.fr]

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

--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Toon, does this fix the ICE for you as well?

It does for me without regression.