[flang] fix typo

Original-commit: flang-compiler/f18@fc88b92af0952476b2f592b5bfb08e4d4d120ca3
Reviewed-on: https://github.com/flang-compiler/f18/pull/332

diff --git a/flang/lib/semantics/check-do-concurrent.cc b/flang/lib/semantics/check-do-concurrent.cc
index cb3aa54..40ac612 100644 (file)
--- a/flang/lib/semantics/check-do-concurrent.cc
+++ b/flang/lib/semantics/check-do-concurrent.cc
@@ -364,7 +364,7 @@ public:
         if (!ExpressionHasTypeCategory(logicalExpr.value().typedExpr.value(),
                 common::TypeCategory::Logical)) {
           messages_.Say(currentStatementSourcePosition_,
-              "DO WHERE must have LOGICAL expression"_err_en_US);
+              "DO WHILE must have LOGICAL expression"_err_en_US);
         }
       }
     }