forked from OSchip/llvm-project
19 lines
474 B
Fortran
19 lines
474 B
Fortran
! RUN: bbc -fopenacc -pft-test -o %t %s | FileCheck %s
|
|
! RUN: %flang_fc1 -fopenacc -fdebug-dump-pft -o %t %s | FileCheck %s
|
|
|
|
! Test structure of the Pre-FIR tree with OpenACC
|
|
|
|
subroutine sub1(a, b, n)
|
|
real :: a(:), b(:)
|
|
integer :: n, i
|
|
!$acc parallel loop present(a, b)
|
|
do i = 1, n
|
|
b(i) = exp(a(i))
|
|
end do
|
|
end subroutine
|
|
|
|
! CHECK-LABEL: Subroutine sub1
|
|
! CHECK: <<OpenACCConstruct>>
|
|
! CHECK: <<DoConstruct>>
|
|
! CHECK: <<End OpenACCConstruct>>
|