Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Fix dead assignments.
[simgrid.git] / teshsuite / smpi / bcast / bcast_coll.c
1 /* Copyright (c) 2009, 2013-2014. The SimGrid Team.
2  * All rights reserved.                                                     */
3
4 /* This program is free software; you can redistribute it and/or modify it
5  * under the terms of the license (GNU LGPL) which comes with this package. */
6
7 #include <stdio.h>
8 #include <mpi.h>
9
10 int main(int argc, char **argv)
11 {
12   int i, size, rank;
13   int count = 2048;
14   int *values;
15   int status;
16
17   MPI_Init(&argc, &argv);
18   MPI_Comm_size(MPI_COMM_WORLD, &size);
19   MPI_Comm_rank(MPI_COMM_WORLD, &rank);
20   
21   values = (int *) xbt_malloc(count * sizeof(int));  
22
23   for (i = 0; i < count; i++)
24     values[i] = (0 == rank) ? 17 : 3;
25
26   MPI_Bcast(values, count, MPI_INT, 0, MPI_COMM_WORLD);
27
28   int good = 0;
29   for (i = 0; i < count; i++)
30     if (values[i]==17) good++;
31   printf("[%d] number of values equals to 17: %d\n", rank, good);
32
33   MPI_Barrier(MPI_COMM_WORLD);
34   xbt_free(values);
35
36   count = 4096;
37   values = (int *) xbt_malloc(count * sizeof(int));  
38
39   for (i = 0; i < count; i++)
40     values[i] = (size -1 == rank) ? 17 : 3;
41
42   status = MPI_Bcast(values, count, MPI_INT, size-1, MPI_COMM_WORLD);
43
44   good = 0;
45   for (i = 0; i < count; i++)
46     if (values[i]==17) good++;
47   printf("[%d] number of values equals to 17: %d\n", rank, good);
48
49
50   
51   
52   if (rank == 0) {
53     if (status != MPI_SUCCESS) {
54       printf("bcast returned %d\n", status);
55       fflush(stdout);
56     }
57   }
58   xbt_free(values);
59   MPI_Finalize();
60   return 0;
61 }