mirror of
https://github.com/pavel-demin/ft8d.git
synced 2025-03-11 23:09:40 -04:00
fix compiler errors when using gfortran 9
This commit is contained in:
parent
563757dc52
commit
d9e0de9a58
@ -13,7 +13,7 @@ subroutine chkcrc14a(decoded,nbadcrc)
|
||||
read(cbits,1002) ncrc14 !Received CRC14
|
||||
1002 format(77x,b14)
|
||||
|
||||
i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),128+64+32+16+8)
|
||||
i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),transfer(128+64+32+16+8,0_1))
|
||||
i1Dec8BitBytes(11:12)=0
|
||||
icrc14=crc14(c_loc(i1Dec8BitBytes),12) !CRC14 computed from 77 msg bits
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user