diff --git a/flang/lib/semantics/tools.cc b/flang/lib/semantics/tools.cc
index d62d05d8c55d..a3788ceca58a 100644
--- a/flang/lib/semantics/tools.cc
+++ b/flang/lib/semantics/tools.cc
@@ -293,8 +293,4 @@ bool ExprTypeKindIsDefault(
       dynamicType->kind ==
       context.defaultKinds().GetDefaultKind(dynamicType->category);
 }
-
-bool ExprIsScalar(const evaluate::GenericExprWrapper &expr) {
-  return !(expr.v.Rank() > 0);
-}
 }
diff --git a/flang/lib/semantics/tools.h b/flang/lib/semantics/tools.h
index 5dfee2f82f9d..f211b0829b8a 100644
--- a/flang/lib/semantics/tools.h
+++ b/flang/lib/semantics/tools.h
@@ -101,6 +101,5 @@ bool ExprHasTypeCategory(
 bool ExprHasTypeKind(const evaluate::GenericExprWrapper &expr, int kind);
 bool ExprTypeKindIsDefault(
     const evaluate::GenericExprWrapper &expr, const SemanticsContext &context);
-bool ExprIsScalar(const evaluate::GenericExprWrapper &expr);
 }
 #endif  // FORTRAN_SEMANTICS_TOOLS_H_