From beeb481aa9ffdeca375fec8ce7a9543190a7b346 Mon Sep 17 00:00:00 2001
From: zoziha <1325686572@qq.com>
Date: Sat, 16 Oct 2021 23:55:02 +0800
Subject: List names without suffix (mainly for Windows). (#595)

---
 src/fpm.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/fpm.f90')

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,*)
-- 
cgit v1.2.3