Tests/FortranModules/Submodules/greatgrandchild.f90


1
2
3
4
5
6
7
8

! 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