1! { dg-options "-O3 -fno-tree-forwprop -fno-tree-pre -fno-tree-dominator-opts -fno-code-hoisting -ffast-math" } 2 3module de 4contains 5 function zu (az, xx) result (q3) 6 real :: az, xx, q3 7 8 q3 = 1.0 - lz (az, xx) - lz (xx, az) 9 end function zu 10 11 function lz (ho, gh) result (ye) 12 real :: ho, gh, ye 13 14 ye = sqrt (ho) - ho * gh 15 end function lz 16end module de 17