diff options
| -rw-r--r-- | fpm/src/fpm_filesystem.f90 | 4 |
1 files 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 |