flang/test/Semantics/OpenMP/doconcurrent01.f90

   1 ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
   2
   3 ! OpenMP 5.1.1
   4 ! DO Concurrent indices are private
   5
   6 !DEF: /private_iv (Subroutine)Subprogram
   7 subroutine private_iv
   8    !DEF: /private_iv/i ObjectEntity INTEGER(4)
   9    integer i
  10    !$omp parallel default(private)
  11    !$omp single
  12    !DEF: /private_iv/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  13    do concurrent(i=1:2)
  14    end do
  15    !$omp end single
  16    !$omp end parallel
  17 end subroutine