gcc/testsuite/gcc.dg/gomp/openmp-simd-2.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-fopenmp-simd -fdump-tree-original" } */
   3
   4 extern void abort ();
   5 int a[1024] __attribute__((aligned (32))) = { 1 };
   6 struct S { int s; };
   7 #pragma omp declare reduction (+:struct S:omp_out.s += omp_in.s)
   8 #pragma omp declare reduction (foo:struct S:omp_out.s += omp_in.s)
   9 #pragma omp declare reduction (foo:int:omp_out += omp_in)
  10
  11 __attribute__((noinline, noclone)) int
  12 foo (void)
  13 {
  14   int i, u = 0;
  15   struct S s, t;
  16   s.s = 0; t.s = 0;
  17   #pragma omp simd aligned(a : 32) reduction(+:s) reduction(foo:t, u)
  18   for (i = 0; i < 1024; i++)
  19     {
  20       int x = a[i];
  21       s.s += x;
  22       t.s += x;
  23       u += x;
  24     }
  25   if (t.s != s.s || u != s.s)
  26     abort ();
  27   return s.s;
  28 }
  29
  30
  31 void bar(int n, float *a, float *b)
  32 {
  33   int i;
  34 #pragma omp parallel for simd num_threads(4) safelen(64)
  35   for (i = 0; i < n ; i++)
  36     a[i] = b[i];
  37 }
  38
  39 /* { dg-final { scan-tree-dump-times "pragma omp simd reduction\\(u\\) reduction\\(t\\) reduction\\(\\+:s\\) aligned\\(a:32\\)" 1 "original" } } */
  40 /* { dg-final { scan-tree-dump-times "pragma omp simd safelen\\(64\\)" 1 "original" } } */
  41 /* { dg-final { scan-tree-dump-not "omp parallel" "original" } } */
  42 /* { dg-final { scan-tree-dump-not "omp for" "original" } } */