#2642 Add test about unkown parent type not being declared in the mod…

…ule.
stfc · Dec 2, 2024 · 18679fa · 18679fa
1 parent 0923123
commit 18679fa
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/psyclone/tests/psyir/frontend/fparser2_test.py b/src/psyclone/tests/psyir/frontend/fparser2_test.py
@@ -2606,6 +2606,8 @@ def test_structures(fortran_reader, fortran_writer):
         "  type, extends(kernel_type), public :: my_type\n"
         "    integer, public :: i = 1\n"
         "  end type my_type\n" in result)
+    # Check that kernel_type is not declared in the module
+    assert ":: kernel_type" not in result
 
     # type that contains a procedure (StructureType)
     test_code = (