libgomp/testsuite/libgomp.fortran/pr90779.f90

   1 ! { dg-do run }
   2 ! PR middle-end/90779
   3
   4 program 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
  13 end program