[Bug fortran/88871] [9 regression] ICE segmentation fault in f951

[dominiq at lps dot ens.fr]

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

--- Comment #11 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
The patch in comment 10 fixes the ICEs for me. Thanks.