Index: flang/lib/Evaluate/intrinsics.cpp
===================================================================
--- flang/lib/Evaluate/intrinsics.cpp
+++ flang/lib/Evaluate/intrinsics.cpp
@@ -2409,11 +2409,6 @@
         return specificCall;
       }
     }
-    if (IsIntrinsicFunction(call.name)) {
-      context.messages().Say(
-          "Cannot use intrinsic function '%s' as a subroutine"_err_en_US,
-          call.name);
-    }
     return std::nullopt; // TODO
   }
 
@@ -2504,13 +2499,6 @@
     }
   }
 
-  if (specificBuffer.empty() && genericBuffer.empty() &&
-      IsIntrinsicSubroutine(call.name)) {
-    context.messages().Say(
-        "Cannot use intrinsic subroutine '%s' as a function"_err_en_US,
-        call.name);
-  }
-
   // No match; report the right errors, if any
   if (finalBuffer) {
     if (specificBuffer.empty()) {