submodule (a1:a2) a3

contains

module procedure get_pi
  get_pi = 4.*atan(1.)
end procedure get_pi


end submodule a3