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