From 4671b5f14f5ff8ad286f1bcab6fee91e0df20926 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ond=C5=99ej=20=C4=8Cert=C3=ADk?= Date: Sun, 12 Jan 2020 10:37:39 -0700 Subject: Add a test --- tests/1/a.f90 | 11 +++++++++++ tests/1/b.f90 | 10 ++++++++++ tests/1/main.f90 | 8 ++++++++ 3 files changed, 29 insertions(+) create mode 100644 tests/1/a.f90 create mode 100644 tests/1/b.f90 create mode 100644 tests/1/main.f90 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 -- cgit v1.2.3