flang/test/Semantics/OpenMP/parallel-sections-do.f90

   1 ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
   2
   3 ! Check that loop iteration variables are private and predetermined, even when
   4 ! nested inside parallel/sections constructs.
   5
   6 !DEF: /test1 (Subroutine) Subprogram
   7 subroutine test1
   8   !DEF: /test1/i ObjectEntity INTEGER(4)
   9   integer i
  10
  11   !$omp parallel default(none)
  12     !$omp sections
  13       !$omp section
  14         !DEF: /test1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  15         do i = 1, 10
  16         end do
  17     !$omp end sections
  18   !$omp end parallel
  19 end subroutine