double FORTRANIFY (shmem_real8_swap) (double *target, double *value, int *pe)
{
return shmem_double_swap (target, *value, *pe);
}
int
main(int argc, char* argv[])
{
int me, num_procs, l, j;
int Verbose = 0;
start_pes(0);
me = _my_pe();
num_procs = _num_pes();
if ( num_procs < 2 ) {
if (me ==0)
printf("PE[0] requires 2 or more PEs?\n");
return 1;
}
for (l = 0 ; l < loops ; ++l) {
if ((src_int = shmalloc(2*num_procs*sizeof(int))) == NULL) {
printf("PE-%d int shmalloc() failed?\n", me);
exit(1);
}
dst_int = &src_int[num_procs];
for(j=0; j < num_procs; j++) {
src_int[j] = 4;
dst_int[j] = 0;
}
if ((src_float = shmalloc(2*num_procs*sizeof(float))) == NULL) {
printf("PE-%d float shmalloc() failed?\n", me);
exit(1);
}
dst_float = &src_float[num_procs];
for(j=0; j < num_procs; j++) {
src_float[j] = 4.0;
dst_float[j] = 0.0;
}
if ((src_double = shmalloc(2*num_procs*sizeof(double))) == NULL) {
printf("PE-%d double shmalloc() failed?\n", me);
exit(1);
}
dst_double = &src_double[num_procs];
for(j=0; j < num_procs; j++) {
src_double[j] = 8.0;
dst_double[j] = 0.0;
}
if ((src_long = shmalloc(2*num_procs*sizeof(long))) == NULL) {
printf("PE-%d long shmalloc() failed?\n", me);
exit(1);
}
dst_long = &src_long[num_procs];
for(j=0; j < num_procs; j++) {
src_long[j] = 8;
dst_long[j] = 0;
}
if ((src_llong = shmalloc(2*num_procs*sizeof(long long))) == NULL) {
printf("PE-%d long shmalloc() failed?\n", me);
exit(1);
}
dst_llong = &src_llong[num_procs];
for(j=0; j < num_procs; j++) {
src_llong[j] = 16;
dst_llong[j] = 0;
}
shmem_barrier_all();
if ( me != 0 ) {
/* is 'src_*' accessible from PE0? should be. */
if (!shmem_addr_accessible(src_int,0)) {
printf("PE-%d local src_int %p not accessible from PE-%d?\n",
me, (void*)src_int, 0);
exit(1);
}
if (!shmem_addr_accessible(src_float,0)) {
printf("PE-%d local src_float %p not accessible from PE-%d?\n",
me, (void*)src_float, 0);
exit(1);
}
if (!shmem_addr_accessible(src_double,0)) {
printf("PE-%d local src_double %p not accessible from PE-%d?\n",
me, (void*)src_double, 0);
exit(1);
}
if (!shmem_addr_accessible(src_long,0)) {
printf("PE-%d local src_long %p not accessible from PE-%d?\n",
me, (void*)src_long, 0);
exit(1);
}
if (!shmem_addr_accessible(src_llong,0)) {
printf("PE-%d local src_llong %p not accessible from PE-%d?\n",
me, (void*)src_llong, 0);
exit(1);
}
}
shmem_barrier_all();
if ( me == 0 ) {
shmem_quiet();
for(j=1; j < num_procs; j++) {
dst_int[j] = shmem_int_swap(src_int+j,0,j);
if (dst_int[j] != 4) {
printf("PE-%d dst_int[%d] %d != 4?\n",me,j,dst_int[j]);
exit(1);
}
}
shmem_barrier_all();
/* verify remote data */
for(j=1; j < num_procs; j++) {
itmp = shmem_int_g(src_int+j,j);
if (itmp != 0) {
printf("PE-0 int PE[%d] rem(%d) != 0?\n",j,itmp);
exit(1);
}
/* swap back */
dst_int[j] = shmem_int_swap(src_int+j,dst_int[j],j);
if (dst_int[j] != 0) {
printf("PE-0 dst_int[%d] %d != 0?\n",j,dst_int[j]);
exit(1);
}
itmp = shmem_int_g(src_int+j,j);
if (itmp != 4) {
printf("PE-0 PE[%d] rem %d != 4?\n",j,itmp);
exit(1);
}
}
for(j=1; j < num_procs; j++) {
dst_float[j] = shmem_float_swap(src_float+j,0.0,j);
if (dst_float[j] != 4.0) {
printf("PE-0 dst_float[%d] %f != 4.0?\n",j,dst_float[j]);
exit(1);
}
/* verify remote data */
ftmp = shmem_float_g(src_float+j,j);
if (ftmp != 0.0) {
printf("PE-0 float rem(%f) != 0.0?\n",ftmp);
exit(1);
}
/* swap back */
dst_float[j] = shmem_float_swap(src_float+j,dst_float[j],j);
if (dst_float[j] != 0.0) {
printf("PE-0 dst_float[%d] %f != 0.0?\n",j,dst_float[j]);
exit(1);
}
ftmp = shmem_float_g(src_float+j,j);
if (ftmp != 4.0) {
printf("PE-%d float rem(%f) != 4.0?\n",me,ftmp);
exit(1);
}
}
for(j=1; j < num_procs; j++) {
dst_double[j] = shmem_double_swap(src_double+j,0.0,j);
if (dst_double[j] != 8.0) {
printf("PE-0 dst_double[%d] %f != 8.0?\n",j,dst_double[j]);
exit(1);
}
/* verify remote data */
dtmp = shmem_double_g(src_double+j,j);
if (dtmp != 0.0) {
printf("PE-0 float rem(%f) != 0.0?\n",dtmp);
exit(1);
}
dst_double[j] = shmem_double_swap(src_double+j,dst_double[j],j);
if (dst_double[j] != 0.0) {
printf("PE-0 dst_double[%d] %f != 0.0?\n",j,dst_double[j]);
exit(1);
}
dtmp = shmem_double_g(src_double+j,j);
if (dtmp != 8.0) {
printf("PE-0 double rem(%f) != 8.0?\n",dtmp);
exit(1);
}
}
for(j=1; j < num_procs; j++) {
dst_long[j] = shmem_long_swap(src_long+j,0,j);
if (dst_long[j] != 8) {
printf("PE-0 dst_long[%d] %ld != 8?\n",j,dst_long[j]);
exit(1);
}
}
shmem_barrier_all();
/* verify remote data */
for(j=1; j < num_procs; j++) {
ltmp = shmem_long_g(src_long+j,j);
if (ltmp != 0) {
printf("PE-0 PE[%d]long rem(%ld) != 0?\n",j,ltmp);
exit(1);
}
/* swap back */
dst_long[j] = shmem_long_swap(src_long+j,dst_long[j],j);
if (dst_long[j] != 0) {
printf("PE-%d dst_long[%d] %ld != 0?\n",me,j,dst_long[j]);
exit(1);
}
ltmp = shmem_long_g(src_long+j,j);
if (ltmp != 8) {
printf("PE-%d long rem(%ld) != 8?\n",me,ltmp);
exit(1);
}
}
for(j=1; j < num_procs; j++) {
dst_llong[j] = shmem_longlong_swap(src_llong+j,0,j);
if (dst_llong[j] != 16) {
printf("PE-%d dst_llong[%d] %lld != 16?\n",me,j,dst_llong[j]);
exit(1);
}
}
shmem_barrier_all();
/* verify remote data */
for(j=1; j < num_procs; j++) {
lltmp = shmem_longlong_g(src_llong+j,j);
if (lltmp != 0) {
printf("PE-%d long long rem(%lld) != 0?\n",me,lltmp);
exit(1);
}
/* swap back */
dst_llong[j] = shmem_longlong_swap(src_llong+j,dst_llong[j],j);
if (dst_llong[j] != 0) {
printf("PE-%d dst_llong[%d] %lld != 0?\n", me,j,dst_llong[j]);
exit(1);
}
lltmp = shmem_longlong_g(src_llong+j,j);
if (lltmp != 16) {
printf("PE-%d longlong rem(%lld) != 16?\n",me,lltmp);
exit(1);
}
}
}
else {
shmem_int_wait_until(&src_int[me],SHMEM_CMP_EQ,0);
shmem_barrier_all();
shmem_long_wait_until(&src_long[me],SHMEM_CMP_EQ,0);
shmem_barrier_all();
shmem_longlong_wait_until(&src_llong[me],SHMEM_CMP_EQ,0);
shmem_barrier_all();
}
shmem_barrier_all();
shfree(src_int);
shfree(src_float);
shfree(src_double);
shfree(src_long);
shfree(src_llong);
}
if (Verbose)
fprintf(stderr,"[%d] exit\n",_my_pe());
return 0;
}
int main(int argc, char **argv)
{
int i,j;
short oldjs, oldxs, my_pes;
int oldji, oldxi, my_pei;
long oldjl, oldxl, my_pel;
long long oldjll,oldxll,my_pell;
float oldjf, oldxf, my_pef;
double oldjd, oldxd, my_ped;
int my_pe,n_pes;
size_t max_elements,max_elements_bytes;
static short *xs;
static int *xi;
static long *xl;
static long long *xll;
static float *xf;
static double *xd;
shmem_init();
my_pe = shmem_my_pe();
n_pes = shmem_n_pes();
my_pes = (short) my_pe;
my_pei = (int) my_pe;
my_pel = (long) my_pe;
my_pell = (long long) my_pe;
my_pef = (float) my_pe;
my_ped = (double) my_pe;
#ifdef HAVE_SET_CACHE_INV
shmem_set_cache_inv();
#endif
/* fail if trying to use only one processor */
if ( n_pes <= 1 ){
fprintf(stderr, "FAIL - test requires at least two PEs\n");
exit(1);
}
if(my_pe == 0)
fprintf(stderr, "shmem_swap(%s) n_pes=%d\n", argv[0],n_pes);
/* test shmem_short_swap */
/* shmalloc xs on all pes (only check the ones on PE 0) */
max_elements_bytes = (size_t) (sizeof(short) * n_pes);
xs = shmem_malloc( max_elements_bytes );
for(i=0; i<n_pes; i++)
xs[i] = 0;
shmem_barrier_all();
oldjs = 0;
for(i=0; i<ITER; i++) {
if (my_pe != 0) {
my_pes = my_pes + (short) 1;
/* record PE value in xs[my_pe] -- save PE number */
oldxs = shmem_short_swap(&xs[my_pe], my_pes, 0);
/* printf("PE=%d,i=%d,my_pes=%d,oldxs=%d\n",my_pe,i,my_pes,oldxs); */
if (oldxs != oldjs)
fprintf(stderr, "FAIL PE %d of %d: i=%d, oldxs = %d expected = %d\n",
my_pe, n_pes, i, oldxs, oldjs);
oldjs = my_pes;
}
}
shmem_barrier_all();
if (my_pe == 0) { /* check xs[j] array vs PE# + ITER */
i = (int) ITER + 1;
for(j=1 ; j<n_pes; j++) {
/* printf("j=%d,xs[%d]=%d,i=%d\n",j,j,xs[j],i); */
if (xs[j] != (short) i)
fprintf(stderr, "FAIL PE %d of %d: xs[%d] = %d expected = %d\n",
my_pe, n_pes, j, xs[j],i);
i++;
}
}
shmem_free(xs);
/* test shmem_int_swap */
/* shmalloc xi on all pes (only check the ones on PE 0) */
max_elements_bytes = (size_t) (sizeof(int) * n_pes);
xi = shmem_malloc( max_elements_bytes );
for(i=0; i<n_pes; i++)
xi[i] = 0;
shmem_barrier_all();
oldji = 0;
for(i=0; i<ITER; i++) {
if (my_pe != 0) {
my_pei = my_pei + (int) 1;
/* record PE value in xi[my_pe] -- save PE number */
oldxi = shmem_int_swap(&xi[my_pe], my_pei, 0);
/* printf("PE=%d,i=%d,my_pei=%d,oldxi=%d\n",my_pe,i,my_pei,oldxi); */
if (oldxi != oldji)
fprintf(stderr, "FAIL PE %d of %d: i=%d, oldxi = %d expected = %d\n",
my_pe, n_pes, i, oldxi, oldji);
oldji = my_pei;
}
}
shmem_barrier_all();
if (my_pe == 0) { /* check xi[j] array vs PE# + ITER */
i = (int) ITER + 1;
for(j=1 ; j<n_pes; j++) {
/* printf("j=%d,xi[%d]=%d,i=%d\n",j,j,xi[j],i); */
if (xi[j] != i)
fprintf(stderr, "FAIL PE %d of %d: xi[%d] = %d expected = %d\n",
my_pe, n_pes, j, xi[j],i);
i++;
}
}
shmem_free(xi);
/* test shmem_long_swap */
/* shmalloc xl on all pes (only check the ones on PE 0) */
max_elements_bytes = (size_t) (sizeof(long) * n_pes);
xl = shmem_malloc( max_elements_bytes );
for(i=0; i<n_pes; i++)
xl[i] = 0;
shmem_barrier_all();
oldjl = 0;
for(i=0; i<ITER; i++) {
if (my_pe != 0) {
my_pel = my_pel + (long) 1;
/* record PE value in xl[my_pe] -- save PE number */
oldxl = shmem_long_swap(&xl[my_pe], my_pel, 0);
/* printf("PE=%d,i=%d,my_pel=%d,oldxl=%d\n",my_pe,i,my_pel,oldxl); */
if (oldxl != oldjl)
fprintf(stderr, "FAIL PE %d of %d: i=%d, oldxl = %d expected = %d\n",
my_pe, n_pes, i, oldxl, oldjl);
oldjl = my_pel;
}
}
shmem_barrier_all();
if (my_pe == 0) { /* check xl[j] array vs PE# + ITER */
i = (int) ITER + 1;
for(j=1 ; j<n_pes; j++) {
/* printf("j=%d,xl[%d]=%d,i=%d\n",j,j,xl[j],i); */
if (xl[j] != (long)i)
fprintf(stderr, "FAIL PE %d of %d: xl[%d] = %ld expected = %d\n",
my_pe, n_pes, j, xl[j],i);
i++;
}
}
shmem_free(xl);
/* test shmem_longlong_swap */
#ifdef HAVE_LONG_LONG
/* shmalloc xll on all pes (only check the ones on PE 0) */
max_elements_bytes = (size_t) (sizeof(long long) * n_pes);
xll = shmem_malloc( max_elements_bytes );
for(i=0; i<n_pes; i++)
xll[i] = 0;
shmem_barrier_all();
oldjll = 0;
for(i=0; i<ITER; i++) {
if (my_pe != 0) {
my_pell = my_pell + (long long) 1;
/* record PE value in xll[my_pe] -- save PE number */
oldxll = shmem_longlong_swap(&xll[my_pe], my_pell, 0);
/* printf("PE=%d,i=%d,my_pell=%ld,oldxll=%d\n",my_pe,i,my_pell,oldxll); */
if (oldxll != (long long) oldjll)
fprintf(stderr, "FAIL PE %d of %d: i=%d, oldxll = %ld expected = %ld\n",
my_pe, n_pes, i, oldxll, oldjll);
oldjll = my_pell;
}
}
shmem_barrier_all();
if (my_pe == 0) { /* check xll[j] array vs PE# + ITER */
i = (int) ITER + 1;
for(j=1 ; j<n_pes; j++) {
/* printf("j=%d,xll[%d]=%ld,i=%d\n",j,j,xll[j],i); */
if (xll[j] != (long long) i)
fprintf(stderr, "FAIL PE %d of %d: xll[%d] = %d expected = %d\n",
my_pe, n_pes, j, xll[j],i);
i++;
}
}
shmem_free(xll);
#endif
/* test shmem_float_swap */
/* shmalloc xf on all pes (only use the ones on PE 0) */
max_elements_bytes = (size_t) (sizeof(float) * n_pes);
xf = shmem_malloc( max_elements_bytes );
for(i=0; i<n_pes; i++)
xf[i] = (float) 0;
shmem_barrier_all();
oldjf = (float) 0;
for(i=0; i<ITER; i++) {
if (my_pe != 0) {
my_pef = my_pef + (float) 1;
/* record PE value in xf[my_pe] -- save PE number */
oldxf = shmem_float_swap(&xf[my_pe], my_pef, 0);
/* printf("PE=%d,i=%d,my_pef=%10.2f,oldxf=%10.2f\n",my_pe,i,my_pef,oldxf); */
if (oldxf != oldjf)
fprintf(stderr, "FAIL PE %d of %d: i=%d, oldxf = %10.2f expected = %10.2f\n",
my_pe, n_pes, i, oldxf, oldjf);
oldjf = my_pef;
}
}
shmem_barrier_all();
if (my_pe == 0) { /* check xs[j] array vs PE# + ITER */
i = (int) ITER + 1;
for(j=1 ; j<n_pes; j++) {
/* printf("j=%d,xf[%d]=%10.2f,i=%d\n",j,j,xf[j],i); */
if (xf[j] != (float) i)
fprintf(stderr, "FAIL PE %d of %d: xf[%d] = %10.2f expected = %10.2f\n",
my_pe, n_pes, j-1, xf[j], (float)i);
i++;
}
}
shmem_free(xf);
/* test shmem_double_swap */
/* shmalloc xd on all pes (only use the ones on PE 0) */
max_elements_bytes = (size_t) (sizeof(double) * n_pes);
xd = shmem_malloc( max_elements_bytes );
for(i=0; i<n_pes; i++)
xd[i] = (double) 0;
shmem_barrier_all();
oldjd = (double) 0;
for(i=0; i<ITER; i++) {
if (my_pe != 0) {
my_ped = my_ped + (double) 1;
/* record PE value in xd[my_pe] -- save PE number */
oldxd = shmem_double_swap(&xd[my_pe], my_ped, 0);
/* printf("PE=%d,i=%d,my_ped=%10.2f,oldxd=%10.2f\n",my_pe,i,my_ped,oldxd);
*/
if (oldxd != oldjd)
fprintf(stderr, "FAIL PE %d of %d: i=%d, oldxd = %10.2f expected = %10.2f\n",
my_pe, n_pes, i, oldxd, oldjd);
oldjd = my_ped;
}
}
shmem_barrier_all();
if (my_pe == 0) { /* check xd[j] array vs PE# + ITER */
i = (int) ITER + 1;
for(j=1 ; j<n_pes; j++) {
/* printf("j=%d,xd[%d]=%10.2f,i=%d\n",j,j,xd[j],i); */
if (xd[j] != (double) i)
fprintf(stderr, "FAIL PE %d of %d: xd[%d] = %10.2f expected = %10.2f\n",
my_pe, n_pes, j, xd[j], (double)i);
i++;
}
}
shmem_free(xd);
#ifdef SHMEM_C_GENERIC_32
/* test shmem_swap (GENERIC 32) */
my_pei = (int) my_pe;
/* shmalloc xi on all pes (only check the ones on PE 0) */
max_elements_bytes = (size_t) (sizeof(int) * n_pes);
xi = shmem_malloc( max_elements_bytes );
for(i=0; i<n_pes; i++)
xi[i] = 0;
shmem_barrier_all();
oldji = 0;
for(i=0; i<ITER; i++) {
if (my_pe != 0) {
my_pei = my_pei + (int) 1;
/* record PE value in xi[my_pe] -- save PE number */
oldxi = shmem_swap(&xi[my_pe], my_pei, 0);
/* printf("PE=%d,i=%d,my_pei=%d,oldxi=%d\n",my_pe,i,my_pei,oldxi); */
if (oldxi != oldji)
fprintf(stderr, "FAIL pe %d of %d: i=%d, oldxi = %d expected = %d\n",
my_pe, n_pes, i, oldxi, oldji);
oldji = my_pei;
}
}
shmem_barrier_all();
if (my_pe == 0) { /* check xi[j] array vs PE# + ITER */
i = (int) ITER + 1;
for(j=1 ; j<n_pes; j++) {
/* printf("j=%d,xi[%d]=%d,i=%d\n",j,j,xi[j],i); */
if (xi[j] != i)
fprintf(stderr, "FAIL pe %d of %d: xi[%d] = %d expected = %d\n",
my_pe, n_pes, j, xi[j],i);
i++;
}
}
shmem_free(xi);
#else
/* test shmem_swap (GENERIC 64) */
my_pel = (long) my_pe;
/* shmalloc xl on all pes (only check the ones on PE 0) */
max_elements_bytes = (size_t) (sizeof(long) * n_pes);
xl = shmem_malloc( max_elements_bytes );
for(i=0; i<n_pes; i++)
xl[i] = 0;
shmem_barrier_all();
oldjl = 0;
for(i=0; i<ITER; i++) {
if (my_pe != 0) {
my_pel = my_pel + (long) 1;
/* record PE value in xl[my_pe] -- save PE number */
oldxl = shmem_swap(&xl[my_pe], my_pel, 0);
/* printf("PE=%d,i=%d,my_pel=%d,oldxl=%d\n",my_pe,i,my_pel,oldxl); */
if (oldxl != oldjl)
fprintf(stderr, "FAIL pe %d of %d: i=%d, oldxl = %d expected = %d\n",
my_pe, n_pes, i, oldxl, oldjl);
oldjl = my_pel;
}
}
shmem_barrier_all();
if (my_pe == 0) { /* check xl[j] array vs PE# + ITER */
i = (int) ITER + 1;
for(j=1 ; j<n_pes; j++) {
/* printf("j=%d,xl[%d]=%d,i=%d\n",j,j,xl[j],i); */
if (xl[j] != (long)i)
fprintf(stderr, "FAIL pe %d of %d: xl[%d] = %ld expected = %d\n",
my_pe, n_pes, j, xl[j],i);
i++;
}
}
shmem_free(xl);
#endif
shmem_barrier_all();
#ifdef NEEDS_FINALIZE
shmem_finalize();
#endif
return 0;
}
int
main ()
{
int me, npes;
int *dest1;
float *dest2;
long *dest3;
double *dest4;
long long *dest5;
int swapped_val1, new_val1;
float swapped_val2, new_val2;
long swapped_val3, new_val3;
double swapped_val4, new_val4;
long long swapped_val5, new_val5;
int success = 1;
int success1_p1;
int success2_p1;
int success3_p1;
int success4_p1;
int success5_p1;
shmem_init ();
me = shmem_my_pe ();
npes = shmem_n_pes ();
shmem_barrier_all ();
/* Checks if there are atleast 2 executing PEs */
if (npes > 1) {
dest1 = (int *) shmem_malloc (sizeof (*dest1));
dest2 = (float *) shmem_malloc (sizeof (*dest2));
dest3 = (long *) shmem_malloc (sizeof (*dest3));
dest4 = (double *) shmem_malloc (sizeof (*dest4));
dest5 = (long long *) shmem_malloc (sizeof (*dest5));
*dest1 = *dest2 = *dest3 = *dest4 = *dest5 = me;
new_val1 = new_val2 = new_val3 = new_val4 = new_val5 = me;
success1_p1 = success1_p2 = success2_p1 = success2_p2 = success3_p1 =
success3_p2 = success4_p1 = success4_p2 = success5_p1 =
success5_p2 = -1;
shmem_barrier_all ();
swapped_val1 = shmem_int_swap (dest1, new_val1, (me + 1) % npes);
swapped_val2 = shmem_float_swap (dest2, new_val2, (me + 1) % npes);
swapped_val3 = shmem_long_swap (dest3, new_val3, (me + 1) % npes);
swapped_val4 = shmem_double_swap (dest4, new_val4, (me + 1) % npes);
swapped_val5 = shmem_longlong_swap (dest5, new_val5, (me + 1) % npes);
/* To validate the working of swap we need to check the value received
at the PE that initiated the swap as well as the dest PE */
if (me == 0) {
if (swapped_val1 == 1) {
success1_p1 = 1;
}
if (swapped_val2 == 1) {
success2_p1 = 1;
}
if (swapped_val3 == 1) {
success3_p1 = 1;
}
if (swapped_val4 == 1) {
success4_p1 = 1;
}
if (swapped_val5 == 1) {
success5_p1 = 1;
}
}
if (me == 1) {
if (*dest1 == 0) {
shmem_int_put (&success1_p2, &success, 1, 0);
}
if (*dest2 == 0) {
shmem_int_put (&success2_p2, &success, 1, 0);
}
if (*dest3 == 0) {
shmem_int_put (&success3_p2, &success, 1, 0);
}
if (*dest4 == 0) {
shmem_int_put (&success4_p2, &success, 1, 0);
}
if (*dest5 == 0) {
shmem_int_put (&success5_p2, &success, 1, 0);
}
}
shmem_barrier_all ();
if (me == 0) {
if (success1_p1 && success1_p2) {
printf ("Test shmem_int_swap: Passed\n");
}
else {
printf ("Test shmem_int_swap: Failed\n");
}
if (success2_p1 && success2_p2) {
printf ("Test shmem_float_swap: Passed\n");
}
else {
printf ("Test shmem_float_swap: Failed\n");
}
if (success3_p1 && success3_p2) {
printf ("Test shmem_long_swap: Passed\n");
}
else {
printf ("Test shmem_long_swap: Failed\n");
}
if (success4_p1 && success4_p2) {
printf ("Test shmem_double_swap: Passed\n");
}
else {
printf ("Test shmem_double_swap: Failed\n");
}
if (success5_p1 && success5_p2) {
printf ("Test shmem_longlong_swap: Passed\n");
}
else {
printf ("Test shmem_longlong_swap: Failed\n");
}
}
shmem_barrier_all ();
/* Test conditional swaps shmem_longlong_cswap, shmem_long_cswap,
shmem_int_cswap, */
*dest1 = *dest3 = *dest5 = me;
new_val1 = new_val3 = new_val5 = me;
success1_p1 = success1_p2 = success3_p1 = success3_p2 = success5_p1 =
success5_p2 = -1;
shmem_barrier_all ();
swapped_val1 = shmem_int_cswap (dest1, me + 1, (long) me, 1);
swapped_val3 = shmem_long_cswap (dest3, me + 1, (long) me, 1);
swapped_val5 = shmem_longlong_cswap (dest5, me + 1, (long) me, 1);
/* To validate the working of conditionalswap we need to check the
value received at the PE that initiated the conditional swap as
well as the dest PE */
if (me == 0) {
if (swapped_val1 == 1) {
success1_p1 = 1;
}
if (swapped_val3 == 1) {
success3_p1 = 1;
}
if (swapped_val5 == 1) {
success5_p1 = 1;
}
}
if (me == 1) {
if (*dest1 == 0) {
shmem_int_put (&success1_p2, &success, 1, 0);
}
if (*dest3 == 0) {
shmem_int_put (&success3_p2, &success, 1, 0);
}
if (*dest5 == 0) {
shmem_int_put (&success5_p2, &success, 1, 0);
}
}
shmem_barrier_all ();
if (me == 0) {
if (success1_p1 && success1_p2) {
printf ("Test shmem_int_cswap: Passed\n");
}
else {
printf ("Test shmem_int_cswap: Failed\n");
}
if (success3_p1 && success3_p2) {
printf ("Test shmem_long_cswap: Passed\n");
}
else {
printf ("Test shmem_long_cswap: Failed\n");
}
if (success5_p1 && success5_p2) {
printf ("Test shmem_longlong_cswap: Passed\n");
}
else {
printf ("Test shmem_longlong_cswap: Failed\n");
}
}
shmem_barrier_all ();
/* Test shmem_long_fadd, shmem_int_fadd, shmem_longlong_fadd */
*dest1 = *dest3 = *dest5 = me;
new_val1 = new_val3 = new_val5 = me;
success1_p1 = success1_p2 = success3_p1 = success3_p2 = success5_p1 =
success5_p2 = -1;
shmem_barrier_all ();
swapped_val1 = shmem_int_fadd (dest1, 1, 0);
swapped_val3 = shmem_long_fadd (dest3, 1, 0);
swapped_val5 = shmem_longlong_fadd (dest5, 1, 0);
/* To validate the working of fetch and add we need to check the old
value received at the PE that initiated the fetch and increment as
well as the new value on the dest PE */
if (me != 0) {
if (swapped_val1 == 0) {
success1_p1 = 1;
}
if (swapped_val3 == 0) {
success3_p1 = 1;
}
if (swapped_val5 == 0) {
success5_p1 = 1;
}
}
if (me == 0) {
if (*dest1 == npes - 1) {
shmem_int_put (&success1_p2, &success, 1, npes - 1);
}
if (*dest3 == npes - 1) {
shmem_int_put (&success3_p2, &success, 1, npes - 1);
}
if (*dest5 == npes - 1) {
shmem_int_put (&success5_p2, &success, 1, npes - 1);
}
}
shmem_barrier_all ();
if (me == npes - 1) {
if (success1_p1 && success1_p2) {
printf ("Test shmem_int_fadd: Passed\n");
}
else {
printf ("Test shmem_int_fadd: Failed\n");
}
if (success3_p1 && success3_p2) {
printf ("Test shmem_long_fadd: Passed\n");
}
else {
printf ("Test shmem_long_fadd: Failed\n");
}
if (success5_p1 && success5_p2) {
printf ("Test shmem_longlong_fadd: Passed\n");
}
else {
printf ("Test shmem_longlong_fadd: Failed\n");
}
}
shmem_barrier_all ();
/* Test shmem_long_finc, shmem_int_finc, shmem_longlong_finc */
*dest1 = *dest3 = *dest5 = me;
new_val1 = new_val3 = new_val5 = me;
success1_p1 = success1_p2 = success3_p1 = success3_p2 = success5_p1 =
success5_p2 = -1;
shmem_barrier_all ();
swapped_val1 = shmem_int_finc (dest1, 0);
swapped_val3 = shmem_long_finc (dest3, 0);
swapped_val5 = shmem_longlong_finc (dest5, 0);
/* To validate the working of fetch and increment we need to check the
old value received at the PE that initiated the fetch and increment
as well as the new value on the dest PE */
if (me != 0) {
if (swapped_val1 == 0) {
success1_p1 = 1;
}
if (swapped_val3 == 0) {
success3_p1 = 1;
}
if (swapped_val5 == 0) {
success5_p1 = 1;
}
}
if (me == 0) {
if (*dest1 == npes - 1) {
shmem_int_put (&success1_p2, &success, 1, npes - 1);
}
if (*dest3 == npes - 1) {
shmem_int_put (&success3_p2, &success, 1, npes - 1);
}
if (*dest5 == npes - 1) {
shmem_int_put (&success5_p2, &success, 1, npes - 1);
}
}
shmem_barrier_all ();
if (me == npes - 1) {
if (success1_p1 && success1_p2) {
printf ("Test shmem_int_finc: Passed\n");
}
else {
printf ("Test shmem_int_finc: Failed\n");
}
if (success3_p1 && success3_p2) {
printf ("Test shmem_long_finc: Passed\n");
}
else {
printf ("Test shmem_long_finc: Failed\n");
}
if (success5_p1 && success5_p2) {
printf ("Test shmem_longlong_finc: Passed\n");
}
else {
printf ("Test shmem_longlong_finc: Failed\n");
}
}
shmem_barrier_all ();
shmem_free (dest1);
shmem_free (dest2);
shmem_free (dest3);
shmem_free (dest4);
shmem_free (dest5);
}
else {
printf
("Number of PEs must be > 1 to test shmem atomics, test skipped\n");
}
shmem_finalize ();
return 0;
}
