module complexity contains real function g(x, y) real :: x, y, z g = (x*x*x*x*x*x + y*y*y*y) end function g end module complexity