Tests/FortranModules/Issue25223/m2.f90

module m2

use m1, only : pi

implicit none

contains

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

end module