adding test

Author: akuhlens

flang/include/flang/Semantics/symbol.h

@@ -142,7 +142,11 @@ class OpenACCRoutineDeviceTypeInfo {
   const std::string *bindName() const {
     return bindName_ ? &*bindName_ : nullptr;
   }
-  void set_bindName(std::string &&name) { bindName_ = std::move(name); }
+  bool bindNameIsInternal() const {return bindNameIsInternal_;}
+  void set_bindName(std::string &&name, bool isInternal=false) { 
+    bindName_ = std::move(name); 
+    bindNameIsInternal_ = isInternal;
+  }
 
   Fortran::common::OpenACCDeviceType dType() const { return deviceType_; }
 
@@ -153,6 +157,7 @@ class OpenACCRoutineDeviceTypeInfo {
   bool isGang_{false};
   unsigned gangDim_{0};
   std::optional<std::string> bindName_;
+  bool bindNameIsInternal_{false};
   Fortran::common::OpenACCDeviceType deviceType_{
       Fortran::common::OpenACCDeviceType::None};
 };

flang/lib/Semantics/resolve-directives.cpp

@@ -1077,10 +1077,12 @@ void AccAttributeVisitor::AddRoutineInfoToSymbol(
       } else if (const auto *bindClause =
                      std::get_if<Fortran::parser::AccClause::Bind>(&clause.u)) {
         std::string bindName = "";
+        bool isInternal = false;
         if (const auto *name =
                 std::get_if<Fortran::parser::Name>(&bindClause->v.u)) {
           if (Symbol *sym = ResolveFctName(*name)) {
             bindName = sym->name().ToString();
+            isInternal = true;
           } else {
             context_.Say((*name).source,
                 "No function or subroutine declared for '%s'"_err_en_US,
@@ -1100,12 +1102,14 @@ void AccAttributeVisitor::AddRoutineInfoToSymbol(
         if (!bindName.empty()) {
           // Fixme: do we need to ensure there there is only one device?
           for (auto &device : currentDevices) {
-            device->set_bindName(std::string(bindName));
+            device->set_bindName(std::string(bindName), isInternal);
           }
         }
       }
     }
     symbol.get<SubprogramDetails>().add_openACCRoutineInfo(info);
+  } else {
+    llvm::errs() << "Couldnot add routine info to symbol: " << symbol.name() << "\n";
   }
 }
 

flang/test/Lower/OpenACC/acc-module-definition.f90

@@ -0,0 +1,17 @@
+! RUN: rm -fr %t && mkdir -p %t && cd %t
+! RUN: bbc -fopenacc -emit-fir %s
+! RUN: cat mod1.mod | FileCheck %s
+
+!CHECK-LABEL: module mod1
+module mod1
+    contains
+      !CHECK subroutine callee(aa)
+      subroutine callee(aa)
+      !CHECK: !$acc routine seq
+      !$acc routine seq
+        integer :: aa
+        aa = 1
+      end subroutine
+      !CHECK: end
+      !CHECK: end
+end module

flang/test/Lower/OpenACC/acc-routine-use-module.f90

@@ -0,0 +1,23 @@
+! RUN: rm -fr %t && mkdir -p %t && cd %t
+! RUN: bbc -emit-fir %S/acc-module-definition.f90
+! RUN: bbc -emit-fir %s -o - | FileCheck %s
+
+! This test module is based off of flang/test/Lower/use_module.f90
+! The first runs ensures the module file is generated.
+
+module use_mod1
+  use mod1
+  contains
+    !CHECK: func.func @_QMuse_mod1Pcaller
+    !CHECK-SAME {
+    subroutine caller(aa)
+      integer :: aa
+      !$acc serial
+      !CHECK: fir.call @_QMmod1Pcallee
+      call callee(aa)
+      !$acc end serial
+    end subroutine
+    !CHECK: }
+    !CHECK: acc.routine @acc_routine_0 func(@_QMmod1Pcallee) seq
+    !CHECK: func.func private @_QMmod1Pcallee(!fir.ref<i32>) attributes {acc.routine_info = #acc.routine_info<[@acc_routine_0]>}
+end module