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