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

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