4 files changed, 47 insertions, 0 deletions
diff --git a/src/it/it0018-fortran/src/main/fortran/a.f90 b/src/it/it0018-fortran/src/main/fortran/a.f90
new file mode 100644
index 0000000..2c898d1
--- /dev/null
+++ b/src/it/it0018-fortran/src/main/fortran/a.f90
@@ -0,0 +1,14 @@
+program a
+use B
+use C
+use D
+
+implicit none
+
+        call f_b()
+        call f_c()
+        call f_d()
+
+end program a
+
+
diff --git a/src/it/it0018-fortran/src/main/fortran/b.f90 b/src/it/it0018-fortran/src/main/fortran/b.f90
new file mode 100644
index 0000000..9a2d0bc
--- /dev/null
+++ b/src/it/it0018-fortran/src/main/fortran/b.f90
@@ -0,0 +1,11 @@
+module B
+
+contains
+
+subroutine f_b()
+
+write (6,*) "f_b()"
+
+end subroutine f_b
+
+end module B
diff --git a/src/it/it0018-fortran/src/main/fortran/c.f90 b/src/it/it0018-fortran/src/main/fortran/c.f90
new file mode 100644
index 0000000..01dc193
--- /dev/null
+++ b/src/it/it0018-fortran/src/main/fortran/c.f90
@@ -0,0 +1,11 @@
+module C
+
+contains
+
+subroutine f_c()
+
+write (6,*) "f_c()"
+
+end subroutine f_c
+
+end module C
diff --git a/src/it/it0018-fortran/src/main/fortran/d.f90 b/src/it/it0018-fortran/src/main/fortran/d.f90
new file mode 100644
index 0000000..8b8b369
--- /dev/null
+++ b/src/it/it0018-fortran/src/main/fortran/d.f90
@@ -0,0 +1,11 @@
+module D
+
+contains
+
+subroutine f_d()
+
+write (6,*) "f_d()"
+
+end subroutine f_d
+
+end module D