-/* Copyright (c) 2013-2019. The SimGrid Team.
+/* Copyright (c) 2013-2020. The SimGrid Team.
* All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
MPI_Comm_size( comm, &size );
MPI_Comm_rank( comm, &rank );
+ MPI_Comm_set_errhandler(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
+
int* sendbuf = (int *) malloc( size * sizeof(int) );
for (i=0; i<size; i++)
sendbuf[i] = rank + i;
if(retval!=MPI_ERR_BUFFER)
printf("MPI_Reduce_scatter did not return MPI_ERR_BUFFER for empty recvbuf\n");
retval = MPI_Reduce_scatter(sendbuf, recvbuf, NULL, MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
- if(retval!=MPI_ERR_ARG)
- printf("MPI_Reduce_scatter did not return MPI_ERR_ARG for NULL recvcounts\n");
+ if(retval!=MPI_ERR_COUNT)
+ printf("MPI_Reduce_scatter did not return MPI_ERR_COUNT for NULL recvcounts\n");
retval = MPI_Reduce_scatter(sendbuf, recvbuf, recvcounts, MPI_DATATYPE_NULL, MPI_SUM, MPI_COMM_WORLD);
if(retval!=MPI_ERR_TYPE)
printf("MPI_Reduce_scatter did not return MPI_ERR_TYPE for MPI_DATATYPE_NULL type\n");