From 18606bfeb59b20d6b0637ebcef089b3c96ff49ee Mon Sep 17 00:00:00 2001 From: Federico Perini 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