X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/e0a9c75622e2b5755f7e95f79f6cdd241fd8cefe..9c5a3a5cae5517b0bff451bfe850395e8665e84a:/teshsuite/smpi/bcast_coll.c

diff --git a/teshsuite/smpi/bcast_coll.c b/teshsuite/smpi/bcast_coll.c
deleted file mode 100644
index c9d898e391..0000000000
--- a/teshsuite/smpi/bcast_coll.c
+++ /dev/null
@@ -1,61 +0,0 @@
-/* Copyright (c) 2009, 2013-2014. The SimGrid Team.
- * All rights reserved.                                                     */
-
-/* This program is free software; you can redistribute it and/or modify it
- * under the terms of the license (GNU LGPL) which comes with this package. */
-
-#include <stdio.h>
-#include <mpi.h>
-
-int main(int argc, char **argv)
-{
-  int i, size, rank;
-  int count = 2048;
-  int *values;
-  int status;
-
-  MPI_Init(&argc, &argv);
-  MPI_Comm_size(MPI_COMM_WORLD, &size);
-  MPI_Comm_rank(MPI_COMM_WORLD, &rank);
-  
-  values = (int *) xbt_malloc(count * sizeof(int));  
-
-  for (i = 0; i < count; i++)
-    values[i] = (0 == rank) ? 17 : 3;
-
-  status = MPI_Bcast(values, count, MPI_INT, 0, MPI_COMM_WORLD);
-
-  int good = 0;
-  for (i = 0; i < count; i++)
-    if (values[i]==17) good++;
-  printf("[%d] number of values equals to 17: %d\n", rank, good);
-
-  MPI_Barrier(MPI_COMM_WORLD);
-  xbt_free(values);
-
-  count = 4096;
-  values = (int *) xbt_malloc(count * sizeof(int));  
-
-  for (i = 0; i < count; i++)
-    values[i] = (size -1 == rank) ? 17 : 3;
-
-  status = MPI_Bcast(values, count, MPI_INT, size-1, MPI_COMM_WORLD);
-
-  good = 0;
-  for (i = 0; i < count; i++)
-    if (values[i]==17) good++;
-  printf("[%d] number of values equals to 17: %d\n", rank, good);
-
-
-  
-  
-  if (rank == 0) {
-    if (status != MPI_SUCCESS) {
-      printf("bcast returned %d\n", status);
-      fflush(stdout);
-    }
-  }
-  xbt_free(values);
-  MPI_Finalize();
-  return 0;
-}