Files
phasicFlow/thirdParty/Zoltan/siMPI/pyMPI/siMPI/tests/testSendRecv7.c
2025-05-15 21:58:43 +03:30

56 lines
1.3 KiB
C

/*TEST
SKIP=1
PATH='tests/testSendRecv7.c'
CCFLAGS=""
INPUT=""
OUTPUT=''
STATUS=0
TEST*/
/******************************************************************/
/* FILE *********** testSendRecv7.c ********************/
/******************************************************************/
/* Author : Lisa Alano June 5 2002 */
/* Copyright (c) 2002 University of California Regents */
/******************************************************************/
/******************************************************************/
#if 0
CCFLAGS = TEST FLAGS
ARGS = None
INPUT = EOF
OUTPUT = MPI_Receive source invalid.
WAITS FOREVER.
STATUS = 1
#endif
#include <stdio.h>
#include <string.h>
#include "mpi.h"
int main(int argc, char**argv)
{
int my_rank;
int p;
char message1[50];
char message2[50];
int source, dest, tag;
MPI_Status status;
MPI_Init(&argc, &argv);
MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
MPI_Comm_size(MPI_COMM_WORLD, &p);
tag = dest = 0;
source = 1;
sprintf(message1, "Hello there");
MPI_Send(message1, strlen(message1)+1, MPI_CHAR, dest, tag, MPI_COMM_WORLD);
MPI_Recv(message2, 50, MPI_CHAR, source, tag, MPI_COMM_WORLD, &status);
printf("%s\n", message2);
MPI_Finalize();
return 0;
}