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

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