Don't allow an illegal message to crash routine genft8().

2018-11-27 15:26:24 -05:00 · 2018-11-27 15:26:24 -05:00 · 9e74125799
parent 56f91cfcbb
commit 9e74125799
1 changed files with 4 additions and 1 deletions
--- 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)