Tests/FortranModules/Issue25223/m3.f90


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

module m3

use m2, only : twopi

implicit none

contains

pure real function fourpi()
fourpi = 2*twopi()
end function

end module