[Bug fortran/82606] [PDT] ICE in gfc_extract_int, at fortran/expr.c:641

[dominiq at lps dot ens.fr]

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

--- Comment #8 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Created attachment 42746 [details]
> A fix for the problem

This fix the test in comment 0, but not the one in comment 1.