1 2 3 4 5 6 7 8 9 10
submodule(parent) child2 implicit none contains module procedure my_sub2 a = 2 end procedure my_sub2 end submodule child2