[flang-commits] [flang] c3dddee - [flang] Allow exterior branch to outermost WHERE construct statement

[Peter Klausler via flang-commits]

Author: Peter Klausler
Date: 2021-11-11T13:14:42-08:00
New Revision: c3dddeeafb529e769cde87bd29ef6271ac6bfa5c

URL: https://github.com/llvm/llvm-project/commit/c3dddeeafb529e769cde87bd29ef6271ac6bfa5c
DIFF: https://github.com/llvm/llvm-project/commit/c3dddeeafb529e769cde87bd29ef6271ac6bfa5c.diff

LOG: [flang] Allow exterior branch to outermost WHERE construct statement

The labels of WHERE constructs were being created within the scope of
the construct, not the scope of its parent, leading to incorrect error
messages for branches to that label.

Differential Revision: https://reviews.llvm.org/D113696

Added: 
    

Modified: 
    flang/lib/Semantics/resolve-labels.cpp

Removed: 
    


################################################################################
diff  --git a/flang/lib/Semantics/resolve-labels.cpp b/flang/lib/Semantics/resolve-labels.cpp
index 2363c832e1ec3..83c2ff79e4588 100644
--- a/flang/lib/Semantics/resolve-labels.cpp
+++ b/flang/lib/Semantics/resolve-labels.cpp
@@ -229,7 +229,8 @@ class ParseTreeAnalyzer {
     using LabeledConstructStmts = std::tuple<parser::AssociateStmt,
         parser::BlockStmt, parser::ChangeTeamStmt, parser::CriticalStmt,
         parser::IfThenStmt, parser::NonLabelDoStmt, parser::SelectCaseStmt,
-        parser::SelectRankStmt, parser::SelectTypeStmt>;
+        parser::SelectRankStmt, parser::SelectTypeStmt,
+        parser::WhereConstructStmt>;
     using LabeledConstructEndStmts = std::tuple<parser::EndAssociateStmt,
         parser::EndBlockStmt, parser::EndChangeTeamStmt,
         parser::EndCriticalStmt, parser::EndDoStmt, parser::EndForallStmt,