Skip to content

Commit c3dddee

Browse files
committed
[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
1 parent e796924 commit c3dddee

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

flang/lib/Semantics/resolve-labels.cpp

+2-1
Original file line numberDiff line numberDiff line change
@@ -229,7 +229,8 @@ class ParseTreeAnalyzer {
229229
using LabeledConstructStmts = std::tuple<parser::AssociateStmt,
230230
parser::BlockStmt, parser::ChangeTeamStmt, parser::CriticalStmt,
231231
parser::IfThenStmt, parser::NonLabelDoStmt, parser::SelectCaseStmt,
232-
parser::SelectRankStmt, parser::SelectTypeStmt>;
232+
parser::SelectRankStmt, parser::SelectTypeStmt,
233+
parser::WhereConstructStmt>;
233234
using LabeledConstructEndStmts = std::tuple<parser::EndAssociateStmt,
234235
parser::EndBlockStmt, parser::EndChangeTeamStmt,
235236
parser::EndCriticalStmt, parser::EndDoStmt, parser::EndForallStmt,

0 commit comments

Comments
 (0)