blob: f850afdebc1f5953a7256f89598b4e4f684242f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|