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