! Test the notation for an Nth-generation descendant | |
! for N>1, which necessitates the colon. | |
submodule ( parent : grandchild ) GreatGrandChild | |
contains | |
module subroutine GreatGrandChild_subroutine() | |
print *,"Test passed." | |
end subroutine | |
end submodule GreatGrandChild |