1! RUN: bbc -fopenacc -pft-test -o %t %s | FileCheck %s 2! RUN: %flang_fc1 -fopenacc -fdebug-dump-pft -o %t %s | FileCheck %s 3 4! Test structure of the Pre-FIR tree with OpenACC 5 6subroutine sub1(a, b, n) 7 real :: a(:), b(:) 8 integer :: n, i 9 !$acc parallel loop present(a, b) 10 do i = 1, n 11 b(i) = exp(a(i)) 12 end do 13end subroutine 14 15! CHECK-LABEL: Subroutine sub1 16! CHECK: <<OpenACCConstruct>> 17! CHECK: <<DoConstruct>> 18! CHECK: <<End OpenACCConstruct>> 19