Tests/FortranModules/Issue25223/m4.f90


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

module m4

use m3, only : fourpi

implicit none

contains

pure real function halfpi()
halfpi = fourpi() / 8.0
end function

end module