diff --git a/flang/include/flang/Evaluate/check-expression.h b/flang/include/flang/Evaluate/check-expression.h
--- a/flang/include/flang/Evaluate/check-expression.h
+++ b/flang/include/flang/Evaluate/check-expression.h
@@ -52,7 +52,7 @@
 template <typename A>
 void CheckSpecificationExpr(const A &, parser::ContextualMessages &,
     const semantics::Scope &, const IntrinsicProcTable &,
-    const SpecificationExprContext);
+    SpecificationExprContext);
 extern template void CheckSpecificationExpr(const Expr<SomeType> &x,
     parser::ContextualMessages &, const semantics::Scope &,
     const IntrinsicProcTable &, const SpecificationExprContext);
diff --git a/flang/lib/Evaluate/check-expression.cpp b/flang/lib/Evaluate/check-expression.cpp
--- a/flang/lib/Evaluate/check-expression.cpp
+++ b/flang/lib/Evaluate/check-expression.cpp
@@ -320,7 +320,7 @@
 template <typename A>
 void CheckSpecificationExpr(const A &x, parser::ContextualMessages &messages,
     const semantics::Scope &scope, const IntrinsicProcTable &table,
-    const SpecificationExprContext specExprContext) {
+    SpecificationExprContext specExprContext) {
   if (auto why{
           CheckSpecificationExprHelper{scope, table, specExprContext}(x)}) {
     messages.Say("Invalid specification expression: %s"_err_en_US, *why);