From 800289818fe97d5855ca8400f52080751b0f199f Mon Sep 17 00:00:00 2001 From: LKedward Date: Fri, 18 Sep 2020 10:49:25 +0100 Subject: Fix: remove leading spaces in string split routine --- fpm/src/fpm_sources.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3