2 MPICH 1.0.8 on Intel Paragons is alleged to have failed this test.
4 From: weber@zam212.zam.kfa-juelich.de (M.Weber)
5 Reply-To: M.Weber@kfa-juelich.de
6 modified slightly to meet our test rules.)
11 /* SIZE 16 worked on Paragon */
13 #if defined(NEEDS_STDLIB_PROTOTYPES)
17 int main( int argc, char *argv[])
19 int num_procs,my_id,flag;
24 MPI_Init(&argc,&argv);
25 MPI_Comm_size(MPI_COMM_WORLD,&num_procs);
26 MPI_Comm_rank(MPI_COMM_WORLD,&my_id);
29 MPI_Isend (buf, SIZE*SIZE, MPI_INT, 0, 0, MPI_COMM_WORLD, &handle );
33 MPI_Test (&handle, &flag, &status);
34 printf("%d Wait for completition flag = %d handle = %ld ....\n",
35 my_id, flag, (long) handle);
38 else if (my_id == 0 ) {
39 MPI_Recv (buf, SIZE*SIZE, MPI_INT, 1, 0, MPI_COMM_WORLD, &status );
42 printf("%d Done ....\n",my_id);