aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/1/a.f9011
-rw-r--r--tests/1/b.f9010
-rw-r--r--tests/1/main.f908
3 files changed, 29 insertions, 0 deletions
diff --git a/tests/1/a.f90 b/tests/1/a.f90
new file mode 100644
index 0000000..a4f64a2
--- /dev/null
+++ b/tests/1/a.f90
@@ -0,0 +1,11 @@
+module a
+use b, only: g
+implicit none
+
+contains
+
+ subroutine f()
+ call g()
+ end subroutine
+
+end module
diff --git a/tests/1/b.f90 b/tests/1/b.f90
new file mode 100644
index 0000000..8b57633
--- /dev/null
+++ b/tests/1/b.f90
@@ -0,0 +1,10 @@
+module b
+implicit none
+
+contains
+
+ subroutine g()
+ print *, "g()"
+ end subroutine
+
+end module
diff --git a/tests/1/main.f90 b/tests/1/main.f90
new file mode 100644
index 0000000..75914de
--- /dev/null
+++ b/tests/1/main.f90
@@ -0,0 +1,8 @@
+program test1
+use a, only: f
+implicit none
+
+call f()
+
+print *, "OK"
+end