+2016-02-02 Alexander Monakov <amonakov@ispras.ru>
+
+ * testsuite/libgomp.c/examples-4/teams-3.c: Add missing reduction
+ clause.
+ * testsuite/libgomp.c/examples-4/teams-4.c: Likewise.
+ * testsuite/libgomp.fortran/examples-4/teams-3.f90: Add missing
+ reduction and map clauses.
+ * testsuite/libgomp.fortran/examples-4/teams-4.f90: Likewise.
+
2016-02-02 James Norris <jnorris@codesourcery.com>
* testsuite/libgomp.oacc-c-c++-common/declare-4.c: Fix clause.
int i;
float sum = 0;
- #pragma omp target teams map(to: B[0:n], C[0:n]) map(tofrom: sum)
+ #pragma omp target teams map(to: B[0:n], C[0:n]) \
+ map(tofrom: sum) reduction(+:sum)
#pragma omp distribute parallel for reduction(+:sum)
for (i = 0; i < n; i++)
sum += B[i] * C[i];
float sum = 0;
#pragma omp target map(to: B[0:n], C[0:n]) map(tofrom:sum)
- #pragma omp teams num_teams(8) thread_limit(16)
+ #pragma omp teams num_teams(8) thread_limit(16) reduction(+:sum)
#pragma omp distribute parallel for reduction(+:sum) \
dist_schedule(static, 1024) \
schedule(static, 64)
real :: B(N), C(N), sum
integer :: N, i
sum = 0.0e0
- !$omp target teams map(to: B, C)
+ !$omp target teams map(to: B, C) map(tofrom: sum) &
+ !$omp& reduction(+:sum)
!$omp distribute parallel do reduction(+:sum)
do i = 1, N
sum = sum + B(i) * C(i)
real :: B(N), C(N), sum
integer :: N, i
sum = 0.0e0
- !$omp target map(to: B, C)
- !$omp teams num_teams(8) thread_limit(16)
+ !$omp target map(to: B, C) map(tofrom: sum)
+ !$omp teams num_teams(8) thread_limit(16) reduction(+:sum)
!$omp distribute parallel do reduction(+:sum) &
!$omp& dist_schedule(static, 1024) schedule(static, 64)
do i = 1, N