diff --git a/flang/lib/evaluate/host.cc b/flang/lib/evaluate/host.cc
index e41e01d83795..d932c83b74ab 100644
--- a/flang/lib/evaluate/host.cc
+++ b/flang/lib/evaluate/host.cc
@@ -89,7 +89,8 @@ void HostFloatingPointEnvironment::SetUpHostFloatingPointEnvironment(
   case RoundingMode::TiesAwayFromZero:
     fesetround(FE_TONEAREST);
     context.messages().Say(
-        "TiesAwayFromZero rounding mode is not available not available when folding constants with host runtime. Using TiesToEven instead."_en_US);
+        "TiesAwayFromZero rounding mode is not available when folding constants"
+        " with host runtime; using TiesToEven instead"_en_US);
     break;
   }
   flags_.clear();
diff --git a/flang/lib/evaluate/intrinsics.cc b/flang/lib/evaluate/intrinsics.cc
index 08c168b3a90e..b2de5554b582 100644
--- a/flang/lib/evaluate/intrinsics.cc
+++ b/flang/lib/evaluate/intrinsics.cc
@@ -1685,7 +1685,7 @@ std::optional<SpecificCall> IntrinsicProcTable::Implementation::Probe(
             DynamicType newType{GetReturnType(*specIter->second, defaults_)};
             context.messages().Say(
                 "Argument type does not match specific intrinsic '%s' "
-                "requirements, using '%s' generic instead and converting the "
+                "requirements; using '%s' generic instead and converting the "
                 "result to %s if needed"_en_US,
                 name, genericName, newType.AsFortran());
             specificCall->specificIntrinsic.characteristics.value()