1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
3 * (C) 2001 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
10 int main(int argc, char *argv[])
15 MPI_Init(&argc, &argv);
17 /* create a legitimate type to see that we don't
18 * emit spurious errors.
20 MPI_Type_hvector(0, 1, 10, MPI_DOUBLE, &newtype);
21 MPI_Type_commit(&newtype);
22 MPI_Type_free(&newtype);
24 MPI_Type_indexed(0, b, d, MPI_DOUBLE, &newtype);
25 MPI_Type_commit(&newtype);
27 MPI_Sendrecv(b, 1, newtype, 0, 0, d, 0, newtype, 0, 0, MPI_COMM_WORLD, MPI_STATUS_IGNORE);
29 printf(" No Errors\n");
31 MPI_Type_free(&newtype);