From 09ec9422077851171e220883de810ac6c38e67ed Mon Sep 17 00:00:00 2001 From: LKedward Date: Sat, 20 Nov 2021 15:05:07 +0000 Subject: Remove spurious component in module paths --- src/fpm_targets.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fpm_targets.f90 b/src/fpm_targets.f90 index e8fcf9c..5f3fbaf 100644 --- a/src/fpm_targets.f90 +++ b/src/fpm_targets.f90 @@ -690,7 +690,7 @@ subroutine filter_modules(targets, list) if (n + size(target%source%modules_provided) >= size(list)) call resize(list) do j = 1, size(target%source%modules_provided) n = n + 1 - list(n)%s = join_path(target%output_dir, "fpm", & + list(n)%s = join_path(target%output_dir, & target%source%modules_provided(j)%s) end do end associate -- cgit v1.2.3 From 86de17371d989595c82488ebe948a870ac36bd68 Mon Sep 17 00:00:00 2001 From: LKedward Date: Sat, 20 Nov 2021 15:05:59 +0000 Subject: Don't try to install submodule files --- src/fpm_targets.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/fpm_targets.f90 b/src/fpm_targets.f90 index 5f3fbaf..7ea815b 100644 --- a/src/fpm_targets.f90 +++ b/src/fpm_targets.f90 @@ -687,6 +687,7 @@ subroutine filter_modules(targets, list) do i = 1, size(targets) associate(target => targets(i)%ptr) if (.not.allocated(target%source)) cycle + if (target%source%unit_type == FPM_UNIT_SUBMODULE) cycle if (n + size(target%source%modules_provided) >= size(list)) call resize(list) do j = 1, size(target%source%modules_provided) n = n + 1 -- cgit v1.2.3