From 18606bfeb59b20d6b0637ebcef089b3c96ff49ee Mon Sep 17 00:00:00 2001
From: Federico Perini <federico.perini@gmail.com>
Date: Wed, 20 Nov 2024 08:00:50 -0600
Subject: [PATCH] loadtxt: increase length of internal buffers
---
src/stdlib_io.fypp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/stdlib_io.fypp b/src/stdlib_io.fypp
index ac207a944..0b55a2ff4 100644
--- 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