diff --git a/flang/lib/Semantics/check-call.cpp b/flang/lib/Semantics/check-call.cpp
--- a/flang/lib/Semantics/check-call.cpp
+++ b/flang/lib/Semantics/check-call.cpp
@@ -313,8 +313,8 @@
   allowActualArgumentConversions &= !typesCompatibleWithIgnoreTKR;
   if (allowActualArgumentConversions) {
     ConvertIntegerActual(actual, dummy.type, actualType, messages);
+    ConvertLogicalActual(actual, dummy.type, actualType);
   }
-  ConvertLogicalActual(actual, dummy.type, actualType);
   bool typesCompatible{typesCompatibleWithIgnoreTKR ||
       dummy.type.type().IsTkCompatibleWith(actualType.type())};
   int dummyRank{dummy.type.Rank()};
diff --git a/flang/test/Evaluate/logical-args.f90 b/flang/test/Evaluate/logical-args.f90
--- a/flang/test/Evaluate/logical-args.f90
+++ b/flang/test/Evaluate/logical-args.f90
@@ -2,7 +2,20 @@
 ! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
 ! RUN: %flang_fc1 -fdebug-unparse -fdefault-integer-8 %s 2>&1 | FileCheck %s --check-prefixes CHECK-8
 
+module m
+  interface foog
+     subroutine foo4(l)
+       logical(kind=4), intent(in) :: l
+     end subroutine foo4
+
+     subroutine foo8(l)
+       logical(kind=8), intent(in) :: l
+     end subroutine foo8
+  end interface foog
+end module m
+
 program main
+  use m
   integer :: x(10), y
   ! CHECK: CALL foo(.true._4)
   ! CHECK-8: CALL foo(logical(.true._4,kind=8))
@@ -11,6 +24,11 @@
   ! CHECK-8: CALL fooa(logical(x>y,kind=8))
   call fooa(x > y)
 
+  ! Ensure that calls to interfaces call the correct subroutine
+  ! CHECK: CALL foo4(.true._4)
+  ! CHECK-8: CALL foo8(.true._8)
+  call foog(.true.)
+
   contains
     subroutine foo(l)
       logical :: l
@@ -19,4 +37,5 @@
     subroutine fooa(l)
       logical :: l(10)
     end subroutine fooa
+
 end program main