From c007b0f4cd817210b5a893602a1249745100bae9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 27 Jun 2018 11:23:27 -0400
Subject: [PATCH] Add a file with wide variety of test cases for
 pack28/unpack28.

---
 lib/77bit/all28.txt  | 40 ++++++++++++++++++++++++++++++++++++++++
 lib/77bit/test28.f90 |  9 +++++++--
 2 files changed, 47 insertions(+), 2 deletions(-)
 create mode 100644 lib/77bit/all28.txt

diff --git a/lib/77bit/all28.txt b/lib/77bit/all28.txt
new file mode 100644
index 000000000..2a6e2781c
--- /dev/null
+++ b/lib/77bit/all28.txt
@@ -0,0 +1,40 @@
+<KH1/KH7Z>
+<VP2E/KA1ABC>
+5B1ABC
+999ABC
+9Y4AB
+9Y4XYZ
+A00A
+A0A
+A0AA
+A0AAA
+A0AAB
+AA0AAA
+CQ
+CQ_000
+CQ_313
+CQ_999
+CQ_A
+CQ_AAAA
+CQ_AB
+CQ_ABC
+CQ_ABCD
+CQ_DX
+CQ_ZZZZ
+DE
+EI30T
+HA70BAY
+HB9GOLD
+K1ABC
+K1JT
+KA0ABC
+KA1ABC
+KA1JT
+KH1/KH7Z
+QRZ
+W2000XYZ
+WB9XYZ
+YB50ST
+YW18FIFA
+ZM90DX
+ZS9YOTA
diff --git a/lib/77bit/test28.f90 b/lib/77bit/test28.f90
index 2d6c4c342..ad51827ad 100644
--- a/lib/77bit/test28.f90
+++ b/lib/77bit/test28.f90
@@ -1,14 +1,19 @@
 program t8
 
-  character*13 call_0,call_1
+  character*13 call_0,call_1,base_call_1
   character*1 cerr
 
-  do i=1,999
+  do iline=1,999
      read(*,'(a13)',end=999) call_0
      call pack28(call_0,n28)
      call unpack28(n28,call_1)
      cerr=' '
      if(call_0.ne.call_1) cerr='*'
+     if(call_1(1:1).eq.'<') then
+        i=index(call_1,'>')
+        base_call_1=call_1(2:i-1)//'  '
+     endif
+     if(call_0.eq.base_call_1) cerr=' '
      write(*,1010) call_0,n28,len(trim(call_0)),len(trim(call_1)),cerr,call_1
 1010 format(a13,i12,2i5,2x,a1,2x,a13a13)
   enddo