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