read_lines uses the same static array idx

fortran-lang · Sep 1, 2023 · 1feebe6 · 1feebe6
1 parent ea84821
commit 1feebe6
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/fpm_filesystem.F90 b/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)