diff options
| author | LKedward <laurence.kedward@bristol.ac.uk> | 2020-09-07 15:37:22 +0100 |
|---|---|---|
| committer | LKedward <laurence.kedward@bristol.ac.uk> | 2020-09-07 15:37:22 +0100 |
| commit | 35ae709c0fed91d40422942eb3b3d8003828ebe9 (patch) | |
| tree | b702126587ae5d6488122b4f07f495a38b943c75 | |
| parent | f32d6c3c6129630cf416e8d91298e3a5840001a3 (diff) | |
| download | fpm-35ae709c0fed91d40422942eb3b3d8003828ebe9.tar.gz fpm-35ae709c0fed91d40422942eb3b3d8003828ebe9.zip | |
Fix: basename function with trim
Output of split (M_strings) needs trimming.
| -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 |