From d35f7a90acba8aa2209e0140cb7a080072aeadf6 Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Tue, 23 Mar 2021 15:07:32 +0000
Subject: [PATCH] Guard against callsigns longer that the CW id buffer

---
 lib/morse.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/morse.f90 b/lib/morse.f90
index de5f7a1b4..7b4289580 100644
--- a/lib/morse.f90
+++ b/lib/morse.f90
@@ -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)