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

   1 ! { dg-do run }
   2 ! { dg-require-effective-target offload_device }
   3
   4 program e_57_3
   5   use omp_lib, only: omp_is_initial_device, omp_get_num_devices,&
   6   omp_get_default_device, omp_set_default_device
   7   logical :: res
   8   integer :: default_device
   9
  10   default_device = omp_get_default_device ()
  11   !$omp target map(from: res)
  12     res = omp_is_initial_device ()
  13   !$omp end target
  14   if (res) STOP 1
  15
  16   call omp_set_default_device (omp_get_num_devices ())
  17   !$omp target map(from: res)
  18     res = omp_is_initial_device ()
  19   !$omp end target
  20   if (.not. res) STOP 2
  21 end program