9 lines
256 B
Fortran
Raw Normal View History

2018-08-09 18:06:22 +02:00
! Test the notation for an Nth-generation descendant
! for N>1, which necessitates the colon.
submodule ( parent : child ) grandchild
contains
module subroutine grandchild_subroutine()
print *,"Test passed."
end subroutine
end submodule grandchild