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