Add explicit regression test for issue #363

examples/Makefile

@@ -40,6 +40,7 @@ EXAMPLES = \
 	issue307_logical_array \
 	issue32 \
 	issue353_selected_kind \
+	issue363_missing_only_import \
 	issue357_name_conflict \
 	issue41_abstract_classes \
 	keep_single_interface \

examples/issue363_missing_only_import/Makefile

@@ -0,0 +1,9 @@
+include ../make.meson.inc
+
+NAME := global_mod
+LIBSRC_WRAP_FPP_FILES := global_mod.f90
+
+test: build
+	$(PYTHON) run.py
+
+.PHONY: test

examples/issue363_missing_only_import/Makefile.meson

@@ -0,0 +1,9 @@
+include ../make.meson.inc
+
+NAME := global_mod
+LIBSRC_WRAP_FPP_FILES := global_mod.f90
+
+test: build
+	$(PYTHON) run.py
+
+.PHONY: test

examples/issue363_missing_only_import/global_mod.f90

@@ -0,0 +1,10 @@
+module global_mod
+  implicit none
+  integer :: number
+contains
+  subroutine print_number(number)
+    integer, intent(in) :: number
+
+    print *, number
+  end subroutine print_number
+end module global_mod

examples/issue363_missing_only_import/run.py

@@ -0,0 +1,20 @@
+from pathlib import Path
+
+import global_mod
+
+
+def main():
+    wrapper = Path("f90wrap_global_mod.f90").read_text(encoding="utf-8")
+    expected = "use global_mod, only: print_number"
+    if expected not in wrapper:
+        raise SystemExit(
+            "Missing selective import in generated wrapper:\n"
+            f"{expected}\n\nGenerated wrapper:\n{wrapper}"
+        )
+
+    global_mod.global_mod.print_number(7)
+    print("Issue #363 test passed: generated wrapper uses selective import")
+
+
+if __name__ == "__main__":
+    main()