Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
removed random seed in order to test result
[simgrid.git] / teshsuite / smpi / coll-reduce-scatter / coll-reduce-scatter.c
index 34d2e404f6028383eac65a3ec5d1649b8d386933..27895628360fd2d588e8f6a778dc75838439bea9 100644 (file)
@@ -1,4 +1,4 @@
-/* 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
@@ -28,6 +28,8 @@ int main( int argc, char **argv )
 
   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;
@@ -44,8 +46,8 @@ int main( int argc, char **argv )
   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");