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

[burnus at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #14 from Tobias Burnus <burnus at gcc dot gnu.org> ---
(In reply to Dominique d'Humieres from comment #13)
> I have changed the test in pr57871 comment 0 to [...]
> It is not the result I expect.

Does the patch of comment 11 produce the expected result?