gcc/testsuite/c-c++-common/gomp/loop-2.c

#ifdef __cplusplus
extern "C" {
#endif
int omp_get_thread_num (void);
#ifdef __cplusplus
}
#endif

void
f0 (int *a)
{
  int i;
  #pragma omp loop bind(teams) order(concurrent)
  for (i = 0; i < 64; i++)
    a[i] = i;
}

void
f1 (int *a)
{
  int i;
  #pragma omp teams
  {
    #pragma omp loop
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp teams
  {
    #pragma omp loop bind(teams)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp teams
  {
    #pragma omp loop bind(parallel)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp teams
  {
    #pragma omp loop lastprivate (i) bind(thread)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
}

void
f2 (int *a)
{
  int i;
  #pragma omp loop bind(parallel) order(concurrent)
  for (i = 0; i < 64; i++)
    a[i] = i;
  #pragma omp parallel
  {
    #pragma omp loop private (i)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp parallel
  {
    #pragma omp loop lastprivate (i) bind(parallel)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp parallel
  {
    #pragma omp loop bind(thread)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp taskgroup
  {
    #pragma omp loop bind(parallel)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp teams
  {
    int j;
    #pragma omp distribute
    for (j = 0; j < 64; ++j)
      {
	#pragma omp loop bind(parallel)
	for (i = 0; i < 64; i++)
	  a[64 * j + i] = i;
      }
  }
  #pragma omp target
  {
    #pragma omp loop bind(parallel)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
}

void
f3 (int *a)
{
  int i, j;
  #pragma omp loop order ( concurrent )bind(thread)
  for (i = 0; i < 64; i++)
    a[i] = i;
  #pragma omp parallel num_threads (4)
  {
    int j = omp_get_thread_num ();
    #pragma omp loop private (i) bind(thread)
    for (i = 0; i < 64; i++)
      a[j * 64 + i] = i;
  }
  #pragma omp critical
  {
    #pragma omp loop lastprivate (i)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp critical
  {
    #pragma omp loop bind(thread)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp master
  {
    #pragma omp loop private (i)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp master
  {
    #pragma omp loop bind(thread)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp sections
  {
    #pragma omp loop private (i)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp sections
  {
    #pragma omp loop bind(thread) lastprivate(i)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp single
  {
    #pragma omp loop private (i)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp single
  {
    #pragma omp loop bind(thread)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp task
  {
    #pragma omp loop private (i)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp task
  {
    #pragma omp loop bind(thread)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp taskgroup
  {
    #pragma omp loop private (i)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp taskgroup
  {
    #pragma omp loop bind(thread)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
  #pragma omp teams
  {
    #pragma omp distribute
    for (j = 0; j < 64; ++j)
      {
	#pragma omp loop
	for (i = 0; i < 64; i++)
	  a[64 * j + i] = i;
	#pragma omp loop bind(thread)
	for (i = 0; i < 64; i++)
	  a[64 * j + i] = i;
      }
  }
  #pragma omp for
  for (j = 0; j < 64; ++j)
    {
      #pragma omp loop
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
      #pragma omp loop bind(thread)
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
    }
  #pragma omp parallel
  #pragma omp loop
  for (j = 0; j < 64; ++j)
    {
      #pragma omp loop
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
      #pragma omp loop bind(thread)
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
    }
  #pragma omp loop bind(thread)
  for (j = 0; j < 64; ++j)
    {
      #pragma omp loop
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
      #pragma omp loop bind(thread)
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
    }
  #pragma omp loop bind(parallel)
  for (j = 0; j < 64; ++j)
    {
      #pragma omp loop
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
      #pragma omp loop bind(thread)
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
    }
  #pragma omp for ordered
  for (j = 0; j < 64; ++j)
    {
      #pragma omp ordered
      #pragma omp loop
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
      #pragma omp ordered threads
      #pragma omp loop bind(thread)
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
    }
  #pragma omp simd
  for (j = 0; j < 64; ++j)
    {
      #pragma omp loop
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
      #pragma omp loop bind(thread)
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
    }
  #pragma omp taskloop
  for (j = 0; j < 64; ++j)
    {
      #pragma omp loop
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
      #pragma omp loop bind(thread)
      for (i = 0; i < 64; i++)
	a[64 * j + i] = i;
    }
  #pragma omp target
  {
    #pragma omp loop
    for (i = 0; i < 64; i++)
      a[i] = i;
    #pragma omp loop bind(thread)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
}

void
f4 (int *a)
{
  int i;
  #pragma omp ordered
  {
    #pragma omp loop private (i)
    for (i = 0; i < 64; i++)
      a[i] = i;
    #pragma omp loop bind(thread)
    for (i = 0; i < 64; i++)
      a[i] = i;
  }
}