view gcc/testsuite/c-c++-common/gomp/pr81887.c @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
line wrap: on
line source

/* PR c/81887 */
/* { dg-do compile } */
/* { dg-options "-fno-openmp -fopenmp-simd -fdump-tree-gimple" } */
/* { dg-final { scan-tree-dump-times "#pragma omp simd" 2 "gimple" } } */
/* { dg-final { scan-tree-dump-times "#pragma omp ordered simd\[ \t]*\[\n\r]" 2 "gimple" } } */
/* { dg-final { scan-tree-dump-times "#pragma omp" 4 "gimple" } } */

void
f1 (int *x)
{
  int i;
#pragma omp simd
  for (i = 0; i < 100; i++)
  #pragma omp ordered simd
    x[i / 2] = i;
}

void
f2 (int *x)
{
  int i;
#pragma omp parallel for simd ordered
  for (i = 0; i < 100; i++)
    #pragma omp ordered threads simd
      x[i / 2] = i;
}

void
f3 (int *x)
{
  int i;
#pragma omp parallel for ordered
  for (i = 0; i < 100; i++)
    #pragma omp ordered
      x[i / 2] = i;
}

void
f4 (int *x)
{
  int i;
#pragma omp parallel for ordered
  for (i = 0; i < 100; i++)
    #pragma omp ordered threads
      x[i / 2] = i;
}

void
f5 (int n, int ***x)
{
  int i, j, k;
#pragma omp parallel for ordered(3)
  for (i=0; i < n; i++)
    for (j=0; j < n; ++j)
      for (k=0; k < n; ++k)
	{
#pragma omp ordered depend(sink:i-8,j-2,k+2) depend(sink:i, j-1,k) depend(sink:i-4,j-3,k+6) depend(sink:i-6,j-4,k-6)
	  x[i][j][k] = i + j + k;
#pragma omp ordered depend(source)
	}
}