flang/test/Lower/OpenMP/pre-fir-tree01.f90

   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
   6 subroutine 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
  14 end subroutine
  15
  16 ! CHECK-LABEL: Subroutine sub1
  17 ! CHECK:       <<OpenMPConstruct>>
  18 ! CHECK:       <<DoConstruct>>
  19 ! CHECK:       <<End OpenMPConstruct>>