20 lines
563 B
Fortran
20 lines
563 B
Fortran
! This test checks lowering of OpenACC routine directive.
|
|
|
|
! RUN: bbc -fopenacc -emit-hlfir %s -o - | FileCheck %s
|
|
|
|
subroutine sub1(a, n)
|
|
integer :: n
|
|
real :: a(n)
|
|
end subroutine sub1
|
|
|
|
!$acc routine(sub1)
|
|
|
|
program test
|
|
integer, parameter :: N = 10
|
|
real :: a(N)
|
|
call sub1(a, N)
|
|
end program
|
|
|
|
! CHECK-LABEL: acc.routine @acc_routine_0 func(@_QPsub1)
|
|
|
|
! 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]>}
|