1! PR fortran/78866
2! { dg-do compile }
3
4subroutine pr78866(x)
5  integer :: x(*)
6!$omp target map(x)			! { dg-error "Assumed size array" }
7  x(1) = 1
8!$omp end target
9!$omp target data map(tofrom: x)	! { dg-error "Assumed size array" }
10!$omp target update to(x)		! { dg-error "Assumed size array" }
11!$omp target update from(x)		! { dg-error "Assumed size array" }
12!$omp end target data
13!$omp target map(x(:23))		! { dg-bogus "Assumed size array" }
14  x(1) = 1
15!$omp end target
16!$omp target map(x(:))			! { dg-error "upper bound of assumed size array section" }
17  x(1) = 1				! { dg-error "not a proper array section" "" { target *-*-* } .-1 }
18!$omp end target
19end
20