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

Reviewed By: razvanlupusoru

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

Author: clementval

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);

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