1! RUN: %S/test_errors.sh %s %t %flang -fopenmp
2! REQUIRES: shell
3! OpenMP Version 4.5
4! 2.13.9 Depend Clause
5! List items used in depend clauses cannot be zero-length array sections.
6
7program omp_depend
8  integer :: a(10) , b(10,10)
9  a = 10
10  b = 20
11
12  !$omp parallel
13  !$omp single
14
15  !ERROR: 'a' in DEPEND clause is a zero size array section
16  !ERROR: 'b' in DEPEND clause is a zero size array section
17  !$omp task shared(a,b) depend(out: a(2:1), b(3:1, 1:-1))
18  a(2:1) = b(2, 2)
19  !$omp end task
20
21  !ERROR: Stride should not be specified for array section in DEPEND clause
22  !$omp task shared(x) depend(in: a(5:10:1))
23  print *, a(5:10), b
24  !$omp end task
25
26  !$omp end single
27  !$omp end parallel
28
29end program omp_depend
30