Guard against callsigns longer that the CW id buffer

2026-06-12 18:58:43 -04:00 · 2021-03-23 15:07:32 +00:00
parent f9b14dd6c9
commit d35f7a90ac
1 changed files with 1 additions and 0 deletions
@@ -64,6 +64,7 @@ subroutine morse(msg,idat,n)

 ! Insert this character
     nmax=ic(21,j)
+     if (n + nmax + 4 .gt. size (idat)) exit
     do i=1,nmax
        n=n+1
        idat(n)=ic(i,j)