1! { dg-do run }
2! PR middle-end/90779
3
4program pr90779
5  implicit none
6  integer :: v(4), i
7
8  !$omp target map(from:v)
9    v(:) = (/ (i, i=1,4) /)
10  !$omp end target
11
12  if (any (v .ne. (/ (i, i=1,4) /))) stop 1
13end program
14