read_lines uses the same static array idx

Author: zoziha

src/fpm_filesystem.F90

@@ -52,6 +52,7 @@ end function c_is_dir
 #endif
 
     integer, parameter :: max_line = 100000  !! maximum number of lines in a text file
+    integer :: idx(max_line) = 1  !! indexes for read_lines
 
 contains
 
@@ -312,7 +313,6 @@ function read_lines_expanded(fh) result(lines)
     integer :: i
     integer :: length, count
     character(len=:), allocatable :: content
-    integer, save :: idx(max_line) = 1
 
     inquire (fh, size=length)
     allocate (character(len=length) :: content)
@@ -343,7 +343,6 @@ function read_lines(fh) result(lines)
     integer :: i
     integer :: length, count
     character(len=:), allocatable :: content
-    integer, save :: idx(max_line) = 1
 
     inquire (fh, size=length)
     allocate (character(len=length) :: content)