1! { dg-do compile } 2 3subroutine foo (x) 4 integer :: x(5, *) 5!$omp parallel 6!$omp single 7!$omp task depend(in:x(:,5)) 8!$omp end task 9!$omp task depend(in:x(5,:)) ! { dg-error "Rightmost upper bound of assumed size array section|proper array section" } 10!$omp end task 11!$omp end single 12!$omp end parallel 13end 14