diff --git a/tools/flang2/flang2exe/exp_ftn.cpp b/tools/flang2/flang2exe/exp_ftn.cpp
index 253528f7a10..ecdf65d239a 100644
--- a/tools/flang2/flang2exe/exp_ftn.cpp
+++ b/tools/flang2/flang2exe/exp_ftn.cpp
@@ -3442,7 +3442,7 @@ exp_bran(ILM_OP opc, ILM *ilmp, int curilm)
     break;
 
   case IM_KAIF: /* integer*8 arithmetic IF */
-    type = 4;
+    type = 3;
     goto comaif;
   case IM_IAIF: /* integer arithmetic IF */
     type = 0;