diff --git a/src/psyclone/tests/test_files/dynamo0p3/driver_creation/module_with_var_mod.f90 b/src/psyclone/tests/test_files/dynamo0p3/driver_creation/module_with_var_mod.f90 index 78647d7635..c0ac1ff7bd 100644 --- a/src/psyclone/tests/test_files/dynamo0p3/driver_creation/module_with_var_mod.f90 +++ b/src/psyclone/tests/test_files/dynamo0p3/driver_creation/module_with_var_mod.f90 @@ -39,11 +39,16 @@ module module_with_var_mod integer :: module_var_a, module_var_b integer, parameter :: module_const = 123 + type :: inner_user_type + integer :: inner_a, inner_b + end type inner_user_type + type :: user_type ! These names are just to indicate the usage of these ! variables in the kernel, which helps to understand ! the tests better. integer member_read, member_write, member_read_write + type(inner_user_type) :: inner end type user_type type(user_type) :: user_var @@ -58,5 +63,9 @@ subroutine module_subroutine() module_var_b = module_var_b + 1 end subroutine module_subroutine + subroutine subroutine_taking_user_type(my_var) + type(user_type) :: my_var + end subroutine subroutine_taking_user_type + end module module_with_var_mod diff --git a/src/psyclone/tests/test_files/dynamo0p3/driver_creation/testkern_import_symbols_mod.f90 b/src/psyclone/tests/test_files/dynamo0p3/driver_creation/testkern_import_symbols_mod.f90 index 145240b611..3e23cc1945 100644 --- a/src/psyclone/tests/test_files/dynamo0p3/driver_creation/testkern_import_symbols_mod.f90 +++ b/src/psyclone/tests/test_files/dynamo0p3/driver_creation/testkern_import_symbols_mod.f90 @@ -72,15 +72,15 @@ integer function local_func(arg) local_func = 1 end function - subroutine testkern_import_symbols_code(nlayers, ascalar, & - fld1, fld2, fld3, fld4, & - ndf_w1, undf_w1, map_w1, & - ndf_w2, undf_w2, map_w2, & + subroutine testkern_import_symbols_code(nlayers, ascalar, & + fld1, fld2, fld3, fld4, & + ndf_w1, undf_w1, map_w1, & + ndf_w2, undf_w2, map_w2, & ndf_w3, undf_w3, map_w3) use constants_mod, only: eps, i_def, r_def - use module_with_var_mod, only: module_subroutine, module_var_a, & - module_function, module_const, & - user_var + use module_with_var_mod, only: module_subroutine, module_var_a, & + module_function, module_const, & + subroutine_taking_user_type, user_var implicit none @@ -109,6 +109,7 @@ subroutine testkern_import_symbols_code(nlayers, ascalar, & call module_subroutine() call local_subroutine() call unknown_subroutine() + call subroutine_taking_user_type(user_var) module_var_a = 1 end subroutine testkern_import_symbols_code