remove duplicate is_executable_target

Author: perazz

src/fpm.f90

@@ -765,17 +765,11 @@ logical function should_be_run(settings,run_scope,exe_target)
 
     integer :: j
 
-    if (exe_target%target_type == FPM_TARGET_EXECUTABLE .and. &
-        allocated(exe_target%dependencies)) then
+    if (exe_target%is_executable_target(run_scope)) then
 
         associate(exe_source => exe_target%dependencies(1)%ptr%source)
 
-            if (exe_source%unit_scope/=run_scope) then 
-                
-                ! Other scope
-                should_be_run = .false.
-                
-            elseif (size(settings%name) == 0 .or. .not.settings%list) then
+            if (size(settings%name) == 0 .or. .not.settings%list) then
 
                 ! No list of targets
                 should_be_run = .true.

src/fpm_targets.f90

@@ -132,6 +132,10 @@ module fpm_targets
 
     !> Version number
     character(:), allocatable :: version
+    
+    contains
+    
+        procedure :: is_executable_target
 
 end type build_target_t
 
@@ -1043,7 +1047,7 @@ end subroutine filter_executable_targets
 
 
 elemental function is_executable_target(target_ptr, scope) result(is_exe)
-    type(build_target_t), intent(in) :: target_ptr
+    class(build_target_t), intent(in) :: target_ptr
     integer, intent(in) :: scope
     logical :: is_exe
     is_exe = target_ptr%target_type == FPM_TARGET_EXECUTABLE .and. &
@@ -1101,5 +1105,4 @@ function get_feature_flags(compiler, features) result(flags)
     end if
 end function get_feature_flags
 
-
 end module fpm_targets