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