forked from OSchip/llvm-project
25 lines
492 B
Fortran
25 lines
492 B
Fortran
|
! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
|
||
|
|
! OpenMP Version 4.5
|
||
|
|
! 2.13.9 Depend Clause
|
||
|
|
! Coarrays are not supported in depend clause
|
||
|
|
|
||
|
|
program omp_depend_coarray
|
||
|
|
integer :: a(3)[*], b(3) , k
|
||
|
|
|
||
|
|
a(:) = this_image()
|
||
|
|
b(:) = a(:)[1]
|
||
|
|
k = 10
|
||
|
|
|
||
|
|
!$omp parallel
|
||
|
|
!$omp single
|
||
|
|
!ERROR: Coarrays are not supported in DEPEND clause
|
||
|
|
!$omp task shared(b) depend(out: a(:)[1])
|
||
|
|
b = a + k
|
||
|
|
!$omp end task
|
||
|
|
!$omp end single
|
||
|
|
!$omp end parallel
|
||
|
|
|
||
|
|
print *, a, b
|
||
|
|
|
||
|
|
end program omp_depend_coarray
|