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,
29 MPI_COMM_WORLD, MPI_STATUS_IGNORE );
31 printf( " No Errors\n" );
33 MPI_Type_free( &newtype );