From 35ae709c0fed91d40422942eb3b3d8003828ebe9 Mon Sep 17 00:00:00 2001 From: LKedward Date: Mon, 7 Sep 2020 15:37:22 +0100 Subject: Fix: basename function with trim Output of split (M_strings) needs trimming. --- fpm/src/fpm_filesystem.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fpm/src/fpm_filesystem.f90 b/fpm/src/fpm_filesystem.f90 index 8d92ced..297278b 100644 --- a/fpm/src/fpm_filesystem.f90 +++ b/fpm/src/fpm_filesystem.f90 @@ -30,10 +30,10 @@ function basename(path,suffix) result (base) if (with_suffix) then call split(path,file_parts,delimiters='\/') - base = file_parts(size(file_parts)) + base = trim(file_parts(size(file_parts))) else call split(path,file_parts,delimiters='\/.') - base = file_parts(size(file_parts)-1) + base = trim(file_parts(size(file_parts)-1)) end if end function basename -- cgit v1.2.3