21 lines · plain
1! This test checks lowering of OpenACC routine directive.2 3! RUN: bbc -fopenacc -emit-hlfir %s -o - | FileCheck %s4 5subroutine sub1(a, n)6 integer :: n7 real :: a(n)8end subroutine sub19 10!$acc routine(sub1)11 12program test13 integer, parameter :: N = 1014 real :: a(N)15 call sub1(a, N)16end program17 18! CHECK-LABEL: acc.routine @acc_routine_0 func(@_QPsub1)19 20! CHECK: func.func @_QPsub1(%ar{{.*}}: !fir.ref<!fir.array<?xf32>> {fir.bindc_name = "a"}, %arg1: !fir.ref<i32> {fir.bindc_name = "n"}) attributes {acc.routine_info = #acc.routine_info<[@acc_routine_0]>}21