openmp/runtime/test/tasking/task_reduction3.c

   1 // RUN: %libomp-compile-and-run
   2
   3 // XFAIL: icc
   4 // UNSUPPORTED: clang-4, clang-5, clang-6, clang-7, clang-8, clang-9, clang-10
   5 // UNSUPPORTED: gcc-4, gcc-5, gcc-6, gcc-7, gcc-8
   6
   7 #include <stdio.h>
   8 #include <stdlib.h>
   9
  10 int a = 0, b = 1;
  11
  12 int main(int argc, char **argv) {
  13
  14   #pragma omp parallel
  15   {
  16     #pragma omp sections reduction(task, +: a) reduction(task, *: b)
  17     {
  18       #pragma omp section
  19       {
  20         #pragma omp task in_reduction(+: a) in_reduction(*: b)
  21         {
  22           a += 1;
  23           b *= 1;
  24         }
  25       }
  26       #pragma omp section
  27       {
  28         #pragma omp task in_reduction(+: a) in_reduction(*: b)
  29         {
  30           a += 2;
  31           b *= 2;
  32         }
  33       }
  34       #pragma omp section
  35       {
  36         #pragma omp task in_reduction(+: a) in_reduction(*: b)
  37         {
  38           a += 3;
  39           b *= 3;
  40         }
  41       }
  42       #pragma omp section
  43       {
  44         #pragma omp task in_reduction(+: a) in_reduction(*: b)
  45         {
  46           a += 4;
  47           b *= 4;
  48         }
  49       }
  50       #pragma omp section
  51       {
  52         #pragma omp task in_reduction(+: a) in_reduction(*: b)
  53         {
  54           a += 5;
  55           b *= 5;
  56         }
  57       }
  58     }
  59   }
  60
  61   if (a != 15) {
  62     fprintf(stderr, "error: a != 15. Instead a = %d\n", a);
  63     exit(EXIT_FAILURE);
  64   }
  65   if (b != 120) {
  66     fprintf(stderr, "error: b != 120. Instead b = %d\n", b);
  67     exit(EXIT_FAILURE);
  68   }
  69
  70   return EXIT_SUCCESS;
  71 }