libgomp: fix teams-3/4 testcases

	* 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.

From-SVN: r233086

libgomp/ChangeLog

+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.

libgomp/testsuite/libgomp.c/examples-4/teams-3.c

@@ -31,7 +31,8 @@ float dotprod (float B[], float C[], int n)
   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];

libgomp/testsuite/libgomp.c/examples-4/teams-4.c

@@ -32,7 +32,7 @@ float dotprod (float B[], float C[], int n)
   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)

libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90

@@ -14,7 +14,8 @@ function dotprod (B, C, N) result(sum)
   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)

libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90

@@ -14,8 +14,8 @@ function dotprod (B, C, n) result(sum)
   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