Tests/FortranModules/ModulesViaTargetObjectsSource/use.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

module lib

use m1, only : pi

implicit none

contains

pure real function func()
func = pi()
end function

end module