[Bug fortran/99355] -freal-X-real-Y -freal-Z-real-X promotes Z to Y

[dominiq at lps dot ens.fr via Gcc-bugs]

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

--- Comment #15 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
> Does the patch of comment 11 produce the expected result?

Quick test, yes.