[flang] Fix a bug with BLOCK DATA name matching

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

diff --git a/flang/lib/semantics/resolve-labels.cc b/flang/lib/semantics/resolve-labels.cc
index 668ae8ed6d2b75b00015fc7269d828592369bafe..d89c6e9a6f4fbc634113e706eaace08cf32edf1f 100644 (file)
--- a/flang/lib/semantics/resolve-labels.cc
+++ b/flang/lib/semantics/resolve-labels.cc
@@ -318,10 +318,10 @@ public:
 
   // C1414
   void Post(const parser::BlockData &blockData) {
-    if (!namesBothEqualOrBothNone(
-            std::get<parser::Statement<parser::BlockDataStmt>>(blockData.t)
-                .statement.v,
+    if (!firstNameNoneOrBothEqual(
             std::get<parser::Statement<parser::EndBlockDataStmt>>(blockData.t)
+                .statement.v,
+            std::get<parser::Statement<parser::BlockDataStmt>>(blockData.t)
                 .statement.v)) {
       errorHandler_.Say(currentPosition_,
           parser::MessageFormattedText{"BLOCK DATA name mismatch"_err_en_US});