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