1! RUN: %python %S/../test_errors.py %s %flang -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  integer, parameter :: D=10
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 + D
17  !$omp end parallel
18end subroutine default_none
19
20program mm
21  call default_none()
22  !TODO: private, firstprivate, shared
23end
24