1! This test checks lowering of OpenACC routine directive. 2 3! RUN: bbc -fopenacc -emit-hlfir %s -o - | FileCheck %s 4 5module 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 12contains 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 25end module 26