module m1

implicit none

contains

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

end module m1