blob: ba8a0dd2a2c42b314e09294b793fa4e1cf66ae89 [file] [log] [blame]
! testing no space between submodule()
submodule(a1) a2
contains
module procedure pi2tau
pi2tau = 2*pi
end procedure pi2tau
end submodule a2