72 lines · c
1// RUN: %libomp-compile-and-run2 3// XFAIL: icc4// UNSUPPORTED: clang-4, clang-5, clang-6, clang-7, clang-8, clang-9, clang-105// UNSUPPORTED: gcc-4, gcc-5, gcc-6, gcc-7, gcc-86 7#include <stdio.h>8#include <stdlib.h>9 10int a = 0, b = 1;11 12int main(int argc, char **argv) {13 14 #pragma omp parallel15 {16 #pragma omp sections reduction(task, +: a) reduction(task, *: b)17 {18 #pragma omp section19 {20 #pragma omp task in_reduction(+: a) in_reduction(*: b)21 {22 a += 1;23 b *= 1;24 }25 }26 #pragma omp section27 {28 #pragma omp task in_reduction(+: a) in_reduction(*: b)29 {30 a += 2;31 b *= 2;32 }33 }34 #pragma omp section35 {36 #pragma omp task in_reduction(+: a) in_reduction(*: b)37 {38 a += 3;39 b *= 3;40 }41 }42 #pragma omp section43 {44 #pragma omp task in_reduction(+: a) in_reduction(*: b)45 {46 a += 4;47 b *= 4;48 }49 }50 #pragma omp section51 {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}72