1 ! { dg-options "-O3 -fno-tree-forwprop -fno-tree-pre -fno-tree-dominator-opts -fno-code-hoisting -ffast-math" }
5 function zu (az
, xx
) result (q3
)
8 q3
= 1.0 - lz (az
, xx
) - lz (xx
, az
)
11 function lz (ho
, gh
) result (ye
)
14 ye
= sqrt (ho
) - ho
* gh