1! PR middle-end/71758 2 3subroutine pr71758 (p) 4 integer(8) :: i 5 integer :: p(20) 6 i = 0 7 !$omp target device(i) 8 !$omp end target 9 !$omp target update to(p(1:1)) device(i) 10end subroutine 11