flang/test/Semantics/OpenMP/omp-depend03.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2 ! OpenMP Version 4.5
   3 ! 2.13.9 Depend Clause
   4 ! Coarrays are not supported in depend clause
   5
   6 program omp_depend_coarray
   7   integer :: a(3)[*], b(3) , k
   8
   9   a(:) = this_image()
  10   b(:) = a(:)[1]
  11   k = 10
  12
  13   !$omp parallel
  14   !$omp single
  15   !ERROR: Coarrays are not supported in DEPEND clause
  16   !$omp task shared(b) depend(out: a(:)[1])
  17   b = a + k
  18   !$omp end task
  19   !$omp end single
  20   !$omp end parallel
  21
  22   print *, a, b
  23
  24 end program omp_depend_coarray