OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

libgomp: fix teams-3/4 testcases

Browse Source 
* 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
This commit is contained in:
Alexander Monakov 2016-02-02 21:15:58 +03:00 committed by Alexander Monakov
parent 31e2b5a3d8
commit e70b6ad754
5 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libgomp/ChangeLog
View 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.

3
libgomp/testsuite/libgomp.c/examples-4/teams-3.c
View 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];

2
libgomp/testsuite/libgomp.c/examples-4/teams-4.c
View 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)

3
libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90
View 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)

4
libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90
View 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