1
1
openmpi/orte/test/mpi/reduce-hang.c
2009-04-09 02:48:33 +00:00

38 строки
728 B
C

#include <mpi.h>
#include <stdio.h>
#include <stdlib.h>
int main(int argc, char *argv[])
{
long count = 0;
int i = 8, j;
int self;
int do_barrier = 0;
int k;
double pi;
if (getenv("DO_BARRIER")) {
do_barrier = 1;
}
MPI_Init(&argc, &argv);
MPI_Comm_rank(MPI_COMM_WORLD, &self);
while (1) {
#if 0
for (k=0; k < (7-self)*1000; k++) {
pi = 3.14159 * 18.0 / 35.3;
}
#endif
MPI_Reduce(&i, &j, 1, MPI_INT, MPI_SUM, 0, MPI_COMM_WORLD);
if (do_barrier) {
MPI_Barrier(MPI_COMM_WORLD);
}
if (0 == (++count % 10000)) {
fprintf(stderr, "%ld still going at %d\n", self, count);
}
}
MPI_Finalize();
return 0;
}