1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
/*
* Copyright (C) by Argonne National Laboratory
* See COPYRIGHT in top-level directory
*/
#include "mpi.h"
#include <stdio.h>
#include "mpitest.h"
/*
static char MTEST_Descrip[] = "Create a communicator with a graph that contains no processes";
*/
int main(int argc, char *argv[])
{
int errs = 0;
int *index = 0, *edges = 0;
MPI_Comm comm;
MTest_Init(&argc, &argv);
/* MPI 2.1, page 246, lines 29-30 make it clear that this is a valid
* (not erroneous) call that must return MPI_COMM_NULL */
MPI_Graph_create(MPI_COMM_WORLD, 0, index, edges, 0, &comm);
if (comm != MPI_COMM_NULL) {
errs++;
fprintf(stderr, "Expected MPI_COMM_NULL from empty graph create\n");
}
MTest_Finalize(errs);
return MTestReturnValue(errs);
}
|
