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