reduce the buffer size in getline

zoziha · zoziha · commit c049115ea477 · 2023-09-01T14:03:43.000+08:00
diff --git a/src/fpm_filesystem.F90 b/src/fpm_filesystem.F90
@@ -678,7 +678,7 @@ subroutine getline(unit, line, iostat, iomsg)
     !> Error message
     character(len=:), allocatable, optional :: iomsg
 
-    integer, parameter :: BUFFER_SIZE = 32768
+    integer, parameter :: BUFFER_SIZE = 1024
     character(len=BUFFER_SIZE)       :: buffer
     character(len=256)               :: msg
     integer :: size
