From ba51c662aab04d04d31f6015f30954e2952471e5 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 17 Oct 2017 14:48:52 +0000 Subject: [PATCH] Protect against bounds error in "space". git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@8176 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- libm65/timer.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/libm65/timer.f90 b/libm65/timer.f90 index 13825bed0..c09fae12e 100644 --- a/libm65/timer.f90 +++ b/libm65/timer.f90 @@ -87,7 +87,8 @@ subroutine timer(dname,k) sum=sum+dut(i) sumf=sumf+dutf kk=min(nlevel(i),8) - sname=space(1:kk)//name(i)//space(1:8-kk) + if(kk.lt.1) sname=name(i)//space + if(kk.ge.1) sname=space(1:kk)//name(i)//space(1:8-kk) ename=space if(i.ge.2) ename=name(nparent(i)) write(lu,1060) float(i),sname,ut(i),utf,dut(i),dutf, &