2003-04-01 01:59:04 +08:00
|
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
2007-02-07 22:56:24 +08:00
|
|
|
|
* Copyright by The HDF Group. *
|
2003-04-01 01:59:04 +08:00
|
|
|
|
* 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 *
|
2007-02-07 22:56:24 +08:00
|
|
|
|
* 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. *
|
2003-04-01 01:59:04 +08:00
|
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
|
|
1998-10-26 22:49:52 +08:00
|
|
|
|
/*
|
|
|
|
|
* Programmer: Robb Matzke <matzke@llnl.gov>
|
|
|
|
|
* Friday, October 23, 1998
|
|
|
|
|
*
|
|
|
|
|
* Purpose: This is the first half of a two-part test that makes sure
|
|
|
|
|
* that a file can be read after an application crashes as long
|
|
|
|
|
* as the file was flushed first. We simulate a crash by
|
2016-10-25 22:53:44 +08:00
|
|
|
|
* calling _exit(EXIT_SUCCESS) since this doesn't flush HDF5 caches but
|
1998-10-26 22:49:52 +08:00
|
|
|
|
* still exits with success.
|
|
|
|
|
*/
|
2001-04-04 02:09:16 +08:00
|
|
|
|
#include "h5test.h"
|
1998-10-26 22:49:52 +08:00
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
/* This file needs to access the file driver testing code */
|
|
|
|
|
#define H5FD_FRIEND /*suppress error about including H5FDpkg */
|
|
|
|
|
#define H5FD_TESTING
|
|
|
|
|
#include "H5FDpkg.h" /* File drivers */
|
|
|
|
|
|
1998-11-24 04:40:35 +08:00
|
|
|
|
const char *FILENAME[] = {
|
|
|
|
|
"flush",
|
2016-12-20 12:44:54 +08:00
|
|
|
|
"flush-swmr",
|
2006-09-30 06:01:07 +08:00
|
|
|
|
"noflush",
|
2016-12-20 12:44:54 +08:00
|
|
|
|
"noflush-swmr",
|
|
|
|
|
"flush_extend",
|
|
|
|
|
"flush_extend-swmr",
|
2006-10-05 03:50:40 +08:00
|
|
|
|
"noflush_extend",
|
2016-12-20 12:44:54 +08:00
|
|
|
|
"noflush_extend-swmr",
|
1998-11-24 04:40:35 +08:00
|
|
|
|
NULL
|
|
|
|
|
};
|
1998-10-26 22:49:52 +08:00
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
/* Number and size of dataset dims, chunk size, etc. */
|
|
|
|
|
#define NDIMS 1
|
|
|
|
|
#define NELEMENTS 10000
|
|
|
|
|
#define CHUNK_SIZE 25
|
|
|
|
|
#define FIRST_DSET_NAME "dset1"
|
|
|
|
|
#define SECOND_DSET_NAME "dset2"
|
|
|
|
|
|
|
|
|
|
/* Number of sub-groups created in the containing group */
|
|
|
|
|
#define NGROUPS 100
|
|
|
|
|
|
|
|
|
|
static hid_t create_file(const char *filename, hid_t fapl_id, hbool_t swmr);
|
|
|
|
|
static herr_t add_dset_to_file(hid_t fid, const char *dset_name);
|
2001-04-01 11:27:34 +08:00
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
|
2006-09-30 06:01:07 +08:00
|
|
|
|
/*-------------------------------------------------------------------------
|
2016-12-31 03:41:37 +08:00
|
|
|
|
* Function: create_file
|
2006-09-30 06:01:07 +08:00
|
|
|
|
*
|
2016-12-31 03:41:37 +08:00
|
|
|
|
* Purpose: Creates files and datasets used in part 1 of the test
|
2006-09-30 06:01:07 +08:00
|
|
|
|
*
|
2016-12-31 03:41:37 +08:00
|
|
|
|
* Return: Success: a valid file ID
|
|
|
|
|
* Failure: -1
|
2006-09-30 06:01:07 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Leon Arber
|
|
|
|
|
* Sept. 26, 2006
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
2006-10-09 12:18:18 +08:00
|
|
|
|
static hid_t
|
2016-12-31 03:41:37 +08:00
|
|
|
|
create_file(const char *filename, hid_t fapl_id, hbool_t swmr)
|
2008-09-16 23:52:51 +08:00
|
|
|
|
{
|
2016-12-31 03:41:37 +08:00
|
|
|
|
hid_t fid = -1; /* file ID */
|
|
|
|
|
hid_t top_gid = -1; /* containing group ID */
|
|
|
|
|
hid_t gid = -1; /* subgroup ID */
|
|
|
|
|
char group_name[16]; /* group name */
|
|
|
|
|
unsigned flags; /* file open flags */
|
|
|
|
|
int i; /* iterator */
|
2006-09-30 06:01:07 +08:00
|
|
|
|
|
2016-12-20 12:44:54 +08:00
|
|
|
|
flags = H5F_ACC_TRUNC | (swmr ? H5F_ACC_SWMR_WRITE : 0);
|
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
if((fid = H5Fcreate(filename, flags, H5P_DEFAULT, fapl_id)) < 0)
|
|
|
|
|
STACK_ERROR
|
2006-09-30 06:01:07 +08:00
|
|
|
|
|
|
|
|
|
/* Create a chunked dataset */
|
2016-12-31 03:41:37 +08:00
|
|
|
|
if(add_dset_to_file(fid, FIRST_DSET_NAME) < 0)
|
|
|
|
|
TEST_ERROR
|
2006-09-30 06:01:07 +08:00
|
|
|
|
|
|
|
|
|
/* Create some groups */
|
2016-12-31 03:41:37 +08:00
|
|
|
|
if((top_gid = H5Gcreate2(fid, "top_group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
for(i = 0; i < NGROUPS; i++) {
|
|
|
|
|
HDsprintf(group_name, "group%02d", i);
|
|
|
|
|
if((gid = H5Gcreate2(top_gid, group_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
if(H5Gclose(gid) < 0)
|
|
|
|
|
STACK_ERROR
|
2007-08-24 04:25:25 +08:00
|
|
|
|
} /* end for */
|
2006-09-30 06:01:07 +08:00
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
if(H5Gclose(top_gid) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
|
|
|
|
|
return fid;
|
2006-09-30 06:01:07 +08:00
|
|
|
|
|
|
|
|
|
error:
|
2016-12-31 03:41:37 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Fclose(fid);
|
|
|
|
|
H5Gclose(gid);
|
|
|
|
|
H5Gclose(top_gid);
|
|
|
|
|
} H5E_END_TRY;
|
2006-09-30 06:01:07 +08:00
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
return -1;
|
|
|
|
|
} /* end create_file() */
|
2006-10-05 03:50:40 +08:00
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
|
2006-10-05 03:50:40 +08:00
|
|
|
|
/*-------------------------------------------------------------------------
|
2016-12-31 03:41:37 +08:00
|
|
|
|
* Function: add_dset_to_file
|
2006-10-05 03:50:40 +08:00
|
|
|
|
*
|
2016-12-31 03:41:37 +08:00
|
|
|
|
* Purpose: Add a dataset to the file.
|
2006-10-05 03:50:40 +08:00
|
|
|
|
*
|
2016-12-31 03:41:37 +08:00
|
|
|
|
* Return: SUCCEED/FAIL
|
2006-10-05 03:50:40 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Leon Arber
|
|
|
|
|
* Oct. 4, 2006
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
2016-12-31 03:41:37 +08:00
|
|
|
|
static herr_t
|
|
|
|
|
add_dset_to_file(hid_t fid, const char *dset_name)
|
2008-09-16 23:52:51 +08:00
|
|
|
|
{
|
2016-12-31 03:41:37 +08:00
|
|
|
|
hid_t dcpl_id = -1; /* dataset creation plist ID */
|
|
|
|
|
hid_t sid = -1; /* dataspace ID */
|
|
|
|
|
hid_t did = -1; /* dataset ID */
|
|
|
|
|
int *data = NULL; /* data buffer */
|
|
|
|
|
hsize_t dims[1] = {NELEMENTS}; /* size of dataset */
|
|
|
|
|
hsize_t chunk_dims[1] = {CHUNK_SIZE}; /* chunk size */
|
|
|
|
|
int i; /* iterator */
|
2006-10-05 03:50:40 +08:00
|
|
|
|
|
|
|
|
|
/* Create a chunked dataset */
|
2016-12-31 03:41:37 +08:00
|
|
|
|
if((dcpl_id = H5Pcreate(H5P_DATASET_CREATE)) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
if(H5Pset_chunk(dcpl_id, NDIMS, chunk_dims) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
if((sid = H5Screate_simple(NDIMS, dims, NULL)) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
if((did = H5Dcreate2(fid, dset_name, H5T_NATIVE_FLOAT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
|
|
|
STACK_ERROR
|
2006-10-05 03:50:40 +08:00
|
|
|
|
|
|
|
|
|
/* Write some data */
|
2016-12-31 03:41:37 +08:00
|
|
|
|
if(NULL == (data = (int *)HDcalloc((size_t)NELEMENTS, sizeof(int))))
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
for(i = 0; i < NELEMENTS; i++)
|
|
|
|
|
data[i] = i;
|
|
|
|
|
if(H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
|
|
|
|
|
if(H5Pclose(dcpl_id) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
if(H5Sclose(sid) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
if(H5Dclose(did) < 0)
|
|
|
|
|
STACK_ERROR
|
2006-10-05 03:50:40 +08:00
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
HDfree(data);
|
|
|
|
|
|
|
|
|
|
return SUCCEED;
|
2006-10-05 03:50:40 +08:00
|
|
|
|
|
|
|
|
|
error:
|
2016-12-31 03:41:37 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Pclose(dcpl_id);
|
|
|
|
|
H5Sclose(sid);
|
|
|
|
|
H5Dclose(did);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
|
|
|
|
|
HDfree(data);
|
2006-10-05 03:50:40 +08:00
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
return FAIL;
|
|
|
|
|
} /* end add_dset_to_file() */
|
|
|
|
|
|
|
|
|
|
|
1998-10-26 22:49:52 +08:00
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: main
|
|
|
|
|
*
|
2016-12-31 03:41:37 +08:00
|
|
|
|
* Purpose: Creates files and datasets with and without flushing in
|
|
|
|
|
* a variety of situations.
|
1998-10-26 22:49:52 +08:00
|
|
|
|
*
|
2016-12-31 03:41:37 +08:00
|
|
|
|
* Part 1 of a two-part H5Fflush() test.
|
|
|
|
|
*
|
|
|
|
|
* Return: EXIT_SUCCESS/EXIT_FAILURE
|
1998-10-26 22:49:52 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Friday, October 23, 1998
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
int
|
|
|
|
|
main(void)
|
|
|
|
|
{
|
2016-12-31 03:41:37 +08:00
|
|
|
|
char *driver = NULL; /* name of current VFD (from env var) */
|
|
|
|
|
hbool_t vfd_supports_swmr; /* whether the current VFD supports SWMR */
|
|
|
|
|
hid_t fid = -1; /* file ID */
|
|
|
|
|
hid_t fapl_id = -1; /* file access proplist ID */
|
|
|
|
|
char filename[1024]; /* filename */
|
|
|
|
|
hbool_t use_swmr; /* whether or not to use SWMR I/O */
|
1998-10-26 22:49:52 +08:00
|
|
|
|
|
1998-11-24 04:40:35 +08:00
|
|
|
|
h5_reset();
|
2016-12-31 03:41:37 +08:00
|
|
|
|
if((fapl_id = h5_fileaccess()) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Check if the current VFD supports SWMR */
|
|
|
|
|
driver = HDgetenv("HDF5_DRIVER");
|
|
|
|
|
vfd_supports_swmr = H5FD_supports_swmr_test(driver);
|
|
|
|
|
|
|
|
|
|
/*************************************************/
|
|
|
|
|
/* NOTE: Not closing the file ID is intentional! */
|
|
|
|
|
/*************************************************/
|
|
|
|
|
|
|
|
|
|
/* Create a file and flush */
|
|
|
|
|
TESTING("H5Fflush (part1 with flush)");
|
|
|
|
|
h5_fixname(FILENAME[0], fapl_id, filename, sizeof(filename));
|
|
|
|
|
use_swmr = FALSE;
|
|
|
|
|
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
|
|
|
|
FAIL_STACK_ERROR
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/* Create a file and flush w/ SWMR I/O */
|
|
|
|
|
TESTING("H5Fflush (part1 with flush + SWMR)");
|
|
|
|
|
if(vfd_supports_swmr) {
|
|
|
|
|
h5_fixname(FILENAME[1], fapl_id, filename, sizeof(filename));
|
|
|
|
|
use_swmr = TRUE;
|
|
|
|
|
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
|
|
|
|
FAIL_STACK_ERROR
|
|
|
|
|
PASSED();
|
|
|
|
|
} /* end if */
|
|
|
|
|
else
|
|
|
|
|
SKIPPED();
|
|
|
|
|
|
|
|
|
|
/* Create a file which will not be flushed */
|
|
|
|
|
TESTING("H5Fflush (part1 without flush)");
|
|
|
|
|
h5_fixname(FILENAME[2], fapl_id, filename, sizeof(filename));
|
|
|
|
|
use_swmr = FALSE;
|
|
|
|
|
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/* Create a file which will not be flushed w/ SWMR I/O */
|
|
|
|
|
TESTING("H5Fflush (part1 without flush + SWMR)");
|
|
|
|
|
if(vfd_supports_swmr) {
|
|
|
|
|
h5_fixname(FILENAME[3], fapl_id, filename, sizeof(filename));
|
|
|
|
|
use_swmr = TRUE;
|
|
|
|
|
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
PASSED();
|
|
|
|
|
} /* end if */
|
|
|
|
|
else
|
|
|
|
|
SKIPPED();
|
2006-08-01 03:46:16 +08:00
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
/* Create a file, flush, add a dataset, flush */
|
|
|
|
|
TESTING("H5Fflush (part1 with flush and later addition and another flush)");
|
|
|
|
|
h5_fixname(FILENAME[4], fapl_id, filename, sizeof(filename));
|
|
|
|
|
use_swmr = FALSE;
|
|
|
|
|
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
|
|
|
|
FAIL_STACK_ERROR
|
|
|
|
|
if(add_dset_to_file(fid, SECOND_DSET_NAME) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
|
|
|
|
FAIL_STACK_ERROR
|
[svn-r15868] Description:
Correct a minor error in file free space allocation which was affecting
the 'multi' VFD and preventing some tests from fully working with it.
Wholesale revisitation of all the places where tests were disabled
with various VFDs and remove or correct all these so that _only_ the tests
which _really_ can't work with particular VFDs are skipped during a
'make check-vfd' test.
Tested on:
Mac OS X/32 10.5.5 (amazon) in debug mode
Mac OS X/32 10.5.5 (amazon) w/C++ & FORTRAN, w/threadsafe,
in production mode
FreeBSD/32 6.3 (duty) in debug mode
FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/Intel compilers w/default API=1.6.x,
w/C++ & FORTRAN, in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode
Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode
2008-10-15 09:46:34 +08:00
|
|
|
|
PASSED();
|
|
|
|
|
|
2016-12-31 03:41:37 +08:00
|
|
|
|
/* Create a file, flush, add a dataset, flush w/ SWMR I/O */
|
|
|
|
|
TESTING("H5Fflush (part1 with flush and later addition and another flush + SWMR)");
|
|
|
|
|
if(vfd_supports_swmr) {
|
|
|
|
|
h5_fixname(FILENAME[5], fapl_id, filename, sizeof(filename));
|
|
|
|
|
use_swmr = TRUE;
|
|
|
|
|
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
|
|
|
|
FAIL_STACK_ERROR
|
|
|
|
|
if(add_dset_to_file(fid, SECOND_DSET_NAME) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
|
|
|
|
FAIL_STACK_ERROR
|
|
|
|
|
PASSED();
|
|
|
|
|
} /* end if */
|
|
|
|
|
else
|
|
|
|
|
SKIPPED();
|
|
|
|
|
|
|
|
|
|
/* Create a file, flush, add a dataset, (no flush) */
|
|
|
|
|
TESTING("H5Fflush (part1 with flush and later addition)");
|
|
|
|
|
h5_fixname(FILENAME[6], fapl_id, filename, sizeof(filename));
|
|
|
|
|
use_swmr = FALSE;
|
|
|
|
|
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
|
|
|
|
FAIL_STACK_ERROR
|
|
|
|
|
if(add_dset_to_file(fid, SECOND_DSET_NAME) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/* Create a file, flush, add a dataset, (no flush) w/ SWMR I/O */
|
|
|
|
|
TESTING("H5Fflush (part1 with flush and later addition + SWMR)");
|
|
|
|
|
if(vfd_supports_swmr) {
|
|
|
|
|
h5_fixname(FILENAME[7], fapl_id, filename, sizeof(filename));
|
|
|
|
|
use_swmr = TRUE;
|
|
|
|
|
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
|
|
|
|
FAIL_STACK_ERROR
|
|
|
|
|
if(add_dset_to_file(fid, SECOND_DSET_NAME) < 0)
|
|
|
|
|
TEST_ERROR
|
|
|
|
|
PASSED();
|
|
|
|
|
} /* end if */
|
|
|
|
|
else
|
|
|
|
|
SKIPPED();
|
|
|
|
|
|
|
|
|
|
if(!vfd_supports_swmr)
|
|
|
|
|
HDprintf("NOTE: Some tests were skipped since the current VFD lacks SWMR support\n");
|
|
|
|
|
|
|
|
|
|
/* Flush console output streams */
|
|
|
|
|
HDfflush(stdout);
|
|
|
|
|
HDfflush(stderr);
|
|
|
|
|
|
|
|
|
|
/* DO NOT CLOSE FILE ID! */
|
|
|
|
|
if(H5Pclose(fapl_id) < 0)
|
|
|
|
|
STACK_ERROR
|
|
|
|
|
|
|
|
|
|
/* _exit() is necessary since we want a hard close of the library */
|
2016-10-25 22:53:44 +08:00
|
|
|
|
HD_exit(EXIT_SUCCESS);
|
[svn-r15868] Description:
Correct a minor error in file free space allocation which was affecting
the 'multi' VFD and preventing some tests from fully working with it.
Wholesale revisitation of all the places where tests were disabled
with various VFDs and remove or correct all these so that _only_ the tests
which _really_ can't work with particular VFDs are skipped during a
'make check-vfd' test.
Tested on:
Mac OS X/32 10.5.5 (amazon) in debug mode
Mac OS X/32 10.5.5 (amazon) w/C++ & FORTRAN, w/threadsafe,
in production mode
FreeBSD/32 6.3 (duty) in debug mode
FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/Intel compilers w/default API=1.6.x,
w/C++ & FORTRAN, in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode
Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode
2008-10-15 09:46:34 +08:00
|
|
|
|
|
|
|
|
|
error:
|
2016-12-31 03:41:37 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Pclose(fapl_id);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
|
|
|
|
|
HDexit(EXIT_FAILURE);
|
|
|
|
|
} /* end main() */
|
2016-08-13 17:23:53 +08:00
|
|
|
|
|