submodule (parent) child
contains
module procedure pi2tau
pi2tau = 2*pi
end procedure pi2tau
module procedure good
print *, 'Good!'
end procedure good
end submodule child