pure real function dummy()
dummy = 4*atan(1.)
end function