safe loop

Author: perazz

src/fpm_strings.f90

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