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