Skip to content

Commit f2a2ad8

Browse files
committed
fix bug of srcfile_t
1 parent ada3a00 commit f2a2ad8

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

src/fpm_source_parsing.f90

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -99,10 +99,8 @@ function parse_f_source(f_filename,error) result(f_source)
9999
file_lines_lower(i)%s=adjustl(lower(file_lines_lower(i)%s))
100100
enddo
101101

102-
! Ignore empty files, returned as FPM_UNIT_UNKNOWN
103-
if (len_trim(file_lines_lower) < 1) return
104-
105-
f_source%digest = fnv_1a(file_lines)
102+
! fnv_1a can only be applied to non-zero-length arrays
103+
if (len_trim(file_lines_lower) > 0) f_source%digest = fnv_1a(file_lines)
106104

107105
do pass = 1,2
108106
n_use = 0

0 commit comments

Comments
 (0)