loadtxt: increase length of internal buffers (#893)

fortran-lang · Nov 23, 2024 · f6d317e · f6d317e
2 parents 7511064 + 18606bf
commit f6d317e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/stdlib_io.fypp b/src/stdlib_io.fypp
@@ -120,7 +120,7 @@ contains
       !!
       integer :: s
       integer :: nrow, ncol, i, ios, skiprows_, max_rows_
-      character(len=128) :: iomsg, msgout
+      character(len=1024) :: iomsg, msgout
 
       skiprows_ = max(optval(skiprows, 0), 0)
       max_rows_ = optval(max_rows, -1)
@@ -214,7 +214,7 @@ contains
       !!
 
       integer :: s, i, ios
-      character(len=128) :: iomsg, msgout
+      character(len=1024) :: iomsg, msgout
       s = open(filename, "w")
       do i = 1, size(d, 1)
         #:if 'real' in t1