! testing no space between submodule()
submodule(a1) a2

contains

module procedure pi2tau
  pi2tau = 2*pi
end procedure pi2tau

end submodule a2