37 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3! 2.15.3 Data-Sharing Attribute Clauses4! 2.15.3.1 default Clause5 6subroutine default_none()7 integer a(3)8 integer, parameter :: D=109 A = 110 B = 211 !$omp parallel default(none) private(c)12 !ERROR: The DEFAULT(NONE) clause requires that 'a' must be listed in a data-sharing attribute clause13 A(1:2) = 314 !ERROR: The DEFAULT(NONE) clause requires that 'b' must be listed in a data-sharing attribute clause15 B = 416 C = 5 + D17 !$omp end parallel18end subroutine default_none19 20! Test that indices of sequential loops are privatised and hence do not error21! for DEFAULT(NONE)22subroutine default_none_seq_loop23 integer :: i24 25 !$omp parallel do default(none)26 do i = 1, 1027 do j = 1, 2028 enddo29 enddo30end subroutine31 32program mm33 call default_none()34 call default_none_seq_loop()35 !TODO: private, firstprivate, shared36end37