[flang] Disallow BOZ literal constants as arguments of implicit inter…

…faces

Since BOZ literal arguments are typeless, we cannot know how to pass them as
actual arguments to procedures with implicit interfaces.  This change avoids
the problem by emitting an error message in such situations.

This change stemmed from the following issue --
  #794

Differential Revision: https://reviews.llvm.org/D106831

flang/lib/Semantics/check-call.cpp

@@ -46,7 +46,7 @@ static void CheckImplicitInterfaceArg(
     }
   }
   if (const auto *expr{arg.UnwrapExpr()}) {
-    if (IsBOZLiteral(*expr)) {
+    if (std::holds_alternative<evaluate::BOZLiteralConstant>(expr->u)) {
       messages.Say("BOZ argument requires an explicit interface"_err_en_US);
     } else if (evaluate::IsNullPointer(*expr)) {
       messages.Say(

flang/test/Semantics/boz-literal-constants.f90

@@ -79,7 +79,4 @@ subroutine bozchecks
 
   !ERROR: BOZ argument requires an explicit interface
   call implictSub(Z'12345')
-
-  !ERROR: Output item must not be a BOZ literal constant
-  print "(Z18)", Z"76543210"
 end subroutine