From 4071e13104cc9b82ddd6969183a378b5a3f27b1c Mon Sep 17 00:00:00 2001 From: LKedward Date: Sun, 8 Nov 2020 13:02:23 +0000 Subject: Add: check for duplicate output objects --- fpm/src/fpm_targets.f90 | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/fpm/src/fpm_targets.f90 b/fpm/src/fpm_targets.f90 index 54f0764..2cd4418 100644 --- a/fpm/src/fpm_targets.f90 +++ b/fpm/src/fpm_targets.f90 @@ -114,16 +114,32 @@ subroutine add_target(targets,type,output_file,source) character(*), intent(in) :: output_file type(srcfile_t), intent(in), optional :: source + integer :: i type(build_target_ptr), allocatable :: temp(:) type(build_target_t), pointer :: new_target + if (.not.allocated(targets)) allocate(targets(0)) + + ! Check for duplicate outputs + do i=1,size(targets) + + if (targets(i)%ptr%output_file == output_file) then + + write(*,*) 'Error while building target list: duplicate output object "',& + output_file,'"' + if (present(source)) write(*,*) ' Source file: "',source%file_name,'"' + stop 1 + + end if + + end do + allocate(new_target) new_target%target_type = type new_target%output_file = output_file if (present(source)) new_target%source = source allocate(new_target%dependencies(0)) - - if (.not.allocated(targets)) allocate(targets(0)) + targets = [targets, build_target_ptr(new_target)] end subroutine add_target -- cgit v1.2.3