summaryrefslogtreecommitdiffstats
path: root/Tests/FortranModules/Submodules/greatgrandchild.f90
diff options
context:
space:
mode:
Diffstat (limited to 'Tests/FortranModules/Submodules/greatgrandchild.f90')
-rw-r--r--Tests/FortranModules/Submodules/greatgrandchild.f908
1 files changed, 8 insertions, 0 deletions
diff --git a/Tests/FortranModules/Submodules/greatgrandchild.f90 b/Tests/FortranModules/Submodules/greatgrandchild.f90
new file mode 100644
index 0000000..85404ea
--- /dev/null
+++ b/Tests/FortranModules/Submodules/greatgrandchild.f90
@@ -0,0 +1,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