1  /* { dg-do run } */
       2  /* { dg-require-effective-target offload_device } */
       3  
       4  #include <omp.h>
       5  #include <stdlib.h>
       6  
       7  int main ()
       8  {
       9    int res;
      10    int default_device = omp_get_default_device ();
      11  
      12    #pragma omp target map(from: res)
      13      res = omp_is_initial_device ();
      14  
      15    if (res)
      16      abort ();
      17  
      18    omp_set_default_device (omp_get_num_devices ());
      19  
      20    #pragma omp target map(from: res)
      21      res = omp_is_initial_device ();
      22  
      23    if (!res)
      24      abort ();
      25  
      26    return 0;
      27  }