flang/test/Semantics/OpenMP/do04-positivecase.f90

   1 ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.7.1 Do Loop Constructs
   4
   5 !DEF: /omp_do1 MainProgram
   6 program omp_do1
   7   !DEF: /omp_do1/i ObjectEntity INTEGER(4)
   8   !DEF: /omp_do1/j ObjectEntity INTEGER(4)
   9   !DEF: /omp_do1/k (OmpThreadprivate) ObjectEntity INTEGER(4)
  10   !DEF: /omp_do1/n (OmpThreadprivate) ObjectEntity INTEGER(4)
  11   integer i, j, k, n
  12   !$omp threadprivate (k,n)
  13   !$omp do
  14   !DEF: /omp_do1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  15   do i=1,10
  16     !REF: /omp_do1/j
  17     do j=1,10
  18       print *, "Hello"
  19     end do
  20   end do
  21   !$omp end do
  22 end program omp_do1