MPI_Comm_set_errhandler(dup, MPI_ERRORS_RETURN);
int* sb = (int*)calloc(size * maxlen, sizeof(int));
- int* rb = (int*)calloc(size * maxlen, sizeof(int));
+ int* rb = (int*)calloc(size * maxlen+rank, sizeof(int));
for (int i = 0; i < size * maxlen; ++i) {
sb[i] = rank*size + i;
printf("all_to_all returned %d\n", status);
fflush(stdout);
}
- //Do not free dup and rb
- free(sb);
+ //Do not free dup and rb/sb
MPI_Finalize();
- return (EXIT_SUCCESS);
+ return EXIT_SUCCESS;
}