libgomp/testsuite/libgomp.c-c++-common/declare-target-indirect-2.c

   1 /* { dg-do run } */
   2
   3 #define N 256
   4
   5 #pragma omp begin declare target indirect
   6 int foo(void) { return 5; }
   7 int bar(void) { return 8; }
   8 int baz(void) { return 11; }
   9 #pragma omp end declare target
  10
  11 int main (void)
  12 {
  13   int i, x = 0, expected = 0;
  14   int (*fn_ptr[N])(void);
  15
  16   for (i = 0; i < N; i++)
  17     {
  18       switch (i % 3)
  19         {
  20         case 0: fn_ptr[i] = &foo; break;
  21         case 1: fn_ptr[i] = &bar; break;
  22         case 2: fn_ptr[i] = &baz; break;
  23         }
  24       expected += (*fn_ptr[i]) ();
  25     }
  26
  27   #pragma omp target teams distribute parallel for \
  28         reduction (+: x) map (to: fn_ptr) map (tofrom: x)
  29     for (int i = 0; i < N; i++)
  30       x += (*fn_ptr[i]) ();
  31
  32   return x - expected;
  33 }