diff options
| author | Alexander Monakov <amonakov@ispras.ru> | 2016-02-02 21:15:58 +0300 |
|---|---|---|
| committer | Alexander Monakov <amonakov@gcc.gnu.org> | 2016-02-02 21:15:58 +0300 |
| commit | e70b6ad754793a82452075ffb60fd499522fb498 (patch) | |
| tree | bbdc1591bc1597d6e7eb3eafec2608c9a7e0bdae | |
| parent | 31e2b5a3d8c539878f293fe30f1f7be7d2adb084 (diff) | |
| download | gcc-e70b6ad754793a82452075ffb60fd499522fb498.zip gcc-e70b6ad754793a82452075ffb60fd499522fb498.tar.gz gcc-e70b6ad754793a82452075ffb60fd499522fb498.tar.bz2 | |
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
| -rw-r--r-- | libgomp/ChangeLog | 9 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.c/examples-4/teams-3.c | 3 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.c/examples-4/teams-4.c | 2 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 | 3 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 | 4 |
5 files changed, 16 insertions, 5 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 4228b14..db5710a 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -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. diff --git a/libgomp/testsuite/libgomp.c/examples-4/teams-3.c b/libgomp/testsuite/libgomp.c/examples-4/teams-3.c index 5fe63a6..092d386 100644 --- a/libgomp/testsuite/libgomp.c/examples-4/teams-3.c +++ b/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]; diff --git a/libgomp/testsuite/libgomp.c/examples-4/teams-4.c b/libgomp/testsuite/libgomp.c/examples-4/teams-4.c index 6136eab..d0c586c 100644 --- a/libgomp/testsuite/libgomp.c/examples-4/teams-4.c +++ b/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) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 index 2588d8b..9de77af 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 +++ b/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) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 index efae3c3..8d4eb55 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 +++ b/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 |