From 9e74125799e4e52c8dfa896be84375644cf2b7dc Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 27 Nov 2018 15:26:24 -0500
Subject: [PATCH] Don't allow an illegal message to crash routine genft8().

---
 lib/ft8/genft8.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/ft8/genft8.f90 b/lib/ft8/genft8.f90
index 3c6a5cee7..02f49be1f 100644
--- a/lib/ft8/genft8.f90
+++ b/lib/ft8/genft8.f90
@@ -20,7 +20,10 @@ subroutine genft8(msg,i3,n3,msgsent,msgbits,itone)
   call unpack77(c77,msgsent,unpk77_success)
   read(c77,'(77i1)',err=1) msgbits
   go to 2
-1 write(81,*) msg,c77 ; flush(81)
+1 msgbits=0
+  itone=0
+  msgsent='*** bad message ***                  '
+  return
 
 entry get_tones_from_77bits(msgbits,itone)