int sum = -99, sum_mirror = -99, min = 999, max = -999;
double start_timer;
+ int quiet = 0;
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();
value = rank + 1; /* easy to verify that sum= (size*(size+1))/2; */
printf("ok.\n");
else
printf("failed.\n");
- printf("Elapsed time=%lf s\n", MPI_Wtime() - start_timer);
+ if (!quiet)
+ printf("Elapsed time=%lf s\n", MPI_Wtime() - start_timer);
}
MPI_Barrier(MPI_COMM_WORLD);
printf("** IBM Test Result: ... \n");
if (!ibm_test(rank, size))
printf("\t[%d] failed.\n", rank);
- else
+ else if (!quiet)
printf("\t[%d] ok.\n", rank);
+ else
+ printf("\tok.\n");
MPI_Finalize();
return 0;
# Go for the first test
p Test Reduce with 3 processes
-$ ../../src/smpi/smpirun -map -hostfile ${srcdir:=.}/hostfile -platform ${srcdir:=.}/../msg/small_platform.xml -np 3 ./reduce
+$ ../../src/smpi/smpirun -map -hostfile ${srcdir:=.}/hostfile -platform ${srcdir:=.}/../msg/small_platform.xml -np 3 ./reduce -q
> [rank 0] -> Tremblay
> [rank 1] -> Jupiter
> [rank 2] -> Fafard
> [0] sum=6 ... validation ok.
> [0] min=1 ... validation ok.
> [0] max=3 ... validation ok.
-> Elapsed time=0.007907 s
> ** IBM Test Result: ...
-> [0] ok.
-> [2] ok.
-> [1] ok.
+> ok.
+> ok.
+> ok.
# second test
! setenv LD_LIBRARY_PATH=../../src/.libs
p Test Reduce with 6 processes
-$ ../../src/smpi/smpirun -map -hostfile ${srcdir:=.}/hostfile -platform ${srcdir:=.}/../msg/small_platform.xml -np 6 ./reduce
+$ ../../src/smpi/smpirun -map -hostfile ${srcdir:=.}/hostfile -platform ${srcdir:=.}/../msg/small_platform.xml -np 6 ./reduce -q
> [rank 0] -> Tremblay
> [rank 1] -> Jupiter
> [rank 2] -> Fafard
> [0] sum=21 ... validation ok.
> [0] min=1 ... validation ok.
> [0] max=6 ... validation ok.
-> Elapsed time=0.007907 s
> ** IBM Test Result: ...
-> [2] ok.
-> [5] ok.
-> [4] ok.
-> [0] ok.
-> [1] ok.
-> [3] ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.
# third test
! setenv LD_LIBRARY_PATH=../../src/.libs
p Test Reduce with 12 processes
-$ ../../src/smpi/smpirun -map -hostfile ${srcdir:=.}/hostfile -platform ${srcdir:=.}/../msg/small_platform.xml -np 12 ./reduce
+$ ../../src/smpi/smpirun -map -hostfile ${srcdir:=.}/hostfile -platform ${srcdir:=.}/../msg/small_platform.xml -np 12 ./reduce -q
> [rank 0] -> Tremblay
> [rank 1] -> Jupiter
> [rank 2] -> Fafard
> [0] sum=78 ... validation ok.
> [0] min=1 ... validation ok.
> [0] max=12 ... validation ok.
-> Elapsed time=0.007908 s
> ** IBM Test Result: ...
-> [1] ok.
-> [11] ok.
-> [5] ok.
-> [10] ok.
-> [0] ok.
-> [3] ok.
-> [8] ok.
-> [9] ok.
-> [4] ok.
-> [7] ok.
-> [2] ok.
-> [6] ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.
+> ok.