Sign in
qemu
/
meson
/
bb088c50b455eb877dd6fde311d60690f20c8518
/
.
/
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