Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
update collectives teshsuite from mpich git (only minor changes)
[simgrid.git] / teshsuite / smpi / mpich3-test / coll / scatter2.c
index 5535a30..feac832 100644 (file)
@@ -64,7 +64,14 @@ int main( int argc, char **argv )
            }
        }
     }
+
+    MPI_Comm_set_errhandler(MPI_COMM_WORLD, MPI_ERRORS_RETURN);
+    if (rank == 0 && MPI_SUCCESS ==
+            MPI_Scatter(vecin, 1, MPI_DOUBLE, vecin, 1, MPI_DOUBLE, 0, MPI_COMM_WORLD))
+        err++;
     
+    free(vecin);
+    free(vecout);
     MTest_Finalize( err );
     MPI_Type_free( &vec );
     MPI_Finalize();