diff options
| -rw-r--r-- | src/fpm.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fpm.f90 b/src/fpm.f90 index 3347e21..0dd723c 100644 --- a/src/fpm.f90 +++ b/src/fpm.f90 @@ -474,7 +474,7 @@ subroutine cmd_run(settings,test) if (exe_source%unit_scope == run_scope) then write(stderr,'(A)',advance=(merge("yes","no ",modulo(j,nCol)==0))) & - & [character(len=col_width) :: basename(exe_target%output_file)] + & [character(len=col_width) :: basename(exe_target%output_file, suffix=.false.)] j = j + 1 end if @@ -491,7 +491,7 @@ subroutine cmd_run(settings,test) 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)] + & [character(len=col_width) :: basename(executables(i)%s, suffix=.false.)] j = j + 1 enddo write(stderr,*) |