20 lines · plain
1! RUN: bbc -fopenmp -pft-test -o %t %s | FileCheck %s2! RUN: %flang_fc1 -fopenmp -fdebug-dump-pft -o %t %s | FileCheck %s3 4! Test structure of the Pre-FIR tree with OpenMP5 6subroutine sub1(a, b, n)7 real :: a(:), b(:)8 integer :: n, i9 !$omp parallel do10 do i = 1, n11 b(i) = exp(a(i))12 end do13 !$omp end parallel do14end subroutine15 16! CHECK-LABEL: Subroutine sub117! CHECK: <<OpenMPConstruct>>18! CHECK: <<DoConstruct>>19! CHECK: <<End OpenMPConstruct>>20