Skip to content

Commit f6017b2

Browse files
committed
Add fix for missing abstract interface parsing
1 parent 4bd3c81 commit f6017b2

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/fpm_source_parsing.f90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -153,7 +153,8 @@ function parse_f_source(f_filename,error) result(f_source)
153153
end if
154154

155155
! Detect beginning of interface block
156-
if (index(file_lines_lower(i)%s,'interface') == 1) then
156+
if (index(file_lines_lower(i)%s,'interface') == 1 &
157+
.or. parse_sequence(file_lines_lower(i)%s,'abstract','interface')) then
157158

158159
inside_interface = .true.
159160
cycle

0 commit comments

Comments
 (0)