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! Coarrays are not supported in depend clause
6
7program omp_depend_coarray
8  integer :: a(3)[*], b(3) , k
9
10  a(:) = this_image()
11  b(:) = a(:)[1]
12  k = 10
13
14  !$omp parallel
15  !$omp single
16  !ERROR: Coarrays are not supported in DEPEND clause
17  !$omp task shared(b) depend(out: a(:)[1])
18  b = a + k
19  !$omp end task
20  !$omp end single
21  !$omp end parallel
22
23  print *, a, b
24
25end program omp_depend_coarray
26