aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/fpm.f904
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,*)