From d9e0de9a588936f0a6c4090da9d48680b373201a Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Wed, 1 May 2019 13:40:10 +0200
Subject: [PATCH] fix compiler errors when using gfortran 9

---
 chkcrc14a.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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