4
PATH='tests/testIsend5.c'
11
/******************************************************************/
12
/* FILE *********** testIsend5.c ********************/
13
/******************************************************************/
14
/* Author : Lisa Alano July 29 2002 */
15
/* Copyright (c) 2002 University of California Regents */
16
/******************************************************************/
17
/******************************************************************/
23
OUTPUT = ERROR: -5005 MPI_SEND argument error
24
ERROR: -5005 MPI aborting...
33
int main(int argc, char**argv)
39
int source, dest, tag;
42
MPI_Init(&argc, &argv);
43
MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
44
MPI_Comm_size(MPI_COMM_WORLD, &p);
46
source = tag = dest = 0;
47
sprintf(message1, "Hello there");
48
MPI_Isend(message1, strlen(message1)+1, MPI_CHAR, dest, tag, MPI_COMM_WORLD, &request);
49
MPI_Irecv(message2, 50, MPI_CHAR, 2, tag, MPI_COMM_WORLD, &request);
51
printf("%s\n", message2);