1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
4 * (C) 2014 by Argonne National Laboratory.
5 * See COPYRIGHT in top-level directory.
13 #define MAX_SIZE 65536
15 int main(int argc, char *argv[])
18 int errors = 0, all_errors = 0;
19 int *buf = NULL, *winbuf = NULL;
22 MPI_Init(&argc, &argv);
23 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
24 MPI_Comm_size(MPI_COMM_WORLD, &nproc);
28 printf("Error: must be run with two or more processes\n");
29 MPI_Abort(MPI_COMM_WORLD, 1);
32 MPI_Alloc_mem(MAX_SIZE * sizeof(int), MPI_INFO_NULL, &buf);
33 MPI_Alloc_mem(MAX_SIZE * sizeof(int), MPI_INFO_NULL, &winbuf);
34 MPI_Win_create(winbuf, MAX_SIZE * sizeof(int), sizeof(int), MPI_INFO_NULL,
35 MPI_COMM_WORLD, &window);
37 MPI_Win_lock_all(0, window);
39 /* Test Rput local completion with small data.
40 * Small data is always copied to header packet as immediate data. */
42 for (i = 0; i < ITER; i++) {
47 MPI_Rput(&buf[0], 1, MPI_INT, 0, 0, 1, MPI_INT, window, &put_req);
48 MPI_Wait(&put_req, MPI_STATUS_IGNORE);
50 /* reset local buffer to check local completion */
52 MPI_Win_flush(0, window);
54 MPI_Get(&val, 1, MPI_INT, 0, 0, 1, MPI_INT, window);
55 MPI_Win_flush(0, window);
58 printf("%d - Got %d in small Rput test, expected %d\n", rank, val, rank);
64 MPI_Barrier(MPI_COMM_WORLD);
66 /* Test Rput local completion with large data .
67 * Large data is not suitable for 1-copy optimization, and always sent out
68 * from user buffer. */
70 for (i = 0; i < ITER; i++) {
72 int val0 = -1, val1 = -1, val2 = -1;
76 for (j = 0; j < MAX_SIZE; j++) {
77 buf[j] = rank + j + i;
80 MPI_Rput(buf, MAX_SIZE, MPI_INT, 0, 0, MAX_SIZE, MPI_INT, window, &put_req);
81 MPI_Wait(&put_req, MPI_STATUS_IGNORE);
83 /* reset local buffer to check local completion */
85 buf[MAX_SIZE - 1] = 0;
86 buf[MAX_SIZE / 2] = 0;
87 MPI_Win_flush(0, window);
89 /* get remote values which are modified in local buffer after wait */
90 MPI_Get(&val0, 1, MPI_INT, 0, 0, 1, MPI_INT, window);
91 MPI_Get(&val1, 1, MPI_INT, 0, MAX_SIZE - 1, 1, MPI_INT, window);
92 MPI_Get(&val2, 1, MPI_INT, 0, MAX_SIZE / 2, 1, MPI_INT, window);
93 MPI_Win_flush(0, window);
95 if (val0 != rank + i) {
96 printf("%d - Got %d in large Rput test, expected %d\n", rank, val0, rank + i);
99 if (val1 != rank + MAX_SIZE - 1 + i) {
100 printf("%d - Got %d in large Rput test, expected %d\n", rank, val1,
101 rank + MAX_SIZE - 1 + i);
104 if (val2 != rank + MAX_SIZE / 2 + i) {
105 printf("%d - Got %d in large Rput test, expected %d\n", rank, val2,
106 rank + MAX_SIZE / 2 + i);
112 MPI_Win_unlock_all(window);
113 MPI_Barrier(MPI_COMM_WORLD);
115 MPI_Win_free(&window);
119 MPI_Free_mem(winbuf);
121 MPI_Reduce(&errors, &all_errors, 1, MPI_INT, MPI_SUM, 0, MPI_COMM_WORLD);
123 if (rank == 0 && all_errors == 0)
124 printf(" No Errors\n");