diff --git a/chkcrc14a.f90 b/chkcrc14a.f90
index 409ba9e..9768653 100644
--- a/chkcrc14a.f90
+++ b/chkcrc14a.f90
@@ -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