1! RUN: %S/test_errors.sh %s %t %flang -fopenmp 2! REQUIRES: shell 3 4! 2.15.3 Data-Sharing Attribute Clauses 5! 2.15.3.1 default Clause 6 7subroutine default_none() 8 integer a(3) 9 10 A = 1 11 B = 2 12 !$omp parallel default(none) private(c) 13 !ERROR: The DEFAULT(NONE) clause requires that 'a' must be listed in a data-sharing attribute clause 14 A(1:2) = 3 15 !ERROR: The DEFAULT(NONE) clause requires that 'b' must be listed in a data-sharing attribute clause 16 B = 4 17 C = 5 18 !$omp end parallel 19end subroutine default_none 20 21program mm 22 call default_none() 23 !TODO: private, firstprivate, shared 24end 25