1  extern
       2  #ifdef __cplusplus
       3  "C"
       4  #endif
       5  void abort (void);
       6  
       7  unsigned long long int k = 16;
       8  #pragma omp declare target to (k)
       9  
      10  int
      11  main ()
      12  {
      13    unsigned char a[144], b[144], c[144];
      14    int l;
      15    #pragma omp target map(from:a, b, c)
      16    {
      17      int i;
      18      unsigned long long int j;
      19      #pragma omp parallel for schedule (runtime)
      20      for (i = 0; i < 16; i++)
      21        a[i] = i;
      22      #pragma omp parallel for schedule (monotonic: runtime)
      23      for (i = 0; i < 16; i++)
      24        a[i + 16] = i + 16;
      25      #pragma omp parallel for schedule (nonmonotonic: runtime)
      26      for (i = 0; i < 16; i++)
      27        a[i + 32] = i + 32;
      28      #pragma omp parallel
      29      {
      30        #pragma omp for schedule (runtime)
      31        for (i = 0; i < 16; i++)
      32          a[i + 48] = i + 48;
      33        #pragma omp for schedule (monotonic: runtime)
      34        for (i = 0; i < 16; i++)
      35          a[i + 64] = i + 64;
      36        #pragma omp for schedule (nonmonotonic: runtime)
      37        for (i = 0; i < 16; i++)
      38          a[i + 80] = i + 80;
      39        #pragma omp for schedule (runtime)
      40        for (j = 0; j < k; j++)
      41          a[j + 96] = j + 96;
      42        #pragma omp for schedule (monotonic: runtime)
      43        for (j = 0; j < k; j++)
      44          a[j + 112] = j + 112;
      45        #pragma omp for schedule (nonmonotonic: runtime)
      46        for (j = 0; j < k; j++)
      47          a[j + 128] = j + 128;
      48      }
      49      #pragma omp parallel for schedule (dynamic)
      50      for (i = 0; i < 16; i++)
      51        b[i] = i;
      52      #pragma omp parallel for schedule (monotonic: dynamic)
      53      for (i = 0; i < 16; i++)
      54        b[i + 16] = i + 16;
      55      #pragma omp parallel for schedule (nonmonotonic: dynamic)
      56      for (i = 0; i < 16; i++)
      57        b[i + 32] = i + 32;
      58      #pragma omp parallel
      59      {
      60        #pragma omp for schedule (dynamic)
      61        for (i = 0; i < 16; i++)
      62          b[i + 48] = i + 48;
      63        #pragma omp for schedule (monotonic: dynamic)
      64        for (i = 0; i < 16; i++)
      65          b[i + 64] = i + 64;
      66        #pragma omp for schedule (nonmonotonic: dynamic)
      67        for (i = 0; i < 16; i++)
      68          b[i + 80] = i + 80;
      69        #pragma omp for schedule (dynamic)
      70        for (j = 0; j < k; j++)
      71          b[j + 96] = j + 96;
      72        #pragma omp for schedule (monotonic: dynamic)
      73        for (j = 0; j < k; j++)
      74          b[j + 112] = j + 112;
      75        #pragma omp for schedule (nonmonotonic: dynamic)
      76        for (j = 0; j < k; j++)
      77          b[j + 128] = j + 128;
      78      }
      79      #pragma omp parallel for schedule (guided)
      80      for (i = 0; i < 16; i++)
      81        c[i] = i;
      82      #pragma omp parallel for schedule (monotonic: guided)
      83      for (i = 0; i < 16; i++)
      84        c[i + 16] = i + 16;
      85      #pragma omp parallel for schedule (nonmonotonic: guided)
      86      for (i = 0; i < 16; i++)
      87        c[i + 32] = i + 32;
      88      #pragma omp parallel
      89      {
      90        #pragma omp for schedule (guided)
      91        for (i = 0; i < 16; i++)
      92          c[i + 48] = i + 48;
      93        #pragma omp for schedule (monotonic: guided)
      94        for (i = 0; i < 16; i++)
      95          c[i + 64] = i + 64;
      96        #pragma omp for schedule (nonmonotonic: guided)
      97        for (i = 0; i < 16; i++)
      98          c[i + 80] = i + 80;
      99        #pragma omp for schedule (guided)
     100        for (j = 0; j < k; j++)
     101          c[j + 96] = j + 96;
     102        #pragma omp for schedule (monotonic: guided)
     103        for (j = 0; j < k; j++)
     104          c[j + 112] = j + 112;
     105        #pragma omp for schedule (nonmonotonic: guided)
     106        for (j = 0; j < k; j++)
     107          c[j + 128] = j + 128;
     108      }
     109    }
     110    for (l = 0; l < 144; ++l)
     111      if (a[l] != l || b[l] != l || c[l] != l)
     112        abort ();
     113    return 0;
     114  }