diff --git a/flang/lib/Semantics/resolve-names.cpp b/flang/lib/Semantics/resolve-names.cpp index 74367b5229548..a04d976c69f05 100644 --- a/flang/lib/Semantics/resolve-names.cpp +++ b/flang/lib/Semantics/resolve-names.cpp @@ -1384,6 +1384,20 @@ class AccVisitor : public virtual DeclarationVisitor { void Post(const parser::AccEndBlockDirective &) { messageHandler().set_currStmtSource(std::nullopt); } + bool Pre(const parser::AccBeginCombinedDirective &x) { + AddAccSourceRange(x.source); + return true; + } + void Post(const parser::AccBeginCombinedDirective &) { + messageHandler().set_currStmtSource(std::nullopt); + } + bool Pre(const parser::AccEndCombinedDirective &x) { + AddAccSourceRange(x.source); + return true; + } + void Post(const parser::AccEndCombinedDirective &) { + messageHandler().set_currStmtSource(std::nullopt); + } bool Pre(const parser::AccBeginLoopDirective &x) { AddAccSourceRange(x.source); return true;