diff options
| author | LKedward <laurence.kedward@bristol.ac.uk> | 2020-09-18 10:49:25 +0100 |
|---|---|---|
| committer | LKedward <laurence.kedward@bristol.ac.uk> | 2020-09-18 11:19:42 +0100 |
| commit | 800289818fe97d5855ca8400f52080751b0f199f (patch) | |
| tree | e9df248a38dac43e39d3008988c8875f91b57f1f | |
| parent | f0caa736e0fee49ee8680899ba4d17a6e33d6b10 (diff) | |
| download | fpm-800289818fe97d5855ca8400f52080751b0f199f.tar.gz fpm-800289818fe97d5855ca8400f52080751b0f199f.zip | |
Fix: remove leading spaces in string split routine
| -rw-r--r-- | fpm/src/fpm_sources.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fpm/src/fpm_sources.f90 b/fpm/src/fpm_sources.f90 index 787efff..dc50fd1 100644 --- a/fpm/src/fpm_sources.f90 +++ b/fpm/src/fpm_sources.f90 @@ -526,7 +526,7 @@ function split_n(string,delims,n,stat) result(substring) return end if - substring = trim(string_parts(i)) + substring = trim(adjustl(string_parts(i))) stat = 0 end function split_n @@ -553,6 +553,7 @@ subroutine resolve_module_dependencies(sources) if (.not.associated(sources(i)%file_dependencies(j)%ptr)) then write(*,*) '(!) Unable to find source for module dependency: ',sources(i)%modules_used(j)%s + write(*,*) ' for file ',sources(i)%file_name ! stop end if |