Commit abe3cfc6 authored by Paul Coffman's avatar Paul Coffman Committed by Rob Latham
Browse files

added code to check if fd->comm is intercomm then abort


Signed-off-by: Rob Latham's avatarRob Latham <robl@mcs.anl.gov>
parent 50de3086
......@@ -47,10 +47,18 @@ ADIOI_PE_gen_agg_ranklist(ADIO_File fd)
char *ioTaskList = getenv( "MP_IOTASKLIST" );
char *ioAgentCount = getenv("MP_IOAGENT_CNT");
int i,j;
int inTERcommFlag = 0;
int myRank;
MPI_Comm_rank(fd->comm, &myRank);
MPI_Comm_test_inter(fd->comm, &inTERcommFlag);
if (inTERcommFlag) {
FPRINTF(stderr,"inTERcomms are not supported in MPI-IO - aborting....\n");
perror("ADIOI_PE_gen_agg_ranklist:");
MPI_Abort(MPI_COMM_WORLD, 1);
}
if (ioTaskList) {
char tmpBuf[8]; /* Big enough for 1M tasks (7 digits task ID). */
tmpBuf[7] = '\0';
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment