tests: demonstrate that our scanner cannot handle cross target modules

5 files changed, 30 insertions, 4 deletions

diff --git a/test cases/fortran/8 module names/lib.f90 b/test cases/fortran/8 module names/lib.f90
new file mode 100644
index 000000000..f8a8bfdac
--- /dev/null
+++ b/test cases/fortran/8 module names/lib.f90
@@ -0,0 +1,9 @@
+program lib
+use MyMod1
+use MyMod2  ! test inline comment
+
+implicit none
+
+call showvalues()
+
+end program
diff --git a/test cases/fortran/8 module names/meson.build b/test cases/fortran/8 module names/meson.build
index 632c59788..9340c79d7 100644
--- a/test cases/fortran/8 module names/meson.build
+++ b/test cases/fortran/8 module names/meson.build
@@ -1,6 +1,15 @@
+# SPDX-License-Identifier: Apache-2.0
+# Copyright © 2024 Intel Corporation
+
 project('mod_name_case', 'fortran')
 
 sources = ['test.f90', 'mod1.f90', 'mod2.f90']
 
-exe = executable('mod_name_case', sources)
-test('mod_name_case', exe)
+l = static_library('s1', 'mod1.f90')
+l2 = static_library('s2', 'mod2.f90', link_whole : l)
+if get_option('unittest')
+  sh = static_library('library', 'lib.f90', link_with : l2)
+else
+  exe = executable('mod_name_case', 'test.f90', link_with : l2)
+  test('mod_name_case', exe)
+endif
diff --git a/test cases/fortran/8 module names/meson_options.txt b/test cases/fortran/8 module names/meson_options.txt
new file mode 100644
index 000000000..b5b7ee9a2
--- /dev/null
+++ b/test cases/fortran/8 module names/meson_options.txt
@@ -0,0 +1 @@
+option('unittest', type : 'boolean', value : false)
diff --git a/test cases/fortran/8 module names/mod2.f90 b/test cases/fortran/8 module names/mod2.f90
index 2087750de..3061c211f 100644
--- a/test cases/fortran/8 module names/mod2.f90
+++ b/test cases/fortran/8 module names/mod2.f90
@@ -1,6 +1,14 @@
 module mymod2
+use mymod1
 implicit none
 
 integer, parameter :: myModVal2 = 2
 
+contains
+    subroutine showvalues()
+        print*, "myModVal1 = ", myModVal1
+        print*, "myModVal2 = ", myModVal2
+    end subroutine showvalues
+
+
 end module mymod2
diff --git a/test cases/fortran/8 module names/test.f90 b/test cases/fortran/8 module names/test.f90
index 60ff16e90..fcfc23f91 100644
--- a/test cases/fortran/8 module names/test.f90
+++ b/test cases/fortran/8 module names/test.f90
@@ -1,9 +1,8 @@
 program main
-use mymod1
 use MyMod2  ! test inline comment
 
 implicit none
 
-integer, parameter :: testVar = myModVal1 + myModVal2
+call showvalues()
 
 end program