libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90

   1 ! { dg-do run }
   2 ! { dg-require-effective-target offload_device }
   3
   4 program e_57_2
   5   use omp_lib, only: omp_is_initial_device, omp_get_num_devices
   6   integer, parameter :: N = 10
   7   integer :: i, num
   8   logical :: offload(N)
   9   num = omp_get_num_devices ()
  10   !$omp parallel do
  11   do i = 1, N
  12     !$omp target device(i-1) map(from: offload(i:i))
  13       offload(i) = omp_is_initial_device ()
  14     !$omp end target
  15   end do
  16
  17   do i = 1, num
  18     if (offload(i)) call abort
  19   end do
  20
  21   do i = num+1, N
  22     if (.not. offload(i)) call abort
  23   end do
  24 end program