flang/test/Lower/OpenACC/acc-routine-named.f90

   1 ! This test checks lowering of OpenACC routine directive.
   2
   3 ! RUN: bbc -fopenacc -emit-hlfir %s -o - | FileCheck %s
   4
   5 module acc_routines
   6
   7 ! CHECK: acc.routine @acc_routine_1 func(@_QMacc_routinesPacc2)
   8 ! CHECK: acc.routine @acc_routine_0 func(@_QMacc_routinesPacc1) seq
   9
  10 !$acc routine(acc1) seq
  11
  12 contains
  13
  14   subroutine acc1()
  15   end subroutine
  16
  17 ! CHECK-LABEL: func.func @_QMacc_routinesPacc1() attributes {acc.routine_info = #acc.routine_info<[@acc_routine_0]>}
  18
  19   subroutine acc2()
  20     !$acc routine(acc2)
  21   end subroutine
  22
  23 ! CHECK-LABEL: func.func @_QMacc_routinesPacc2() attributes {acc.routine_info = #acc.routine_info<[@acc_routine_1]>}
  24
  25 end module