1!RUN: %S/test_errors.sh %s %t %flang -fopenmp
2!REQUIRES: shell
3! OpenMP Version 4.5
4! 2.15.3.1 default Clause - a positive test case.
5
6!DEF: /omp_default MainProgram
7program omp_default
8 !DEF: /omp_default/a ObjectEntity INTEGER(4)
9 !DEF: /omp_default/b ObjectEntity INTEGER(4)
10 !DEF: /omp_default/c ObjectEntity INTEGER(4)
11 !DEF: /omp_default/i ObjectEntity INTEGER(4)
12 !DEF: /omp_default/k ObjectEntity INTEGER(4)
13 integer a(10), b(10), c(10), i, k
14!$omp parallel  default(shared)
15 !DEF: /omp_default/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
16 do i=1,10
17  !REF: /omp_default/c
18  !REF: /omp_default/Block1/i
19  !REF: /omp_default/a
20  !REF: /omp_default/b
21  !REF: /omp_default/k
22  c(i) = a(i)+b(i)+k
23 end do
24!$omp end parallel
25!$omp task  default(shared)
26 !DEF: /omp_default/Block2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
27 do i=1,10
28  !REF: /omp_default/c
29  !REF: /omp_default/Block2/i
30  !REF: /omp_default/a
31  !REF: /omp_default/b
32  !REF: /omp_default/k
33  c(i) = a(i)+b(i)+k
34 end do
35!$omp end task
36!$omp taskloop  default(shared)
37 !DEF: /omp_default/Block3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
38 do i=1,10
39  !REF: /omp_default/c
40  !REF: /omp_default/Block3/i
41  !REF: /omp_default/a
42  !REF: /omp_default/b
43  !REF: /omp_default/k
44  c(i) = a(i)+b(i)+k
45 end do
46!$omp end taskloop
47!$omp teams  default(shared)
48 !REF: /omp_default/i
49 do i=1,10
50  !REF: /omp_default/c
51  !REF: /omp_default/i
52  !REF: /omp_default/a
53  !REF: /omp_default/b
54  !REF: /omp_default/k
55  c(i) = a(i)+b(i)+k
56 end do
57!$omp end teams
58end program omp_default
59