]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
libgomp: fix teams-3/4 testcases
authorAlexander Monakov <amonakov@ispras.ru>
Tue, 2 Feb 2016 18:15:58 +0000 (21:15 +0300)
committerAlexander Monakov <amonakov@gcc.gnu.org>
Tue, 2 Feb 2016 18:15:58 +0000 (21:15 +0300)
* 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
libgomp/testsuite/libgomp.c/examples-4/teams-3.c
libgomp/testsuite/libgomp.c/examples-4/teams-4.c
libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90
libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90

index 4228b1428f8375b14ba1630bc39fab6cb311c29e..db5710a57f3e5ef3bd4a2029bd596e442e6e186b 100644 (file)
@@ -1,3 +1,12 @@
+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.
index 5fe63a68a4b31e1488da3a64955e4fb2da7613a3..092d386dea5b1649bbcc26a3d70e95f728deb0c3 100644 (file)
@@ -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];
index 6136eabef66aeb4bee1ab1814963eddac81a003e..d0c586c944e7d6bafb45b04d4752ccb496bfb1a5 100644 (file)
@@ -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)
index 2588d8bb6842446ece95cf6409c8381762fd4fc0..9de77afd7d2abf659ac54895632764f98914ccc6 100644 (file)
@@ -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)
index efae3c3cc2067dbe2a4098091066ba1797d7d9a0..8d4eb5530e882562db964a6b771e5c46068afb7c 100644 (file)
@@ -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