Add a file with wide variety of test cases for pack28/unpack28.

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

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