submodule (a1:a2) a3
contains
module procedure get_pi
get_pi = 4.*atan(1.)
end procedure get_pi
end submodule a3