1 2 3 4 5 6 7 8 9 10
submodule(parent:child1) grandchild implicit none contains module procedure my_fun b = 2 end procedure my_fun end submodule grandchild