examples to demonstrate bugs in sendrecv

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

diff --git a/examples/smpi/bcast.c b/examples/smpi/bcast.c
index 27b58ee..6e197fe 100644 (file)
--- a/examples/smpi/bcast.c
+++ b/examples/smpi/bcast.c
@@ -1,27 +1,33 @@
 #include <stdio.h>
 #include <mpi.h>
 
 #include <stdio.h>
 #include <mpi.h>
 

-int main (int argc, char **argv) {
+int main(int argc, char **argv)
+{

   int size, rank;
   int value = 3;
   double start_timer;
   int size, rank;
   int value = 3;
   double start_timer;

+  int quiet = 0;

 
   MPI_Init(&argc, &argv);
   MPI_Comm_size(MPI_COMM_WORLD, &size);
   MPI_Comm_rank(MPI_COMM_WORLD, &rank);
 
 
   MPI_Init(&argc, &argv);
   MPI_Comm_size(MPI_COMM_WORLD, &size);
   MPI_Comm_rank(MPI_COMM_WORLD, &rank);
 

+  if (argc > 1 && !strcmp(argv[1], "-q"))
+    quiet = 1;
+

   start_timer = MPI_Wtime();
 
   if (0 == rank) {
     value = 17;
   }
   start_timer = MPI_Wtime();
 
   if (0 == rank) {
     value = 17;
   }

-  printf("node %d has value %d\n", rank, value);
+  printf("node %d has value %d before broadcast\n", rank, value);

   MPI_Bcast(&value, 1, MPI_INT, 0, MPI_COMM_WORLD);
   MPI_Bcast(&value, 1, MPI_INT, 0, MPI_COMM_WORLD);

-  printf("node %d has value %d\n", rank, value);
+  printf("node %d has value %d after broadcast\n", rank, value);

 
 

-  MPI_Barrier( MPI_COMM_WORLD );
-  if ( 0 == rank)
-           printf("Elapsed time on rank %d: %lf s\n", rank, MPI_Wtime()-start_timer);
+  MPI_Barrier(MPI_COMM_WORLD);
+  if (0 == rank && !quiet)
+    printf("Elapsed time on rank %d: %lf s\n", rank,
+           MPI_Wtime() - start_timer);

   MPI_Finalize();
   return 0;
 }
   MPI_Finalize();
   return 0;
 }