1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
// SPDX-FileCopyrightText: Copyright Contributors to the Kokkos project
// @Kokkos_Feature_Level_Required:13
// Unit test for hierarchical parallelism
// Create concurrent work hierarchically and verify if
// sum of created processing units corresponds to expected value
#include <gtest/gtest.h>
#include <Kokkos_Macros.hpp>
#ifdef KOKKOS_ENABLE_EXPERIMENTAL_CXX20_MODULES
import kokkos.core;
#else
#include <Kokkos_Core.hpp>
#endif
using SCALAR_TYPE = int;
namespace Test {
template <class ExecSpace>
struct Hierarchical_Red_B {
void run(const int pN, const int sX) {
using team_policy = Kokkos::TeamPolicy<ExecSpace>;
using member_type = typename Kokkos::TeamPolicy<ExecSpace>::member_type;
using viewDataType = Kokkos::View<SCALAR_TYPE *, ExecSpace>;
viewDataType v("Vector", pN);
Kokkos::parallel_for(
"Team", team_policy(pN, Kokkos::AUTO),
KOKKOS_LAMBDA(const member_type &team) {
const int n = team.league_rank();
SCALAR_TYPE out = 0;
Kokkos::parallel_reduce(
Kokkos::TeamVectorRange(team, sX),
[=](const int i, SCALAR_TYPE &tmp) {
tmp += n * v.extent(0) + i;
},
out);
Kokkos::single(Kokkos::PerTeam(team), [&]() { v(n) += out; });
});
Kokkos::fence();
auto v_H = Kokkos::create_mirror_view_and_copy(Kokkos::HostSpace(), v);
SCALAR_TYPE check = 0;
SCALAR_TYPE ref = 0;
for (int i = 0; i < pN; ++i) {
check += v_H(i);
ref += ((sX + i * pN) * (sX + i * pN - 1) - (i * pN * (i * pN - 1))) / 2;
}
ASSERT_EQ(check, ref);
}
};
TEST(TEST_CATEGORY, IncrTest_13b_Hierarchical_Red) {
Hierarchical_Red_B<TEST_EXECSPACE> test;
test.run(4, 16);
test.run(2, 39);
test.run(39, 3);
}
} // namespace Test
|
