fix split_lines

Author: perazz

src/fpm_strings.f90

@@ -576,7 +576,7 @@ pure subroutine split_lines_first_last(string, first, last)
                 n = n + 1
                 istart(n) = p
                 do while (p <= slen)
-                    if (index(CR//LF, string(p:p)) == 0) exit
+                    if (index(CR//LF, string(p:p)) /= 0) exit
                     p = p + 1
                 end do
                 iend(n) = p - 1

test/fpm_test/test_filesystem.f90

@@ -304,7 +304,7 @@ subroutine test_split_lines_first_last(error)
         integer, allocatable :: first(:), last(:)
 
         call split_lines_first_last(CR//LF//'line1'//CR//'line2'//LF//'line3'//CR//LF//'hello', first, last)
-        if (.not.(all(first==[3,9,15,21]) .and. all(last==[7,13,18,25]))) then 
+        if (.not.(all(first==[3,9,15,22]) .and. all(last==[7,13,19,26]))) then 
             call test_failed(error, "Test split_lines_first_last #1 failed")
             return
         end if