Sign in
qemu
/
meson
/
0ed78cf6fa6d87c0738f67ae43525e661b50a8a2
/
.
/
test cases
/
fortran
/
12 submodule
/
a3.f90
blob: 3881675623a1d9b8b1b7379774cb8b77c18ff509 [
file
] [
log
] [
blame
]
!
submodule
(
bogus
)
foo
!
testing don
't detect commented submodule
submodule (a1:a2) a3 ! testing inline comment
contains
module procedure get_pi
get_pi = 4.*atan(1.)
end procedure get_pi
end submodule a3