19 lines · plain
1! RUN: bbc -fopenacc -pft-test -o %t %s | FileCheck %s2! RUN: %flang_fc1 -fopenacc -fdebug-dump-pft -o %t %s | FileCheck %s3 4! Test structure of the Pre-FIR tree with OpenACC5 6subroutine sub1(a, b, n)7 real :: a(:), b(:)8 integer :: n, i9 !$acc parallel loop present(a, b)10 do i = 1, n11 b(i) = exp(a(i))12 end do13end subroutine14 15! CHECK-LABEL: Subroutine sub116! CHECK: <<OpenACCConstruct>>17! CHECK: <<DoConstruct>>18! CHECK: <<End OpenACCConstruct>>19