X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/e0a9c75622e2b5755f7e95f79f6cdd241fd8cefe..9c5a3a5cae5517b0bff451bfe850395e8665e84a:/teshsuite/smpi/allgather_coll.c diff --git a/teshsuite/smpi/allgather_coll.c b/teshsuite/smpi/allgather_coll.c deleted file mode 100644 index 045154b4cc..0000000000 --- a/teshsuite/smpi/allgather_coll.c +++ /dev/null @@ -1,62 +0,0 @@ -/* Copyright (c) 2009-2010, 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 -#include -#include -#include -#include "mpi.h" - -#ifndef EXIT_SUCCESS -#define EXIT_SUCCESS 0 -#define EXIT_FAILURE 1 -#endif - -int main(int argc, char *argv[]) -{ - int rank, size; - int i; - int *sb; - int *rb; - int status; - - MPI_Init(&argc, &argv); - MPI_Comm_rank(MPI_COMM_WORLD, &rank); - MPI_Comm_size(MPI_COMM_WORLD, &size); - - int count = 2; - sb = (int *) xbt_malloc(count * sizeof(int)); - rb = (int *) xbt_malloc(count * size * sizeof(int)); - - for (i = 0; i < count; ++i) - sb[i] = rank * count + i; - for (i = 0; i < count * size; ++i) - rb[i] = 0; - - printf("[%d] sndbuf=[", rank); - for (i = 0; i < count; i++) - printf("%d ", sb[i]); - printf("]\n"); - - status = MPI_Allgather(sb, count, MPI_INT, rb, count, MPI_INT, MPI_COMM_WORLD); - - printf("[%d] rcvbuf=[", rank); - for (i = 0; i < count * size; i++) - printf("%d ", rb[i]); - printf("]\n"); - - - if (rank == 0) { - if (status != MPI_SUCCESS) { - printf("allgather returned %d\n", status); - fflush(stdout); - } - } - free(sb); - free(rb); - MPI_Finalize(); - return (EXIT_SUCCESS); -}