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