1 2 3 4 5 6 7 8 9 10
! testing no space between submodule() submodule(a1) a2 contains module procedure pi2tau pi2tau = 2*pi end procedure pi2tau end submodule a2