diff options
| author | Laurence Kedward <laurence.kedward@bristol.ac.uk> | 2021-06-09 09:26:18 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-06-09 09:26:18 +0100 |
| commit | e6688d07c5658b1a26354be7d7aea68231679f05 (patch) | |
| tree | 04e72e50158108e5fd71ae0e3fdfbef1edca5a66 /src/fpm_source_parsing.f90 | |
| parent | 2ba3478e7d79dc8bb0598485346740b5436fe914 (diff) | |
| parent | 302782c036fc498dc3739c79fb34a814295f41e5 (diff) | |
| download | fpm-e6688d07c5658b1a26354be7d7aea68231679f05.tar.gz fpm-e6688d07c5658b1a26354be7d7aea68231679f05.zip | |
Merge pull request #490 from LKedward/fix-module-parsing
Fix module parsing
Diffstat (limited to 'src/fpm_source_parsing.f90')
| -rw-r--r-- | src/fpm_source_parsing.f90 | 31 |
1 files changed, 17 insertions, 14 deletions
diff --git a/src/fpm_source_parsing.f90 b/src/fpm_source_parsing.f90 index dd9a4c5..6fa00d5 100644 --- a/src/fpm_source_parsing.f90 +++ b/src/fpm_source_parsing.f90 @@ -79,7 +79,7 @@ function parse_f_source(f_filename,error) result(f_source) integer :: stat integer :: fh, n_use, n_include, n_mod, i, j, ic, pass type(string_t), allocatable :: file_lines(:) - character(:), allocatable :: temp_string, mod_name + character(:), allocatable :: temp_string, mod_name, string_parts(:) f_source%file_name = f_filename @@ -191,22 +191,25 @@ function parse_f_source(f_filename,error) result(f_source) ! Extract name of module if is module if (index(adjustl(lower(file_lines(i)%s)),'module ') == 1) then - mod_name = lower(split_n(file_lines(i)%s,n=2,delims=' ',stat=stat)) - if (stat /= 0) then - call file_parse_error(error,f_filename, & - 'unable to find module name',i, & - file_lines(i)%s) - return + ! Remove any trailing comments + ic = index(file_lines(i)%s,'!')-1 + if (ic < 1) then + ic = len(file_lines(i)%s) + end if + temp_string = trim(file_lines(i)%s(1:ic)) + + ! R1405 module-stmt := "MODULE" module-name + ! module-stmt has two space-delimited parts only + ! (no line continuations) + call split(temp_string,string_parts,' ') + if (size(string_parts) /= 2) then + cycle end if - if (mod_name == 'procedure' .or. & - mod_name == 'subroutine' .or. & - mod_name == 'function' .or. & - scan(mod_name,'=(')>0 ) then + mod_name = lower(trim(adjustl(string_parts(2)))) + if (scan(mod_name,'=(&')>0 ) then ! Ignore these cases: - ! module procedure * - ! module function * - ! module subroutine * + ! module <something>& ! module =* ! module (i) cycle |