[Bug fortran/69455] [5/6 Regression] Assembler error(s) when using intrinsic modules in two BLOCK

[dominiq at lps dot ens.fr]

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

--- Comment #8 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Revision 229540 isn't the problem.

At least it exposes the problem.