Add fix for missing abstract interface parsing

fortran-lang · Sep 22, 2024 · f6017b2 · f6017b2
1 parent 4bd3c81
commit f6017b2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/fpm_source_parsing.f90 b/src/fpm_source_parsing.f90
@@ -153,7 +153,8 @@ function parse_f_source(f_filename,error) result(f_source)
             end if
 
             ! Detect beginning of interface block
-            if (index(file_lines_lower(i)%s,'interface') == 1) then
+            if (index(file_lines_lower(i)%s,'interface') == 1 &
+                .or. parse_sequence(file_lines_lower(i)%s,'abstract','interface')) then
 
                 inside_interface = .true.
                 cycle