28 lines · plain
1! This test checks lowering of OpenACC routine directive.2 3! RUN: bbc -fopenacc -emit-hlfir %s -o - | FileCheck %s4 5module acc_routines6 7! CHECK: acc.routine @[[r0:.*]] func(@_QMacc_routinesPacc2)8! CHECK: acc.routine @[[r1:.*]] func(@_QMacc_routinesPacc1) seq9 10!$acc routine(acc1) seq11 12contains13 14 subroutine acc1()15 end subroutine16 17! CHECK-LABEL: func.func @_QMacc_routinesPacc1()18! CHECK-SAME:attributes {acc.routine_info = #acc.routine_info<[@[[r1]]]>}19 20 subroutine acc2()21 !$acc routine(acc2)22 end subroutine23 24! CHECK-LABEL: func.func @_QMacc_routinesPacc2()25! CHECK-SAME:attributes {acc.routine_info = #acc.routine_info<[@[[r0]]]>}26 27end module28