flang/test/Semantics/OpenMP/do14.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_cycle MainProgram
   6 program omp_cycle
   7   !$omp do  collapse(1)
   8   !DEF: /omp_cycle/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
   9   do i=0,10
  10     cycle
  11     !DEF: /omp_cycle/j (Implicit) ObjectEntity INTEGER(4)
  12     do j=0,10
  13       !DEF: /omp_cycle/k (Implicit) ObjectEntity INTEGER(4)
  14       do k=0,10
  15         !REF: /omp_cycle/OtherConstruct1/i
  16         !REF: /omp_cycle/j
  17         !REF: /omp_cycle/k
  18         print *, i, j, k
  19       end do
  20     end do
  21   end do
  22   !$omp end do
  23
  24   !$omp do  collapse(1)
  25   !DEF: /omp_cycle/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  26   do i=0,10
  27     !REF: /omp_cycle/j
  28     do j=0,10
  29       cycle
  30       !REF: /omp_cycle/k
  31       do k=0,10
  32         !REF: /omp_cycle/OtherConstruct2/i
  33         !REF: /omp_cycle/j
  34         !REF: /omp_cycle/k
  35         print *, i, j, k
  36       end do
  37     end do
  38   end do
  39   !$omp end do
  40
  41   !$omp do  collapse(2)
  42   !DEF: /omp_cycle/OtherConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  43   do i=0,10
  44     !DEF: /omp_cycle/OtherConstruct3/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  45     do j=0,10
  46       !REF: /omp_cycle/k
  47       do k=0,10
  48         cycle
  49         !REF: /omp_cycle/OtherConstruct3/i
  50         !REF: /omp_cycle/OtherConstruct3/j
  51         !REF: /omp_cycle/k
  52         print *, i, j, k
  53       end do
  54     end do
  55   end do
  56   !$omp end do
  57
  58   !$omp do  collapse(3)
  59   !DEF: /omp_cycle/OtherConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  60   do i=0,10
  61     !DEF: /omp_cycle/OtherConstruct4/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  62     do j=0,10
  63       !DEF: /omp_cycle/OtherConstruct4/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  64       do k=0,10
  65         cycle
  66         !REF: /omp_cycle/OtherConstruct4/i
  67         !REF: /omp_cycle/OtherConstruct4/j
  68         !REF: /omp_cycle/OtherConstruct4/k
  69         print *, i, j, k
  70       end do
  71     end do
  72   end do
  73   !$omp end do
  74
  75   !$omp do  ordered(3)
  76   !DEF: /omp_cycle/OtherConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  77   foo:do i=0,10
  78     !DEF: /omp_cycle/OtherConstruct5/j (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  79     foo1:do j=0,10
  80       !DEF: /omp_cycle/OtherConstruct5/k (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  81       foo2:do k=0,10
  82         cycle foo2
  83         !REF: /omp_cycle/OtherConstruct5/i
  84         !REF: /omp_cycle/OtherConstruct5/j
  85         !REF: /omp_cycle/OtherConstruct5/k
  86         print *, i, j, k
  87       end do foo2
  88     end do foo1
  89   end do foo
  90   !$omp end do
  91 end program omp_cycle