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