1  /* Ensure that nested parallel regions work even when the number of loop
       2     iterations is not divisible by the number of threads.  */
       3  
       4  #include <stdlib.h>
       5  
       6  int main() {
       7    int A[30][40], B[30][40];
       8    size_t n = 30;
       9  
      10    for (size_t i = 0; i < 30; ++i)
      11      for (size_t j = 0; j < 40; ++j)
      12      A[i][j] = 42;
      13  
      14  #pragma omp target map(A[0:30][0:40], B[0:30][0:40])
      15    {
      16  #pragma omp parallel for num_threads(8)
      17      for (size_t i = 0; i < n; ++i)
      18        {
      19  #pragma omp parallel for
      20  	for (size_t j = 0; j < n; ++j)
      21  	  {
      22  	    B[i][j] = A[i][j];
      23  	  }
      24        }
      25    }
      26  
      27  for (size_t i = 0; i < n; ++i)
      28    for (size_t j = 0; j < n; ++j)
      29      if (B[i][j] != 42)
      30        abort ();
      31  }