36 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.13.9 Depend Clause4! List items used in depend clauses cannot be zero-length array sections.5 6program omp_depend7 integer :: a(10) , b(10,10)8 a = 109 b = 2010 11 !$omp parallel12 !$omp single13 14 !ERROR: 'a' in DEPEND clause is a zero size array section15 !ERROR: 'b' in DEPEND clause is a zero size array section16 !$omp task shared(a,b) depend(out: a(2:1), b(3:1, 1:-1))17 a(2:1) = b(2, 2)18 !$omp end task19 20 !ERROR: 'a' in DEPEND clause must have a positive stride21 !ERROR: 'b' in DEPEND clause must have a positive stride22 !ERROR: 'b' in DEPEND clause is a zero size array section23 !$omp task shared(x) depend(in: a(10:5:-1)) depend(in: b(5:10:-1, 2))24 print *, a(5:10), b25 !$omp end task26 27 !ERROR: 'a' in DEPEND clause is a zero size array section28 !$omp task shared(x) depend(in: a(1:5:10))29 print *, a(5:10), b30 !$omp end task31 32 !$omp end single33 !$omp end parallel34 35end program omp_depend36