From 8f40163421d39d30b05cc3b6a425768a3884d93d Mon Sep 17 00:00:00 2001 From: "supritsj@Arch" Date: Tue, 11 Mar 2025 13:38:44 +0530 Subject: [PATCH] small fix for loadtxt --- src/stdlib_io.fypp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/stdlib_io.fypp b/src/stdlib_io.fypp index 8e45d8c80..a51a2d4ce 100644 --- a/src/stdlib_io.fypp +++ b/src/stdlib_io.fypp @@ -169,6 +169,7 @@ contains if (ios/=0) then write(msgout,1) trim(iomsg),i,trim(filename) + 1 format('loadtxt: error <',a,'> skipping line ',i0,' of ',a,'.') call error_stop(msg=trim(msgout)) end if @@ -189,7 +190,7 @@ contains read (s,*,iostat=ios,iomsg=iomsg) d(i, :) if (ios/=0) then - write(msgout,1) trim(iomsg),size(d,2),i,trim(filename) + write(msgout,2) trim(iomsg),size(d,2),i,trim(filename) call error_stop(msg=trim(msgout)) end if @@ -200,7 +201,7 @@ contains read (s,fmt_,iostat=ios,iomsg=iomsg) d(i, :) if (ios/=0) then - write(msgout,1) trim(iomsg),size(d,2),i,trim(filename) + write(msgout,2) trim(iomsg),size(d,2),i,trim(filename) call error_stop(msg=trim(msgout)) end if @@ -209,7 +210,7 @@ contains close(s) - 1 format('loadtxt: error <',a,'> reading ',i0,' values from line ',i0,' of ',a,'.') + 2 format('loadtxt: error <',a,'> reading ',i0,' values from line ',i0,' of ',a,'.') end subroutine loadtxt_${t1[0]}$${k1}$ #:endfor