diff options
| author | LKedward <laurence.kedward@bristol.ac.uk> | 2020-09-02 09:55:40 +0100 |
|---|---|---|
| committer | LKedward <laurence.kedward@bristol.ac.uk> | 2020-09-02 09:55:40 +0100 |
| commit | 54a5c6de29c3d7aa70797ff2d14aa962e9e169d8 (patch) | |
| tree | a190acf400ba1b9b0daba5cba5dccc4bd9cc4813 | |
| parent | b6000d89933610bd8f481b5f0f2c8ceeac7f18ff (diff) | |
| download | fpm-54a5c6de29c3d7aa70797ff2d14aa962e9e169d8.tar.gz fpm-54a5c6de29c3d7aa70797ff2d14aa962e9e169d8.zip | |
Fix: for multilevel submodules
Ignores ancestor name in submodule declaration statement.
| -rw-r--r-- | fpm/src/fpm_sources.f90 | 6 |
1 files changed, 6 insertions, 0 deletions
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 |