Tests/FortranModules/ModulesViaTargetObjectsSource/obj.f90


1
2
3
4
5
6
7
8
9
10
11

module m1

implicit none

contains

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

end module m1