44 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.15.3.1 default Clause4program omp_default5 integer :: a(10), b(10), c(10),i,k6 !ERROR: At most one DEFAULT clause can appear on the PARALLEL directive7 !$omp parallel default(shared), default(private)8 do i = 1, 109 c(i) = a(i) + b(i) + k10 end do11 !$omp end parallel12 13 !ERROR: At most one DEFAULT clause can appear on the TASK directive14 !$omp task default(shared), default(none), shared(a,b,c,k,i)15 do i = 1, 1016 c(i) = a(i) + b(i) + k17 end do18 !$omp end task19 20 !ERROR: At most one DEFAULT clause can appear on the TASKLOOP directive21 !$omp taskloop default(shared), default(private)22 do i = 1, 1023 c(i) = a(i) + b(i) + k24 end do25 !$omp end taskloop26 27 !ERROR: At most one DEFAULT clause can appear on the TEAMS directive28 !$omp teams default(shared), default(none), shared(i,a,b,k,c)29 do i = 1, 1030 c(i) = a(i) + b(i) + k31 end do32 !$omp end teams33 34 !$omp parallel35 !ERROR: DEFAULT clause is not allowed on the DO directive36 !$omp do default(private)37 do i = 1, 1038 k = i39 end do40 !$omp end do41 !$omp end parallel42 43end program omp_default44