Sign in
fuchsia
/
third_party
/
github.com
/
Kitware
/
CMake
/
619aca80ae94b909085344af1098c7f4bf80f0c2
/
.
/
Tests
/
FortranModules
/
Issue25223
/
m1.f90
blob: 6b5ddd59fbb69d323c7b3768ff6892c0d37789f4 [
file
] [
log
] [
blame
]
module
m1
implicit
none
contains
pure real
function
pi
()
pi
=
4
*
atan
(
1.
)
end
function
end
module
m1