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

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

Browse Source
This commit is contained in:
Joe Taylor 2018-06-27 11:23:27 -04:00
parent d4784ef7dc
commit c007b0f4cd
2 changed files with 47 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lib/77bit/all28.txt Normal file
View File

@ -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

9
lib/77bit/test28.f90
View File

@ -1,14 +1,19 @@
program t8 program t8
character*13 call_0,call_1 character*13 call_0,call_1,base_call_1
character*1 cerr character*1 cerr
do i=1,999 do iline=1,999
read(*,'(a13)',end=999) call_0 read(*,'(a13)',end=999) call_0
call pack28(call_0,n28) call pack28(call_0,n28)
call unpack28(n28,call_1) call unpack28(n28,call_1)
cerr=' ' cerr=' '
if(call_0.ne.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 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) 1010 format(a13,i12,2i5,2x,a1,2x,a13a13)
enddo enddo