1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
4 * (C) 2001 by Argonne National Laboratory.
5 * See COPYRIGHT in top-level directory.
11 #include "mpitestconf.h"
17 int main(int argc, char *argv[])
22 char name[MPI_MAX_OBJECT_NAME], nameout[MPI_MAX_OBJECT_NAME];
24 MTest_Init(&argc, &argv);
27 while (MTestGetWin(&win, 1)) {
28 if (win == MPI_WIN_NULL)
31 sprintf(name, "win-%d", cnt);
33 MPI_Win_set_name(win, name);
35 MPI_Win_get_name(win, nameout, &namelen);
36 if (strcmp(name, nameout)) {
38 printf("Unexpected name, was %s but should be %s\n", nameout, name);