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