Sign in
chromium
/
external
/
github.com
/
Kitware
/
CMake
/
master
/
.
/
Tests
/
FortranModules
/
Issue25223
/
m3.f90
blob: a29ca840ece049804e110780fd17e0bdcd967291 [
file
]
module
m3
use
m2
,
only
:
twopi
implicit
none
contains
pure real
function
fourpi
()
fourpi
=
2
*
twopi
()
end
function
end
module