blob: 6b5ddd59fbb69d323c7b3768ff6892c0d37789f4 [file] [log] [blame]
module m1
implicit none
contains
pure real function pi()
pi = 4*atan(1.)
end function
end module m1