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.     *

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

​

/*

 * Programmer:  Mohamad Chaarawi

 *              February 2015

 *

 * Purpose: This test creates a file and a bunch of objects in the

 * file and then calls MPI_Finalize without closing anything. The

 * library should exercise the attribute callback destroy attached to

 * MPI_COMM_SELF and terminate the HDF5 library closing all open

 * objects. The t_prestart test will read back the file and make sure

 * all created objects are there.

 */

​

#include "testphdf5.h"

​

int nerrors = 0;            /* errors count */

​

const char *FILENAME[] = {

    "shutdown",

    NULL

};

​

int

main (int argc, char **argv)

{

    hid_t       file_id, dset_id, grp_id;

    hid_t       fapl, sid, mem_dataspace;

    hsize_t     dims[RANK], i;

    herr_t      ret;

    char    filename[1024];

    int         mpi_size, mpi_rank;

    MPI_Comm    comm  = MPI_COMM_WORLD;

    MPI_Info    info  = MPI_INFO_NULL;

    hsize_t     start[RANK];

    hsize_t     count[RANK];

    hsize_t     stride[RANK];

    hsize_t     block[RANK];