diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 index 6a830184ded..da5816adb4a 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 @@ -15,7 +15,8 @@ function dotprod (B, C, N, block_size, num_teams, block_threads) result (sum) real :: B(N), C(N), sum integer :: N, block_size, num_teams, block_threads, i, i0 sum = 0.0e0 - !$omp target map(to: B, C, block_size, num_teams, block_threads) + !$omp target map(to: B, C, block_size, num_teams, block_threads) & + !$omp& map(tofrom: sum) !$omp teams num_teams(num_teams) thread_limit(block_threads) & !$omp& reduction(+:sum) !$omp distribute |