From 35f4779647ddab4ef7edef26b4e0027004d6c756 Mon Sep 17 00:00:00 2001 From: LKedward Date: Fri, 18 Sep 2020 11:38:13 +0100 Subject: Add: example package with submodules --- test/example_packages/submodules/src/child1.f90 | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 test/example_packages/submodules/src/child1.f90 (limited to 'test/example_packages/submodules/src/child1.f90') diff --git a/test/example_packages/submodules/src/child1.f90 b/test/example_packages/submodules/src/child1.f90 new file mode 100644 index 0000000..dbd0fa5 --- /dev/null +++ b/test/example_packages/submodules/src/child1.f90 @@ -0,0 +1,16 @@ +submodule(parent) child1 +implicit none + +interface + module function my_fun() result (b) + integer :: b + end function my_fun +end interface + +contains + +module procedure my_sub1 + a = 1 +end procedure my_sub1 + +end submodule child1 \ No newline at end of file -- cgit v1.2.3