From 54a5c6de29c3d7aa70797ff2d14aa962e9e169d8 Mon Sep 17 00:00:00 2001 From: LKedward Date: Wed, 2 Sep 2020 09:55:40 +0100 Subject: Fix: for multilevel submodules Ignores ancestor name in submodule declaration statement. --- fpm/src/fpm_sources.f90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/fpm/src/fpm_sources.f90 b/fpm/src/fpm_sources.f90 index 88a9ffa..d65b9f3 100644 --- a/fpm/src/fpm_sources.f90 +++ b/fpm/src/fpm_sources.f90 @@ -222,6 +222,12 @@ function parse_f_source(f_filename) result(f_source) if (pass == 2) then + if (index(line_parts(2),':') > 0) then + + line_parts(2) = line_parts(2)(index(line_parts(2),':')+1:) + + end if + f_source%modules_used(n_use)%s = adjustl(trim(lower(line_parts(2)))) end if -- cgit v1.2.3