From b5b16cf826d468e79b4087500192a4a9e07c140f Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Wed, 14 Oct 2020 09:24:55 -0500
Subject: Better organize example packages and bootstrap tests

---
 example_packages/submodules/fpm.toml           |  1 +
 example_packages/submodules/src/child1.f90     | 16 ++++++++++++++++
 example_packages/submodules/src/child2.f90     | 10 ++++++++++
 example_packages/submodules/src/grandchild.f90 | 10 ++++++++++
 example_packages/submodules/src/parent.f90     | 15 +++++++++++++++
 5 files changed, 52 insertions(+)
 create mode 100644 example_packages/submodules/fpm.toml
 create mode 100644 example_packages/submodules/src/child1.f90
 create mode 100644 example_packages/submodules/src/child2.f90
 create mode 100644 example_packages/submodules/src/grandchild.f90
 create mode 100644 example_packages/submodules/src/parent.f90

(limited to 'example_packages/submodules')

diff --git a/example_packages/submodules/fpm.toml b/example_packages/submodules/fpm.toml
new file mode 100644
index 0000000..cfc3d61
--- /dev/null
+++ b/example_packages/submodules/fpm.toml
@@ -0,0 +1 @@
+name = "submodules"
diff --git a/example_packages/submodules/src/child1.f90 b/example_packages/submodules/src/child1.f90
new file mode 100644
index 0000000..dbd0fa5
--- /dev/null
+++ b/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
diff --git a/example_packages/submodules/src/child2.f90 b/example_packages/submodules/src/child2.f90
new file mode 100644
index 0000000..179cc32
--- /dev/null
+++ b/example_packages/submodules/src/child2.f90
@@ -0,0 +1,10 @@
+submodule(parent) child2
+implicit none
+
+contains
+
+module procedure my_sub2
+    a = 2
+end procedure my_sub2
+
+end submodule child2
\ No newline at end of file
diff --git a/example_packages/submodules/src/grandchild.f90 b/example_packages/submodules/src/grandchild.f90
new file mode 100644
index 0000000..8c5aa17
--- /dev/null
+++ b/example_packages/submodules/src/grandchild.f90
@@ -0,0 +1,10 @@
+submodule(parent:child1) grandchild
+implicit none
+
+contains
+
+module procedure my_fun
+    b = 2
+end procedure my_fun
+
+end submodule grandchild
\ No newline at end of file
diff --git a/example_packages/submodules/src/parent.f90 b/example_packages/submodules/src/parent.f90
new file mode 100644
index 0000000..570827c
--- /dev/null
+++ b/example_packages/submodules/src/parent.f90
@@ -0,0 +1,15 @@
+module parent
+implicit none
+
+interface
+
+    module subroutine my_sub1(a)
+        integer, intent(out) :: a
+    end subroutine my_sub1
+
+    module subroutine my_sub2(a)
+        integer, intent(out) :: a
+    end subroutine my_sub2
+end interface
+
+end module parent
\ No newline at end of file
-- 
cgit v1.2.3


From 488bdd06ab78cec3085aa86b6dbe36a98f58eb86 Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Thu, 22 Oct 2020 16:48:07 -0500
Subject: Add .gitignore file in submodules example package

---
 example_packages/submodules/.gitignore | 1 +
 1 file changed, 1 insertion(+)
 create mode 100644 example_packages/submodules/.gitignore

(limited to 'example_packages/submodules')

diff --git a/example_packages/submodules/.gitignore b/example_packages/submodules/.gitignore
new file mode 100644
index 0000000..a007fea
--- /dev/null
+++ b/example_packages/submodules/.gitignore
@@ -0,0 +1 @@
+build/*
-- 
cgit v1.2.3