test cases/fortran/12 submodule/a3.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

! 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