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