fix --list with globbing

1 files changed, 16 insertions, 2 deletions

diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90
index e2ed356..d3a3b0c 100644
--- a/fpm/src/fpm.f90
+++ b/fpm/src/fpm.f90
@@ -318,7 +318,7 @@ subroutine cmd_run(settings,test)
            endif
         endif
 
-        call compact_list()
+        call compact_list_all()
 
         if(line.eq.'.' .or. line.eq.' ')then ! do not report these special strings
            stop
@@ -348,7 +348,7 @@ subroutine cmd_run(settings,test)
         end do
     endif
     contains 
-    subroutine compact_list()
+    subroutine compact_list_all()
     integer, parameter :: LINE_WIDTH = 80
     integer :: i, j, nCol
         j = 1
@@ -373,6 +373,20 @@ subroutine cmd_run(settings,test)
             end if
         end do
         write(stderr,*)
+    end subroutine compact_list_all
+
+    subroutine compact_list()
+    integer, parameter :: LINE_WIDTH = 80
+    integer :: i, j, nCol
+        j = 1
+        nCol = LINE_WIDTH/col_width
+        write(stderr,*) 'Matched names:'
+        do i=1,size(executables)
+            write(stderr,'(A)',advance=(merge("yes","no ",modulo(j,nCol)==0))) &
+             & [character(len=col_width) :: basename(executables(i)%s)]
+            j = j + 1
+        enddo
+        write(stderr,*)
     end subroutine compact_list
 
 end subroutine cmd_run