Tests/FortranModules/ModulesViaTargetObjectsSource/obj.f90 - third_party/github.com/Kitware/CMake - Git at Google

 module m1

 implicit none

 contains

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

 end module m1
	module m1

	implicit none

	contains

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

	end module m1