diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/1/a.f90 | 11 | ||||
-rw-r--r-- | tests/1/b.f90 | 10 | ||||
-rw-r--r-- | tests/1/main.f90 | 8 |
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 |