| ! 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 |