flang/test/Semantics/OpenMP/do-collapse-positivecases.f90

   1 !RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.7.1 Collapse Clause Positive cases
   4
   5 !DEF: /omp_docollapse MainProgram
   6 program omp_docollapse
   7   !DEF: /omp_docollapse/i ObjectEntity INTEGER(4)
   8   !DEF: /omp_docollapse/j ObjectEntity INTEGER(4)
   9   !DEF: /omp_docollapse/k ObjectEntity INTEGER(4)
  10   integer i, j, k
  11   !$omp do  collapse(2)
  12   !DEF: /omp_docollapse/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  13   do i=1,10
  14     !DEF: /omp_docollapse/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  15     do j=1,10
  16       !REF: /omp_docollapse/k
  17       do k=1,10
  18         print *, "hello"
  19       end do
  20     end do
  21   end do
  22   !$omp end do
  23
  24   !REF: /omp_docollapse/i
  25   do i=1,10
  26   !$omp do  collapse(2)
  27     !DEF: /omp_docollapse/Block1/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  28     do j=1,10
  29       !DEF: /omp_docollapse/Block1/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  30       do k=1,10
  31         print *, "hello"
  32       end do
  33     end do
  34     !$omp end do
  35   end do
  36 end program omp_docollapse