@@ -40,8 +40,6 @@ subroutine collect_module_dependencies(testsuite)
40
40
test_missing_program_use, should_fail= .true. ), &
41
41
& new_unittest(" invalid-library-use" , &
42
42
test_invalid_library_use, should_fail= .true. ), &
43
- & new_unittest(" invalid-own-module-use" , &
44
- test_invalid_own_module_use, should_fail= .true. ), &
45
43
& new_unittest(" package-with-no-duplicates" , &
46
44
test_package_with_no_module_duplicates), &
47
45
& new_unittest(" package-with-duplicates-in-same-source" , &
@@ -404,14 +402,16 @@ subroutine test_subdirectory_module_use(error)
404
402
uses= [string_t(' app_mod' )])
405
403
406
404
call targets_from_sources(targets,model,error)
405
+
406
+ end subroutine test_subdirectory_module_use
407
407
408
408
! > Check program with no duplicate modules
409
409
subroutine test_package_with_no_module_duplicates (error )
410
410
411
411
type (error_t), allocatable , intent (out ) :: error
412
412
413
413
type (fpm_model_t) :: model
414
- logical :: duplicates_found
414
+ logical :: duplicates_found = .false.
415
415
416
416
allocate (model% packages(1 ))
417
417
allocate (model% packages(1 )% sources(2 ))
@@ -498,8 +498,6 @@ subroutine test_package_module_duplicates_two_packages(error)
498
498
return
499
499
end if
500
500
end subroutine test_package_module_duplicates_two_packages
501
-
502
- end subroutine test_subdirectory_module_use
503
501
504
502
! > Check program using a non-library module in a differente sub-directory
505
503
subroutine test_invalid_subdirectory_module_use (error )
0 commit comments