Add: check for duplicate output objects

1 files 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