making ping pong be executed 10 times

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

diff --git a/examples/smpi/ttest01.c b/examples/smpi/ttest01.c
index 2324eeb..ada55b9 100644 (file)
--- a/examples/smpi/ttest01.c
+++ b/examples/smpi/ttest01.c
@@ -20,21 +20,26 @@ int main(int argc, char *argv[])
   MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
   MPI_Comm_rank(MPI_COMM_WORLD, &rank);
 
-  TRACE_smpi_set_category("A");
-  if (rank == 0) {
-    MPI_Send(r, DATATOSENT, MPI_INT, 1, tag, MPI_COMM_WORLD);
-  } else if (rank == 1) {
-    MPI_Recv(r, DATATOSENT, MPI_INT, 0, tag, MPI_COMM_WORLD, &status);
-  } else {
-    //do nothing
-  }
-  TRACE_smpi_set_category("B");
-  if (rank == 0) {
-    MPI_Recv(r, DATATOSENT, MPI_INT, 1, tag, MPI_COMM_WORLD, &status);
-  } else if (rank == 1) {
-    MPI_Send(r, DATATOSENT, MPI_INT, 0, tag, MPI_COMM_WORLD);
-  } else {
-    //do nothing
+
+  int i;
+  for (i = 0; i < 10; i++) {
+    TRACE_smpi_set_category("A");
+    if (rank == 0) {
+      MPI_Send(r, DATATOSENT, MPI_INT, 1, tag, MPI_COMM_WORLD);
+    } else if (rank == 1) {
+      MPI_Recv(r, DATATOSENT, MPI_INT, 0, tag, MPI_COMM_WORLD, &status);
+    } else {
+      //do nothing
+    }
+
+    TRACE_smpi_set_category("B");
+    if (rank == 0) {
+      MPI_Recv(r, DATATOSENT, MPI_INT, 1, tag, MPI_COMM_WORLD, &status);
+    } else if (rank == 1) {
+      MPI_Send(r, DATATOSENT, MPI_INT, 0, tag, MPI_COMM_WORLD);
+    } else {
+      //do nothing
+    }
   }
   TRACE_smpi_set_category("C");
   MPI_Barrier(MPI_COMM_WORLD);