Za pomocą klauzuli redukcji A.7

W poniższym przykładzie zademonstrowano klauzuli redukcji (w sekcji 2.7.2.6 na stronie 28):

#pragma omp parallel for private(i) shared(x, y, n) \
                         reduction(+: a, b)
    for (i=0; i<n; i++) {
        a = a + x[i];
        b = b + y[i];
    }