43#pragma omp parallel for firstprivate( \
44 i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, \
45 i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, \
46 i30, i31) reduction(+ : r)
47 for (
i = 0;
i < i16;
i++) {
48 r +=
i + i1 + i2 + i3 + i4 + i5 + i6 + i7 + i8 + i9 + i10 + i11 + i12 +
49 i13 + i14 + i15 + i16 + i17 + i18 + i19 + i20 + i21 + i22 + i23 + i24 +
50 i25 + i26 + i27 + i28 + i29 + i30 + i31;
55 fprintf(stderr,
"r should be %d but instead equals %d\n", rf,
r);