58 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.15.3.1 default Clause - a positive test case.4 5!DEF: /omp_default MainProgram6program omp_default7 !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, k13!$omp parallel default(shared)14 !DEF: /omp_default/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)15 do i=1,1016 !REF: /omp_default/c17 !REF: /omp_default/Block1/i18 !REF: /omp_default/a19 !REF: /omp_default/b20 !REF: /omp_default/k21 c(i) = a(i)+b(i)+k22 end do23!$omp end parallel24!$omp task default(shared)25 !DEF: /omp_default/Block2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)26 do i=1,1027 !REF: /omp_default/c28 !REF: /omp_default/Block2/i29 !REF: /omp_default/a30 !REF: /omp_default/b31 !REF: /omp_default/k32 c(i) = a(i)+b(i)+k33 end do34!$omp end task35!$omp taskloop default(shared)36 !DEF: /omp_default/Block3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)37 do i=1,1038 !REF: /omp_default/c39 !REF: /omp_default/Block3/i40 !REF: /omp_default/a41 !REF: /omp_default/b42 !REF: /omp_default/k43 c(i) = a(i)+b(i)+k44 end do45!$omp end taskloop46!$omp teams default(shared)47 !REF: /omp_default/i48 do i=1,1049 !REF: /omp_default/c50 !REF: /omp_default/i51 !REF: /omp_default/a52 !REF: /omp_default/b53 !REF: /omp_default/k54 c(i) = a(i)+b(i)+k55 end do56!$omp end teams57end program omp_default58