1! PR fortran/78866
2! { dg-do compile }
3
4subroutine pr78866(x)
5  integer :: x(*)
6!$omp target		! { dg-error "implicit mapping of assumed size array" }
7  x(1) = 1
8!$omp end target
9end
10