vchoi_fork

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

 * Copyright by The HDF Group.                                               *

 * Copyright by the Board of Trustees of the University of Illinois.         *

 * All rights reserved.                                                      *

 *                                                                           *

 * This file is part of HDF5.  The full HDF5 copyright notice, including     *

 * terms governing use, modification, and redistribution, is contained in    *

 * the files COPYING and Copyright.html.  COPYING can be found at the root   *

 * of the source code distribution tree; Copyright.html can be found at the  *

 * root level of an installed copy of the electronic HDF5 document set and   *

 * is linked from the top-level documents page.  It can also be found at     *

 * http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *

 * access to either file, you may request a copy from help@hdfgroup.org.     *

 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

​

/*

 * Parallel tests for file operations

 */

​

#include "testphdf5.h"

​

/*

 * test file access by communicator besides COMM_WORLD.

 * Split COMM_WORLD into two, one (even_comm) contains the original

 * processes of even ranks.  The other (odd_comm) contains the original

 * processes of odd ranks.  Processes in even_comm creates a file, then

 * cloose it, using even_comm.  Processes in old_comm just do a barrier

 * using odd_comm.  Then they all do a barrier using COMM_WORLD.

 * If the file creation and cloose does not do correct collective action

 * according to the communicator argument, the processes will freeze up

 * sooner or later due to barrier mixed up.

 */

void

test_split_comm_access(void)

{

    int mpi_size, mpi_rank;

    MPI_Comm comm;

    MPI_Info info = MPI_INFO_NULL;

    int is_old, mrc;

    int newrank, newprocs;

    hid_t fid;          /* file IDs */

    hid_t acc_tpl;      /* File access properties */

    herr_t ret;         /* generic return value */

    const char *filename;

​

    filename = (const char *)GetTestParameters();

    if (VERBOSE_MED)

    printf("Split Communicator access test on file %s\n",

        filename);

​

    /* set up MPI parameters */