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