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