diff options
| author | zoziha <1325686572@qq.com> | 2021-10-16 23:55:02 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-10-16 17:55:02 +0200 |
| commit | beeb481aa9ffdeca375fec8ce7a9543190a7b346 (patch) | |
| tree | ae56c785f34b13af3affedf1a4557200edfc9047 /src | |
| parent | d314aed051dbc83f1a5ce8dce39b3b70f552509d (diff) | |
| download | fpm-beeb481aa9ffdeca375fec8ce7a9543190a7b346.tar.gz fpm-beeb481aa9ffdeca375fec8ce7a9543190a7b346.zip | |
List names without suffix (mainly for Windows). (#595)
Diffstat (limited to 'src')
| -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,*) |