1  /* { dg-additional-options "-Wno-deprecated-declarations" } */
       2  
       3  #include <omp.h>
       4  #include <stdlib.h>
       5  
       6  int
       7  main ()
       8  {
       9    int d_o = omp_get_dynamic ();
      10    int n_o = omp_get_nested ();
      11    omp_sched_t s_o;
      12    int c_o;
      13    omp_get_schedule (&s_o, &c_o);
      14    int m_o = omp_get_max_threads ();
      15    omp_set_dynamic (1);
      16    omp_set_nested (1);
      17    omp_set_schedule (omp_sched_static, 2);
      18    omp_set_num_threads (4);
      19    int d = omp_get_dynamic ();
      20    int n = omp_get_nested ();
      21    omp_sched_t s;
      22    int c;
      23    omp_get_schedule (&s, &c);
      24    int m = omp_get_max_threads ();
      25    if (!omp_is_initial_device ())
      26      abort ();
      27    #pragma omp target if (0)
      28    {
      29      omp_sched_t s_c;
      30      int c_c;
      31      omp_get_schedule (&s_c, &c_c);
      32      if (d_o != omp_get_dynamic ()
      33  	|| n_o != omp_get_nested ()
      34  	|| s_o != s_c
      35  	|| c_o != c_c
      36  	|| m_o != omp_get_max_threads ())
      37        abort ();
      38      omp_set_dynamic (0);
      39      omp_set_nested (0);
      40      omp_set_schedule (omp_sched_dynamic, 4);
      41      omp_set_num_threads (2);
      42      if (!omp_is_initial_device ())
      43        abort ();
      44    }
      45    if (!omp_is_initial_device ())
      46      abort ();
      47    omp_sched_t s_c;
      48    int c_c;
      49    omp_get_schedule (&s_c, &c_c);
      50    if (d != omp_get_dynamic ()
      51        || n != omp_get_nested ()
      52        || s != s_c
      53        || c != c_c
      54        || m != omp_get_max_threads ())
      55      abort ();
      56    #pragma omp target if (0)
      57    #pragma omp teams
      58    #pragma omp parallel if(0)
      59    {
      60      omp_sched_t s_c;
      61      int c_c;
      62      omp_get_schedule (&s_c, &c_c);
      63      if (d_o != omp_get_dynamic ()
      64  	|| n_o != omp_get_nested ()
      65  	|| s_o != s_c
      66  	|| c_o != c_c
      67  	|| m_o != omp_get_max_threads ())
      68        abort ();
      69      omp_set_dynamic (0);
      70      omp_set_nested (0);
      71      omp_set_schedule (omp_sched_dynamic, 4);
      72      omp_set_num_threads (2);
      73      if (!omp_is_initial_device ())
      74        abort ();
      75    }
      76    if (!omp_is_initial_device ())
      77      abort ();
      78    omp_get_schedule (&s_c, &c_c);
      79    if (d != omp_get_dynamic ()
      80        || n != omp_get_nested ()
      81        || s != s_c
      82        || c != c_c
      83        || m != omp_get_max_threads ())
      84      abort ();
      85    return 0;
      86  }