Fix: add message and listing when run name not found

1 files changed, 42 insertions, 0 deletions

diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90
index e9d08d7..31927fc 100644
--- a/fpm/src/fpm.f90
+++ b/fpm/src/fpm.f90
@@ -305,6 +305,7 @@ subroutine cmd_run(settings,test)
     logical, intent(in) :: test
 
     integer :: i, j
+    logical :: found(size(settings%name))
     type(error_t), allocatable :: error
     type(package_t) :: package
     type(fpm_model_t) :: model
@@ -328,6 +329,7 @@ subroutine cmd_run(settings,test)
     end if
 
     ! Enumerate executable targets to run
+    found(:) = .false.
     allocate(executables(0))
     do i=1,size(model%targets)
 
@@ -352,6 +354,7 @@ subroutine cmd_run(settings,test)
 
                         if (trim(settings%name(j))==exe_source%exe_name) then
                             
+                            found(j) = .true.
                             exe_cmd%s = exe_target%output_file
                             executables = [executables, exe_cmd]
 
@@ -367,6 +370,45 @@ subroutine cmd_run(settings,test)
 
     end do
 
+    ! Check all names are valid
+    if (any(.not.found)) then
+
+        write(stderr,'(A)',advance="no")'fpm::run<ERROR> specified names '
+        do j=1,size(settings%name)
+            if (.not.found(j)) write(stderr,'(A)',advance="no") '"'//trim(settings%name(j))//'" '
+        end do
+        write(stderr,'(A)') 'not found.'
+        write(stderr,*)
+
+        j = 1
+        write(stderr,*) 'Available names:'
+        do i=1,size(model%targets)
+
+            exe_target => model%targets(i)%ptr
+    
+            if (exe_target%target_type == FPM_TARGET_EXECUTABLE .and. &
+                allocated(exe_target%dependencies)) then
+
+                exe_source => exe_target%dependencies(1)%ptr%source
+
+                if (exe_source%unit_scope == &
+                    merge(FPM_SCOPE_TEST,FPM_SCOPE_APP,test)) then 
+
+                    write(stderr,'(A17)',advance=(merge("yes","no ",modulo(j,4)==0))) basename(exe_target%output_file)
+
+                    j = j + 1
+
+                end if
+
+            end if
+
+        end do
+
+        write(stderr,*)
+        stop 1
+
+    end if
+
     ! NB. To be replaced after incremental rebuild is implemented
     if (.not.settings%list .and. &
          any([(.not.exists(executables(i)%s),i=1,size(executables))])) then