w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-28 23:28:49 -05:00
Code Issues Packages Projects Releases Wiki Activity

Guard against callsigns longer that the CW id buffer

Browse Source
This commit is contained in:
Bill Somerville 2021-03-23 15:07:32 +00:00
parent f9b14dd6c9
commit d35f7a90ac
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/morse.f90
View File

@ -64,6 +64,7 @@ subroutine morse(msg,idat,n)
! Insert this character ! Insert this character
nmax=ic(21,j) nmax=ic(21,j)
if (n + nmax + 4 .gt. size (idat)) exit
do i=1,nmax do i=1,nmax
n=n+1 n=n+1
idat(n)=ic(i,j) idat(n)=ic(i,j)