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