* more thorough test for MPI_Reduce()

[simgrid.git] / examples / smpi / barrier.c

diff --git a/examples/smpi/barrier.c b/examples/smpi/barrier.c
new file mode 100644 (file)
index 0000000..31e605d
--- /dev/null
+++ b/examples/smpi/barrier.c
@@ -0,0 +1,22 @@
+#include <stdio.h>
+#include <mpi.h>
+
+
+int main (int argc, char **argv) {
+         int size, rank;
+         int root=0;
+         int value;
+         double start_timer;
+
+         MPI_Init(&argc, &argv);
+         MPI_Comm_size(MPI_COMM_WORLD, &size);
+         MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+
+
+  MPI_Barrier( MPI_COMM_WORLD );
+  MPI_Barrier( MPI_COMM_WORLD );
+
+  MPI_Finalize();
+  return 0;
+}
+