diff options
| -rw-r--r-- | fpm/src/fpm.f90 | 18 |
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 |