[flang][openacc] Fix name resolution on routine bind clause

Reviewed By: razvanlupusoru Differential Revision: https://reviews.llvm.org/D158120
llvm · Aug 16, 2023 · e2f6891 · e2f6891
1 parent bb5f64a
commit e2f6891
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/flang/lib/Semantics/resolve-directives.cpp b/flang/lib/Semantics/resolve-directives.cpp
@@ -846,7 +846,7 @@ bool AccAttributeVisitor::Pre(const parser::OpenACCRoutineConstruct &x) {
 
 bool AccAttributeVisitor::Pre(const parser::AccBindClause &x) {
   if (const auto *name{std::get_if<parser::Name>(&x.u)}) {
-    if (!ResolveName(*name)) {
+    if (!ResolveName(*name, true)) {
       context_.Say(name->source,
           "No function or subroutine declared for '%s'"_err_en_US,
           name->source);

diff --git a/flang/test/Semantics/OpenACC/acc-routine.f90 b/flang/test/Semantics/OpenACC/acc-routine.f90
@@ -9,3 +9,7 @@ subroutine sub2(a)
   real, dimension(10) :: a
   call sub1(a)
 end subroutine
+
+subroutine sub3()
+  !$acc routine bind(sub1)
+end subroutine