AI/rocm-systems
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use new naming scheme

Browse Source
This commit is contained in:
Brandon Potter
2024-11-25 14:12:15 -06:00
parent 308816bc5e
commit fd8dbc7fb6
179 changed files with 5250 additions and 5251 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/sos_tests/to_all.cpp
+196 -196
View File
@@ -65,14 +65,14 @@
#include <stdlib.h>
#include <string.h>
#include <roc_shmem/roc_shmem.hpp>
#include <rocshmem/rocshmem.hpp>
using namespace rocshmem;
#define Rprintf \
if (roc_shmem_my_pe() == 0) printf
if (rocshmem_my_pe() == 0) printf
#define Rfprintf \
if (roc_shmem_my_pe() == 0) fprintf
if (rocshmem_my_pe() == 0) fprintf
#define Vprintf \
if (Verbose > 1) printf
@@ -95,7 +95,7 @@ long *pSync1;
#define N 128
#define MAX(a, b) ((a) > (b)) ? (a) : (b)
#define WRK_SIZE MAX(N / 2 + 1, ROC_SHMEM_REDUCE_MIN_WRKDATA_SIZE)
#define WRK_SIZE MAX(N / 2 + 1, ROCSHMEM_REDUCE_MIN_WRKDATA_SIZE)
short *src0, *dst0, *pWrk0;
int *src1, *dst1, *pWrk1;
@@ -124,21 +124,21 @@ int max_to_all(int me, int npes) {
src0[i] = src1[i] = src2[i] = src3[i] = src4[i] = src5[i] = src6[i] =
me + i;
}
roc_shmem_barrier_all();
rocshmem_barrier_all();
roc_shmem_ctx_short_max_to_all(ROC_SHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
rocshmem_ctx_short_max_to_all(ROCSHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
npes, pWrk0, pSync);
roc_shmem_ctx_int_max_to_all(ROC_SHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
rocshmem_ctx_int_max_to_all(ROCSHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
pWrk1, pSync1);
roc_shmem_ctx_long_max_to_all(ROC_SHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
rocshmem_ctx_long_max_to_all(ROCSHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
npes, pWrk2, pSync);
roc_shmem_ctx_float_max_to_all(ROC_SHMEM_CTX_DEFAULT, dst3, src3, N, 0, 0,
rocshmem_ctx_float_max_to_all(ROCSHMEM_CTX_DEFAULT, dst3, src3, N, 0, 0,
npes, pWrk3, pSync1);
roc_shmem_ctx_double_max_to_all(ROC_SHMEM_CTX_DEFAULT, dst4, src4, N, 0, 0,
rocshmem_ctx_double_max_to_all(ROCSHMEM_CTX_DEFAULT, dst4, src4, N, 0, 0,
npes, pWrk4, pSync);
// roc_shmem_ctx_longdouble_max_to_all(ROC_SHMEM_CTX_DEFAULT, dst5, src5, N,
// rocshmem_ctx_longdouble_max_to_all(ROCSHMEM_CTX_DEFAULT, dst5, src5, N,
// 0, 0, npes, pWrk5, pSync1);
roc_shmem_ctx_longlong_max_to_all(ROC_SHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
rocshmem_ctx_longlong_max_to_all(ROCSHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
npes, pWrk6, pSync);
if (me == 0) {
@@ -153,54 +153,54 @@ int max_to_all(int me, int npes) {
}
if (ok[0] == 1) {
printf("Reduction operation roc_shmem_short_max_to_all: Failed\n");
printf("Reduction operation rocshmem_short_max_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_short_max_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_short_max_to_all: Passed\n");
pass++;
}
if (ok[1] == 1) {
printf("Reduction operation roc_shmem_int_max_to_all: Failed\n");
printf("Reduction operation rocshmem_int_max_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_int_max_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_int_max_to_all: Passed\n");
pass++;
}
if (ok[2] == 1) {
printf("Reduction operation roc_shmem_long_max_to_all: Failed\n");
printf("Reduction operation rocshmem_long_max_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_long_max_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_long_max_to_all: Passed\n");
pass++;
}
if (ok[3] == 1) {
printf("Reduction operation roc_shmem_float_max_to_all: Failed\n");
printf("Reduction operation rocshmem_float_max_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_float_max_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_float_max_to_all: Passed\n");
pass++;
}
if (ok[4] == 1) {
printf("Reduction operation roc_shmem_double_max_to_all: Failed\n");
printf("Reduction operation rocshmem_double_max_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_double_max_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_double_max_to_all: Passed\n");
pass++;
}
/*
if(ok[5]==1){
printf("Reduction operation roc_shmem_longdouble_max_to_all: Failed\n");
printf("Reduction operation rocshmem_longdouble_max_to_all: Failed\n");
}
else{
Vprintf("Reduction operation roc_shmem_longdouble_max_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longdouble_max_to_all: Passed\n");
pass++;
}
*/
pass++;
if (ok[6] == 1) {
printf("Reduction operation roc_shmem_longlong_max_to_all: Failed\n");
printf("Reduction operation rocshmem_longlong_max_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_longlong_max_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longlong_max_to_all: Passed\n");
pass++;
}
Vprintf("\n");
}
if (Serialize) roc_shmem_barrier_all();
if (Serialize) rocshmem_barrier_all();
return (pass == 7 ? 1 : 0);
}
@@ -222,21 +222,21 @@ int min_to_all(int me, int npes) {
dst6[i] = -9;
}
roc_shmem_barrier_all();
rocshmem_barrier_all();
roc_shmem_ctx_short_min_to_all(ROC_SHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
rocshmem_ctx_short_min_to_all(ROCSHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
npes, pWrk0, pSync);
roc_shmem_ctx_int_min_to_all(ROC_SHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
rocshmem_ctx_int_min_to_all(ROCSHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
pWrk1, pSync1);
roc_shmem_ctx_long_min_to_all(ROC_SHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
rocshmem_ctx_long_min_to_all(ROCSHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
npes, pWrk2, pSync);
roc_shmem_ctx_float_min_to_all(ROC_SHMEM_CTX_DEFAULT, dst3, src3, N, 0, 0,
rocshmem_ctx_float_min_to_all(ROCSHMEM_CTX_DEFAULT, dst3, src3, N, 0, 0,
npes, pWrk3, pSync1);
roc_shmem_ctx_double_min_to_all(ROC_SHMEM_CTX_DEFAULT, dst4, src4, N, 0, 0,
rocshmem_ctx_double_min_to_all(ROCSHMEM_CTX_DEFAULT, dst4, src4, N, 0, 0,
npes, pWrk4, pSync);
// roc_shmem_ctx_longdouble_min_to_all(ROC_SHMEM_CTX_DEFAULT, dst5, src5, N,
// rocshmem_ctx_longdouble_min_to_all(ROCSHMEM_CTX_DEFAULT, dst5, src5, N,
// 0, 0, npes, pWrk5, pSync1);
roc_shmem_ctx_longlong_min_to_all(ROC_SHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
rocshmem_ctx_longlong_min_to_all(ROCSHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
npes, pWrk6, pSync);
if (me == 0) {
@@ -250,54 +250,54 @@ int min_to_all(int me, int npes) {
if (dst6[i] != i) ok[6] = 1;
}
if (ok[0] == 1) {
printf("Reduction operation roc_shmem_short_min_to_all: Failed\n");
printf("Reduction operation rocshmem_short_min_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_short_min_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_short_min_to_all: Passed\n");
pass++;
}
if (ok[1] == 1) {
printf("Reduction operation roc_shmem_int_min_to_all: Failed\n");
printf("Reduction operation rocshmem_int_min_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_int_min_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_int_min_to_all: Passed\n");
pass++;
}
if (ok[2] == 1) {
printf("Reduction operation roc_shmem_long_min_to_all: Failed\n");
printf("Reduction operation rocshmem_long_min_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_long_min_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_long_min_to_all: Passed\n");
pass++;
}
if (ok[3] == 1) {
printf("Reduction operation roc_shmem_float_min_to_all: Failed\n");
printf("Reduction operation rocshmem_float_min_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_float_min_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_float_min_to_all: Passed\n");
pass++;
}
if (ok[4] == 1) {
printf("Reduction operation roc_shmem_double_min_to_all: Failed\n");
printf("Reduction operation rocshmem_double_min_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_double_min_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_double_min_to_all: Passed\n");
pass++;
}
/*
if(ok[5]==1){
printf("Reduction operation roc_shmem_longdouble_min_to_all: Failed\n");
printf("Reduction operation rocshmem_longdouble_min_to_all: Failed\n");
}
else{
Vprintf("Reduction operation roc_shmem_longdouble_min_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longdouble_min_to_all: Passed\n");
pass++;
}
*/
pass++;
if (ok[6] == 1) {
printf("Reduction operation roc_shmem_longlong_min_to_all: Failed\n");
printf("Reduction operation rocshmem_longlong_min_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_longlong_min_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longlong_min_to_all: Passed\n");
pass++;
}
Vprintf("\n");
}
if (Serialize) roc_shmem_barrier_all();
if (Serialize) rocshmem_barrier_all();
return (pass == 7 ? 1 : 0);
}
@@ -318,21 +318,21 @@ int sum_to_all(int me, int npes) {
dst6[i] = -9;
}
roc_shmem_barrier_all();
rocshmem_barrier_all();
roc_shmem_ctx_short_sum_to_all(ROC_SHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
rocshmem_ctx_short_sum_to_all(ROCSHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
npes, pWrk0, pSync);
roc_shmem_ctx_int_sum_to_all(ROC_SHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
rocshmem_ctx_int_sum_to_all(ROCSHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
pWrk1, pSync1);
roc_shmem_ctx_long_sum_to_all(ROC_SHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
rocshmem_ctx_long_sum_to_all(ROCSHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
npes, pWrk2, pSync);
roc_shmem_ctx_float_sum_to_all(ROC_SHMEM_CTX_DEFAULT, dst3, src3, N, 0, 0,
rocshmem_ctx_float_sum_to_all(ROCSHMEM_CTX_DEFAULT, dst3, src3, N, 0, 0,
npes, pWrk3, pSync1);
roc_shmem_ctx_double_sum_to_all(ROC_SHMEM_CTX_DEFAULT, dst4, src4, N, 0, 0,
rocshmem_ctx_double_sum_to_all(ROCSHMEM_CTX_DEFAULT, dst4, src4, N, 0, 0,
npes, pWrk4, pSync);
// roc_shmem_ctx_longdouble_sum_to_all(ROC_SHMEM_CTX_DEFAULT, dst5, src5, N,
// rocshmem_ctx_longdouble_sum_to_all(ROCSHMEM_CTX_DEFAULT, dst5, src5, N,
// 0, 0, npes, pWrk5, pSync1);
roc_shmem_ctx_longlong_sum_to_all(ROC_SHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
rocshmem_ctx_longlong_sum_to_all(ROCSHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
npes, pWrk6, pSync);
if (me == 0) {
@@ -346,55 +346,55 @@ int sum_to_all(int me, int npes) {
if (dst6[i] != (long long)(npes * (npes - 1) / 2)) ok[6] = 1;
}
if (ok[0] == 1) {
printf("Reduction operation roc_shmem_short_sum_to_all: Failed\n");
printf("Reduction operation rocshmem_short_sum_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_short_sum_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_short_sum_to_all: Passed\n");
pass++;
}
if (ok[1] == 1) {
printf("Reduction operation roc_shmem_int_sum_to_all: Failed\n");
printf("Reduction operation rocshmem_int_sum_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_int_sum_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_int_sum_to_all: Passed\n");
pass++;
}
if (ok[2] == 1) {
printf("Reduction operation roc_shmem_long_sum_to_all: Failed\n");
printf("Reduction operation rocshmem_long_sum_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_long_sum_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_long_sum_to_all: Passed\n");
pass++;
}
if (ok[3] == 1) {
printf("Reduction operation roc_shmem_float_sum_to_all: Failed\n");
printf("Reduction operation rocshmem_float_sum_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_float_sum_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_float_sum_to_all: Passed\n");
pass++;
}
if (ok[4] == 1) {
printf("Reduction operation roc_shmem_double_sum_to_all: Failed\n");
printf("Reduction operation rocshmem_double_sum_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_double_sum_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_double_sum_to_all: Passed\n");
pass++;
}
/*
if(ok[5]==1){
printf("Reduction operation roc_shmem_longdouble_sum_to_all: Failed\n");
printf("Reduction operation rocshmem_longdouble_sum_to_all: Failed\n");
}
else{
Vprintf("Reduction operation roc_shmem_longdouble_sum_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longdouble_sum_to_all: Passed\n");
pass++;
}
*/
pass++;
if (ok[6] == 1) {
printf("Reduction operation roc_shmem_longlong_sum_to_all: Failed\n");
printf("Reduction operation rocshmem_longlong_sum_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_longlong_sum_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longlong_sum_to_all: Passed\n");
pass++;
}
Vprintf("\n");
fflush(stdout);
}
if (Serialize) roc_shmem_barrier_all();
if (Serialize) rocshmem_barrier_all();
return (pass == 7 ? 1 : 0);
}
@@ -409,15 +409,15 @@ int and_to_all(int me, int num_pes) {
dst0[i] = dst1[i] = dst2[i] = dst6[i] = -9;
}
roc_shmem_barrier_all();
rocshmem_barrier_all();
roc_shmem_ctx_short_and_to_all(ROC_SHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
rocshmem_ctx_short_and_to_all(ROCSHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
num_pes, pWrk0, pSync);
roc_shmem_ctx_int_and_to_all(ROC_SHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0,
rocshmem_ctx_int_and_to_all(ROCSHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0,
num_pes, pWrk1, pSync1);
roc_shmem_ctx_long_and_to_all(ROC_SHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
rocshmem_ctx_long_and_to_all(ROCSHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
num_pes, pWrk2, pSync);
roc_shmem_ctx_longlong_and_to_all(ROC_SHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
rocshmem_ctx_longlong_and_to_all(ROCSHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
num_pes, pWrk6, pSync1);
if (me == 0) {
@@ -429,33 +429,33 @@ int and_to_all(int me, int num_pes) {
}
if (ok[0] == 1) {
printf("Reduction operation roc_shmem_short_and_to_all: Failed\n");
printf("Reduction operation rocshmem_short_and_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_short_and_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_short_and_to_all: Passed\n");
pass++;
}
if (ok[1] == 1) {
printf("Reduction operation roc_shmem_int_and_to_all: Failed\n");
printf("Reduction operation rocshmem_int_and_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_int_and_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_int_and_to_all: Passed\n");
pass++;
}
if (ok[2] == 1) {
printf("Reduction operation roc_shmem_long_and_to_all: Failed\n");
printf("Reduction operation rocshmem_long_and_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_long_and_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_long_and_to_all: Passed\n");
pass++;
}
if (ok[3] == 1) {
printf("Reduction operation roc_shmem_longlong_and_to_all: Failed\n");
printf("Reduction operation rocshmem_longlong_and_to_all: Failed\n");
} else {
Vprintf("Reduction operation roc_shmem_longlong_and_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longlong_and_to_all: Passed\n");
pass++;
}
Vprintf("\n");
fflush(stdout);
}
if (Serialize) roc_shmem_barrier_all();
if (Serialize) rocshmem_barrier_all();
return (pass == 4 ? 1 : 0);
}
@@ -503,21 +503,21 @@ int prod_to_all(int me, int npes) {
expected_result6 *= i;
}
roc_shmem_barrier_all();
rocshmem_barrier_all();
roc_shmem_ctx_short_prod_to_all(ROC_SHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
rocshmem_ctx_short_prod_to_all(ROCSHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
npes, pWrk0, pSync);
roc_shmem_ctx_int_prod_to_all(ROC_SHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0,
rocshmem_ctx_int_prod_to_all(ROCSHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0,
npes, pWrk1, pSync1);
roc_shmem_ctx_long_prod_to_all(ROC_SHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
rocshmem_ctx_long_prod_to_all(ROCSHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
npes, pWrk2, pSync);
roc_shmem_ctx_float_prod_to_all(ROC_SHMEM_CTX_DEFAULT, dst3, src3, N, 0, 0,
rocshmem_ctx_float_prod_to_all(ROCSHMEM_CTX_DEFAULT, dst3, src3, N, 0, 0,
npes, pWrk3, pSync1);
roc_shmem_ctx_double_prod_to_all(ROC_SHMEM_CTX_DEFAULT, dst4, src4, N, 0, 0,
rocshmem_ctx_double_prod_to_all(ROCSHMEM_CTX_DEFAULT, dst4, src4, N, 0, 0,
npes, pWrk4, pSync);
// roc_shmem_ctx_longdouble_prod_to_all(ROC_SHMEM_CTX_DEFAULT, dst5, src5, N,
// rocshmem_ctx_longdouble_prod_to_all(ROCSHMEM_CTX_DEFAULT, dst5, src5, N,
// 0, 0, npes, pWrk5, pSync1);
roc_shmem_ctx_longlong_prod_to_all(ROC_SHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
rocshmem_ctx_longlong_prod_to_all(ROCSHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
npes, pWrk6, pSync);
if (me == 0) {
@@ -547,62 +547,62 @@ int prod_to_all(int me, int npes) {
}
if (ok[0] == 1)
printf("Reduction operation roc_shmem_short_prod_to_all: Failed\n");
printf("Reduction operation rocshmem_short_prod_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_short_prod_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_short_prod_to_all: Passed\n");
pass++;
}
if (ok[1] == 1)
printf("Reduction operation roc_shmem_int_prod_to_all: Failed\n");
printf("Reduction operation rocshmem_int_prod_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_int_prod_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_int_prod_to_all: Passed\n");
pass++;
}
if (ok[2] == 1)
printf("Reduction operation roc_shmem_long_prod_to_all: Failed\n");
printf("Reduction operation rocshmem_long_prod_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_long_prod_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_long_prod_to_all: Passed\n");
pass++;
}
if (ok[3] == 1)
printf("Reduction operation roc_shmem_float_prod_to_all: Failed\n");
printf("Reduction operation rocshmem_float_prod_to_all: Failed\n");
else {
if (float_rounding_err) {
Vprintf(
"Reduction operation roc_shmem_float_prod_to_all: skipped due to "
"Reduction operation rocshmem_float_prod_to_all: skipped due to "
"float rounding error\n");
} else {
Vprintf("Reduction operation roc_shmem_float_prod_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_float_prod_to_all: Passed\n");
}
pass++;
}
if (ok[4] == 1)
printf("Reduction operation roc_shmem_double_prod_to_all: Failed\n");
printf("Reduction operation rocshmem_double_prod_to_all: Failed\n");
else {
if (double_rounding_err) {
Vprintf(
"Reduction operation roc_shmem_double_prod_to_all: skipped due to "
"Reduction operation rocshmem_double_prod_to_all: skipped due to "
"double rounding error\n");
} else {
Vprintf("Reduction operation roc_shmem_double_prod_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_double_prod_to_all: Passed\n");
}
pass++;
}
/*
if(ok[5]==1)
printf("Reduction operation roc_shmem_longdouble_prod_to_all: Failed\n");
printf("Reduction operation rocshmem_longdouble_prod_to_all: Failed\n");
else {
if (double_rounding_err) {
Vprintf("Reduction operation roc_shmem_longdouble_prod_to_all: skipped
Vprintf("Reduction operation rocshmem_longdouble_prod_to_all: skipped
due to long double rounding error\n");
}
else {
Vprintf("Reduction operation roc_shmem_longdouble_prod_to_all:
Vprintf("Reduction operation rocshmem_longdouble_prod_to_all:
Passed\n");
}
pass++;
@@ -611,14 +611,14 @@ int prod_to_all(int me, int npes) {
pass++;
if (ok[6] == 1)
printf("Reduction operation roc_shmem_longlong_prod_to_all: Failed\n");
printf("Reduction operation rocshmem_longlong_prod_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_longlong_prod_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longlong_prod_to_all: Passed\n");
pass++;
}
Vprintf("\n");
}
if (Serialize) roc_shmem_barrier_all();
if (Serialize) rocshmem_barrier_all();
return (pass == 7 ? 1 : 0);
}
@@ -636,15 +636,15 @@ int or_to_all(int me, int npes) {
dst6[i] = -9;
}
roc_shmem_barrier_all();
rocshmem_barrier_all();
roc_shmem_ctx_short_or_to_all(ROC_SHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
rocshmem_ctx_short_or_to_all(ROCSHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
npes, pWrk0, pSync);
roc_shmem_ctx_int_or_to_all(ROC_SHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
rocshmem_ctx_int_or_to_all(ROCSHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
pWrk1, pSync1);
roc_shmem_ctx_long_or_to_all(ROC_SHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0, npes,
rocshmem_ctx_long_or_to_all(ROCSHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0, npes,
pWrk2, pSync);
roc_shmem_ctx_longlong_or_to_all(ROC_SHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
rocshmem_ctx_longlong_or_to_all(ROCSHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
npes, pWrk6, pSync1);
if (me == 0) {
@@ -658,35 +658,35 @@ int or_to_all(int me, int npes) {
}
if (ok[0] == 1)
printf("Reduction operation roc_shmem_short_or_to_all: Failed\n");
printf("Reduction operation rocshmem_short_or_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_short_or_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_short_or_to_all: Passed\n");
pass++;
}
if (ok[1] == 1)
printf("Reduction operation roc_shmem_int_or_to_all: Failed\n");
printf("Reduction operation rocshmem_int_or_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_int_or_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_int_or_to_all: Passed\n");
pass++;
}
if (ok[2] == 1)
printf("Reduction operation roc_shmem_long_or_to_all: Failed\n");
printf("Reduction operation rocshmem_long_or_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_long_or_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_long_or_to_all: Passed\n");
pass++;
}
if (ok[6] == 1)
printf("Reduction operation roc_shmem_longlong_or_to_all: Failed\n");
printf("Reduction operation rocshmem_longlong_or_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_longlong_or_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longlong_or_to_all: Passed\n");
pass++;
}
Vprintf("\n");
}
if (Serialize) roc_shmem_barrier_all();
if (Serialize) rocshmem_barrier_all();
return (pass == 4 ? 1 : 0);
}
@@ -705,15 +705,15 @@ int xor_to_all(int me, int npes) {
dst6[i] = -9;
}
roc_shmem_barrier_all();
rocshmem_barrier_all();
roc_shmem_ctx_short_xor_to_all(ROC_SHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
rocshmem_ctx_short_xor_to_all(ROCSHMEM_CTX_DEFAULT, dst0, src0, N, 0, 0,
npes, pWrk0, pSync);
roc_shmem_ctx_int_xor_to_all(ROC_SHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
rocshmem_ctx_int_xor_to_all(ROCSHMEM_CTX_DEFAULT, dst1, src1, N, 0, 0, npes,
pWrk1, pSync1);
roc_shmem_ctx_long_xor_to_all(ROC_SHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
rocshmem_ctx_long_xor_to_all(ROCSHMEM_CTX_DEFAULT, dst2, src2, N, 0, 0,
npes, pWrk2, pSync);
roc_shmem_ctx_longlong_xor_to_all(ROC_SHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
rocshmem_ctx_longlong_xor_to_all(ROCSHMEM_CTX_DEFAULT, dst6, src6, N, 0, 0,
npes, pWrk6, pSync1);
if (me == 0) {
@@ -725,36 +725,36 @@ int xor_to_all(int me, int npes) {
}
if (ok[0] == 1)
printf("Reduction operation roc_shmem_short_xor_to_all: Failed\n");
printf("Reduction operation rocshmem_short_xor_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_short_xor_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_short_xor_to_all: Passed\n");
pass++;
}
if (ok[1] == 1)
printf("Reduction operation roc_shmem_int_xor_to_all: Failed\n");
printf("Reduction operation rocshmem_int_xor_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_int_xor_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_int_xor_to_all: Passed\n");
pass++;
}
if (ok[2] == 1)
printf("Reduction operation roc_shmem_long_xor_to_all: Failed\n");
printf("Reduction operation rocshmem_long_xor_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_long_xor_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_long_xor_to_all: Passed\n");
pass++;
}
if (ok[6] == 1)
printf("Reduction operation roc_shmem_longlong_xor_to_all: Failed\n");
printf("Reduction operation rocshmem_longlong_xor_to_all: Failed\n");
else {
Vprintf("Reduction operation roc_shmem_longlong_xor_to_all: Passed\n");
Vprintf("Reduction operation rocshmem_longlong_xor_to_all: Passed\n");
pass++;
}
Vprintf("\n");
}
if (Serialize) roc_shmem_barrier_all();
if (Serialize) rocshmem_barrier_all();
return (pass == 4 ? 1 : 0);
}
@@ -763,9 +763,9 @@ int main(int argc, char *argv[]) {
int c, i, mype, num_pes, tests, passed;
char *pgm;
roc_shmem_init();
mype = roc_shmem_my_pe();
num_pes = roc_shmem_n_pes();
rocshmem_init();
mype = rocshmem_my_pe();
num_pes = rocshmem_n_pes();
if ((pgm = strrchr(argv[0], '/'))) {
pgm++;
@@ -802,58 +802,58 @@ int main(int argc, char *argv[]) {
case 'h':
default:
Rfprintf(stderr, "usage: %s {-v(verbose)|h(help)}\n", pgm);
roc_shmem_finalize();
rocshmem_finalize();
return 1;
}
}
tests = passed = 0;
pSync = (long *)roc_shmem_malloc(ROC_SHMEM_BCAST_SYNC_SIZE * sizeof(long));
pSync1 = (long *)roc_shmem_malloc(ROC_SHMEM_BCAST_SYNC_SIZE * sizeof(long));
pSync = (long *)rocshmem_malloc(ROCSHMEM_BCAST_SYNC_SIZE * sizeof(long));
pSync1 = (long *)rocshmem_malloc(ROCSHMEM_BCAST_SYNC_SIZE * sizeof(long));
if (!pSync || !pSync1) {
fprintf(stderr, "ERR: cannot allocate one of the pSync arrays\n");
}
for (i = 0; i < ROC_SHMEM_REDUCE_SYNC_SIZE; i++) {
pSync[i] = ROC_SHMEM_SYNC_VALUE;
pSync1[i] = ROC_SHMEM_SYNC_VALUE;
for (i = 0; i < ROCSHMEM_REDUCE_SYNC_SIZE; i++) {
pSync[i] = ROCSHMEM_SYNC_VALUE;
pSync1[i] = ROCSHMEM_SYNC_VALUE;
}
pWrk0 = (short *)roc_shmem_malloc(WRK_SIZE * sizeof(short));
pWrk1 = (int *)roc_shmem_malloc(WRK_SIZE * sizeof(int));
pWrk2 = (long *)roc_shmem_malloc(WRK_SIZE * sizeof(long));
pWrk3 = (float *)roc_shmem_malloc(WRK_SIZE * sizeof(float));
pWrk4 = (double *)roc_shmem_malloc(WRK_SIZE * sizeof(double));
pWrk5 = (long double *)roc_shmem_malloc(WRK_SIZE * sizeof(long double));
pWrk6 = (long long *)roc_shmem_malloc(WRK_SIZE * sizeof(long long));
pWrk0 = (short *)rocshmem_malloc(WRK_SIZE * sizeof(short));
pWrk1 = (int *)rocshmem_malloc(WRK_SIZE * sizeof(int));
pWrk2 = (long *)rocshmem_malloc(WRK_SIZE * sizeof(long));
pWrk3 = (float *)rocshmem_malloc(WRK_SIZE * sizeof(float));
pWrk4 = (double *)rocshmem_malloc(WRK_SIZE * sizeof(double));
pWrk5 = (long double *)rocshmem_malloc(WRK_SIZE * sizeof(long double));
pWrk6 = (long long *)rocshmem_malloc(WRK_SIZE * sizeof(long long));
if (!pWrk0 || !pWrk1 || !pWrk2 || !pWrk3 || !pWrk4 || !pWrk5 || !pWrk6) {
fprintf(stderr, "ERR: cannot allocate one of the pWrk arrays\n");
}
src0 = (short *)roc_shmem_malloc(N * sizeof(short));
src1 = (int *)roc_shmem_malloc(N * sizeof(int));
src2 = (long *)roc_shmem_malloc(N * sizeof(long));
src3 = (float *)roc_shmem_malloc(N * sizeof(float));
src4 = (double *)roc_shmem_malloc(N * sizeof(double));
src5 = (long double *)roc_shmem_malloc(N * sizeof(long double));
src6 = (long long *)roc_shmem_malloc(N * sizeof(long long));
src0 = (short *)rocshmem_malloc(N * sizeof(short));
src1 = (int *)rocshmem_malloc(N * sizeof(int));
src2 = (long *)rocshmem_malloc(N * sizeof(long));
src3 = (float *)rocshmem_malloc(N * sizeof(float));
src4 = (double *)rocshmem_malloc(N * sizeof(double));
src5 = (long double *)rocshmem_malloc(N * sizeof(long double));
src6 = (long long *)rocshmem_malloc(N * sizeof(long long));
if (!src0 || !src1 || !src2 || !src3 || !src4 || !src5 || !src6) {
fprintf(stderr, "ERR: cannot allocate one of the src arrays\n");
}
dst0 = (short *)roc_shmem_malloc(N * sizeof(short));
dst1 = (int *)roc_shmem_malloc(N * sizeof(int));
dst2 = (long *)roc_shmem_malloc(N * sizeof(long));
dst3 = (float *)roc_shmem_malloc(N * sizeof(float));
dst4 = (double *)roc_shmem_malloc(N * sizeof(double));
dst5 = (long double *)roc_shmem_malloc(N * sizeof(long double));
dst6 = (long long *)roc_shmem_malloc(N * sizeof(long long));
dst0 = (short *)rocshmem_malloc(N * sizeof(short));
dst1 = (int *)rocshmem_malloc(N * sizeof(int));
dst2 = (long *)rocshmem_malloc(N * sizeof(long));
dst3 = (float *)rocshmem_malloc(N * sizeof(float));
dst4 = (double *)rocshmem_malloc(N * sizeof(double));
dst5 = (long double *)rocshmem_malloc(N * sizeof(long double));
dst6 = (long long *)rocshmem_malloc(N * sizeof(long long));
if (!dst0 || !dst1 || !dst2 || !dst3 || !dst4 || !dst5 || !dst6) {
fprintf(stderr, "ERR: cannot allocate one of the dst arrays\n");
}
roc_shmem_barrier_all();
rocshmem_barrier_all();
passed += max_to_all(mype, num_pes);
tests++;
@@ -896,34 +896,34 @@ int main(int argc, char *argv[]) {
c = (tests == passed ? 0 : 1);
}
roc_shmem_free(pSync);
roc_shmem_free(pSync1);
rocshmem_free(pSync);
rocshmem_free(pSync1);
roc_shmem_free(pWrk0);
roc_shmem_free(pWrk1);
roc_shmem_free(pWrk2);
roc_shmem_free(pWrk3);
roc_shmem_free(pWrk4);
roc_shmem_free(pWrk5);
roc_shmem_free(pWrk6);
rocshmem_free(pWrk0);
rocshmem_free(pWrk1);
rocshmem_free(pWrk2);
rocshmem_free(pWrk3);
rocshmem_free(pWrk4);
rocshmem_free(pWrk5);
rocshmem_free(pWrk6);
roc_shmem_free(src0);
roc_shmem_free(src1);
roc_shmem_free(src2);
roc_shmem_free(src3);
roc_shmem_free(src4);
roc_shmem_free(src5);
roc_shmem_free(src6);
rocshmem_free(src0);
rocshmem_free(src1);
rocshmem_free(src2);
rocshmem_free(src3);
rocshmem_free(src4);
rocshmem_free(src5);
rocshmem_free(src6);
roc_shmem_free(dst0);
roc_shmem_free(dst1);
roc_shmem_free(dst2);
roc_shmem_free(dst3);
roc_shmem_free(dst4);
roc_shmem_free(dst5);
roc_shmem_free(dst6);
rocshmem_free(dst0);
rocshmem_free(dst1);
rocshmem_free(dst2);
rocshmem_free(dst3);
rocshmem_free(dst4);
rocshmem_free(dst5);
rocshmem_free(dst6);
roc_shmem_finalize();
rocshmem_finalize();
return c;
}