! { dg-options "-O3 -fno-tree-forwprop -fno-tree-pre -fno-tree-dominator-opts -fno-code-hoisting -ffast-math" } | |
module de | |
contains | |
function zu (az, xx) result (q3) | |
real :: az, xx, q3 | |
q3 = 1.0 - lz (az, xx) - lz (xx, az) | |
end function zu | |
function lz (ho, gh) result (ye) | |
real :: ho, gh, ye | |
ye = sqrt (ho) - ho * gh | |
end function lz | |
end module de |