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

   1 ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.7.1 Loop Construct
   4 ! The loop iteration variable may not appear in a firstprivate directive.
   5 ! A positive case
   6
   7 !DEF: /omp_do MainProgram
   8 program omp_do
   9   !DEF: /omp_do/i ObjectEntity INTEGER(4)
  10   integer i
  11
  12   !$omp do  firstprivate(k)
  13   !DEF: /omp_do/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  14   do i=1,10
  15     print *, "Hello"
  16   end do
  17   !$omp end do
  18
  19 end program omp_do