https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103707
--- Comment #5 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Thanks for the quick reduction, Gerhard.
This originally came from something like
program p
real, parameter :: fmin(1) = 0.
real, parameter :: fmax(1) = 1.
real :: x(1)
where (fmin <= 0)
x = fmin + (fmax-fmin)
elsewhere
x = (fmax/fmin)**2
end where
print *,x
end
so there is no division by zero at runtime.
