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-06 05:01:10 +08:00
|
|
|
|
/*
|
|
|
|
|
* Programmer: Robb Matzke <robb@arborea.spizella.com>
|
|
|
|
|
* Thursday, October 1, 1998
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests dataset fill values.
|
|
|
|
|
*/
|
2001-04-04 02:09:16 +08:00
|
|
|
|
#include "h5test.h"
|
2010-03-18 20:23:04 +08:00
|
|
|
|
#include "H5srcdir.h"
|
1998-11-03 01:58:28 +08:00
|
|
|
|
|
1998-10-06 05:01:10 +08:00
|
|
|
|
/*
|
|
|
|
|
* Define NO_FILLING if you want to compare how this test works when there is
|
|
|
|
|
* no fill value (that is, when the fill value is zero).
|
|
|
|
|
*/
|
|
|
|
|
/* #define NO_FILLING */
|
|
|
|
|
|
1998-11-24 04:40:35 +08:00
|
|
|
|
const char *FILENAME[] = {
|
|
|
|
|
"fillval_1",
|
|
|
|
|
"fillval_2",
|
|
|
|
|
"fillval_3",
|
|
|
|
|
"fillval_4",
|
|
|
|
|
"fillval_5",
|
|
|
|
|
"fillval_6",
|
2002-08-21 00:18:02 +08:00
|
|
|
|
"fillval_7",
|
|
|
|
|
"fillval_8",
|
2013-05-03 03:19:06 +08:00
|
|
|
|
"fillval_9",
|
1998-11-24 04:40:35 +08:00
|
|
|
|
NULL
|
|
|
|
|
};
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
2007-07-05 23:45:45 +08:00
|
|
|
|
/* Common type for compound datatype operations */
|
2002-04-12 06:53:26 +08:00
|
|
|
|
typedef struct {
|
|
|
|
|
float a;
|
|
|
|
|
int x;
|
|
|
|
|
double y;
|
|
|
|
|
char z;
|
|
|
|
|
} comp_datatype;
|
|
|
|
|
|
2007-07-05 23:45:45 +08:00
|
|
|
|
/* Common type for compound+vl datatype operations */
|
|
|
|
|
typedef struct {
|
|
|
|
|
int x;
|
|
|
|
|
char *a;
|
|
|
|
|
char *b;
|
|
|
|
|
int y;
|
|
|
|
|
} comp_vl_datatype;
|
|
|
|
|
|
2005-08-14 04:53:35 +08:00
|
|
|
|
/* The fill_old.h5 is generated from gen_old_fill.c in HDF5 'test' directory
|
2002-04-12 06:53:26 +08:00
|
|
|
|
* for version 1.4(after 1.4.3). To get this data file, simply compile
|
|
|
|
|
* gen_old_fill.c with HDF5 library (before v1.5) and run it. */
|
|
|
|
|
#define FILE_COMPATIBLE "fill_old.h5"
|
1998-10-06 05:01:10 +08:00
|
|
|
|
#define FILE_NAME_RAW "fillval.raw"
|
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Function: create_compound_type
|
2002-04-12 06:53:26 +08:00
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Purpose: create a compound datatype
|
2002-04-12 06:53:26 +08:00
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Return: Success: datatype ID
|
2002-04-12 06:53:26 +08:00
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Failure: -1
|
2002-04-12 06:53:26 +08:00
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Programmer: Raymond Lu
|
|
|
|
|
* Monday, Jan 26, 2001
|
2002-04-12 06:53:26 +08:00
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static hid_t create_compound_type(void)
|
|
|
|
|
{
|
|
|
|
|
hid_t ret_value=-1;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
2007-06-06 01:51:06 +08:00
|
|
|
|
if((ret_value = H5Tcreate(H5T_COMPOUND, sizeof(comp_datatype))) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
2007-06-06 01:51:06 +08:00
|
|
|
|
if(H5Tinsert(ret_value, "a", HOFFSET(comp_datatype, a), H5T_NATIVE_FLOAT) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
2007-06-06 01:51:06 +08:00
|
|
|
|
if(H5Tinsert(ret_value, "x", HOFFSET(comp_datatype, x), H5T_NATIVE_INT) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
2007-06-06 01:51:06 +08:00
|
|
|
|
if(H5Tinsert(ret_value, "y", HOFFSET(comp_datatype, y), H5T_NATIVE_DOUBLE) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
if(H5Tinsert(ret_value, "z", HOFFSET(comp_datatype, z), H5T_NATIVE_CHAR) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
return ret_value;
|
|
|
|
|
|
2007-06-06 01:51:06 +08:00
|
|
|
|
error:
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Tclose(ret_value);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return -1;
|
|
|
|
|
}
|
|
|
|
|
|
2007-07-05 23:45:45 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: create_compound_vl_type
|
|
|
|
|
*
|
|
|
|
|
* Purpose: create a compound+vl datatype
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: datatype ID
|
|
|
|
|
*
|
|
|
|
|
* Failure: -1
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Tuesday, July 3, 2007
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static hid_t
|
|
|
|
|
create_compound_vl_type(void)
|
|
|
|
|
{
|
|
|
|
|
hid_t str_id = -1; /* Datatype for VL-string fields */
|
|
|
|
|
hid_t ret_value = -1;
|
|
|
|
|
|
|
|
|
|
/* Create a string datatype */
|
|
|
|
|
if((str_id = H5Tcopy(H5T_C_S1)) < 0) TEST_ERROR
|
|
|
|
|
if(H5Tset_size(str_id, H5T_VARIABLE) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
if((ret_value = H5Tcreate(H5T_COMPOUND, sizeof(comp_vl_datatype))) < 0) TEST_ERROR
|
|
|
|
|
if(H5Tinsert(ret_value, "x", HOFFSET(comp_vl_datatype, x), H5T_NATIVE_INT) < 0) TEST_ERROR
|
|
|
|
|
if(H5Tinsert(ret_value, "a", HOFFSET(comp_vl_datatype, a), str_id) < 0) TEST_ERROR
|
|
|
|
|
if(H5Tinsert(ret_value, "b", HOFFSET(comp_vl_datatype, b), str_id) < 0) TEST_ERROR
|
|
|
|
|
if(H5Tinsert(ret_value, "y", HOFFSET(comp_vl_datatype, y), H5T_NATIVE_INT) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Close string datatype */
|
|
|
|
|
if(H5Tclose(str_id) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
return ret_value;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Tclose(str_id);
|
|
|
|
|
H5Tclose(ret_value);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return -1;
|
|
|
|
|
} /* end create_compound_vl_type() */
|
|
|
|
|
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_getset
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests the H5Pget_fill_value() and H5Pset_fill_value()
|
|
|
|
|
* functions.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
|
|
|
|
* Failure: number of errors
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Thursday, October 1, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
test_getset(void)
|
|
|
|
|
{
|
1998-11-24 04:40:35 +08:00
|
|
|
|
hid_t dcpl=-1;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
int fill_i;
|
1998-11-24 04:40:35 +08:00
|
|
|
|
hid_t type_ss=-1, type_si=-1;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
struct fill_si {
|
|
|
|
|
int v1, v2;
|
|
|
|
|
} fill_si;
|
|
|
|
|
struct fill_ss {
|
|
|
|
|
short v1, v2;
|
|
|
|
|
} fill_ss, fill_ss_rd;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-11-24 04:40:35 +08:00
|
|
|
|
TESTING("property lists");
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Create the dataset creation property list and the data types that will
|
|
|
|
|
* be used during this test.
|
|
|
|
|
*/
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dcpl=H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
|
|
|
|
|
if((type_ss=H5Tcreate(H5T_COMPOUND, sizeof fill_ss)) < 0 ||
|
1998-10-06 05:01:10 +08:00
|
|
|
|
H5Tinsert(type_ss, "v1", HOFFSET(struct fill_ss, v1),
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
H5T_NATIVE_SHORT) < 0 ||
|
1998-10-06 05:01:10 +08:00
|
|
|
|
H5Tinsert(type_ss, "v2", HOFFSET(struct fill_ss, v2),
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
H5T_NATIVE_SHORT) < 0) {
|
1998-10-06 05:01:10 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((type_si=H5Tcreate(H5T_COMPOUND, sizeof fill_si)) < 0 ||
|
1998-10-06 05:01:10 +08:00
|
|
|
|
H5Tinsert(type_si, "v1", HOFFSET(struct fill_si, v1),
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
H5T_NATIVE_INT) < 0 ||
|
1998-10-06 05:01:10 +08:00
|
|
|
|
H5Tinsert(type_si, "v2", HOFFSET(struct fill_si, v2),
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
H5T_NATIVE_INT) < 0) {
|
1998-10-06 05:01:10 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-10-06 05:01:10 +08:00
|
|
|
|
/*
|
|
|
|
|
* Reading the fill value from a dataset creation property list that has
|
|
|
|
|
* no fill value should result in a failure.
|
|
|
|
|
*/
|
|
|
|
|
H5E_BEGIN_TRY {
|
2002-05-21 02:43:31 +08:00
|
|
|
|
H5Pget_fill_value(dcpl, H5T_NATIVE_INT, &fill_i);
|
1998-10-06 05:01:10 +08:00
|
|
|
|
} H5E_END_TRY;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(fill_i != 0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2002-04-12 06:53:26 +08:00
|
|
|
|
puts(" H5Pget_fill_value() should return default 0");
|
1998-10-06 05:01:10 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Set the fill value using a struct as the data type.
|
|
|
|
|
*/
|
|
|
|
|
fill_ss.v1 = 1111;
|
|
|
|
|
fill_ss.v2 = 2222;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, type_ss, &fill_ss) < 0) goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Get the fill value using the same data type that was used to set it.
|
|
|
|
|
*/
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_value(dcpl, type_ss, &fill_ss_rd) < 0) goto error;
|
|
|
|
|
if(fill_ss.v1!=fill_ss_rd.v1 || fill_ss.v2!=fill_ss_rd.v2) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-24 04:40:35 +08:00
|
|
|
|
puts(" Failed to get fill value using same data type that was ");
|
|
|
|
|
puts(" used to set the fill value.");
|
1998-10-06 05:01:10 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Get the fill value using some other data type.
|
|
|
|
|
*/
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_value(dcpl, type_si, &fill_si) < 0) goto error;
|
|
|
|
|
if(fill_ss.v1!=fill_si.v1 || fill_ss.v2!=fill_si.v2) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-24 04:40:35 +08:00
|
|
|
|
puts(" Failed to get fill value using a data type other than what");
|
|
|
|
|
puts(" was used to set the fill value.");
|
1998-10-06 05:01:10 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Reset the fill value
|
|
|
|
|
*/
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, type_si, &fill_si) < 0) goto error;
|
|
|
|
|
if(H5Pget_fill_value(dcpl, type_ss, &fill_ss) < 0) goto error;
|
|
|
|
|
if(fill_si.v1!=fill_ss.v1 || fill_si.v2!=fill_ss.v2) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-24 04:40:35 +08:00
|
|
|
|
puts(" Resetting the fill value was unsuccessful.");
|
1998-10-06 05:01:10 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Success */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
|
|
|
|
if(H5Tclose(type_si) < 0) goto error;
|
|
|
|
|
if(H5Tclose(type_ss) < 0) goto error;
|
1998-11-24 04:40:35 +08:00
|
|
|
|
PASSED();
|
1998-10-06 05:01:10 +08:00
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
1998-11-24 04:40:35 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Pclose(dcpl);
|
|
|
|
|
H5Tclose(type_si);
|
|
|
|
|
H5Tclose(type_ss);
|
|
|
|
|
} H5E_END_TRY;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
2007-06-01 04:33:19 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_getset_vl
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests the H5Pget_fill_value() and H5Pset_fill_value()
|
|
|
|
|
* functions, using variable-length datatype.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
* Failure: number of errors
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Thursday, May 31, 2007
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
test_getset_vl(hid_t fapl)
|
|
|
|
|
{
|
|
|
|
|
hsize_t dims[1] = {2};
|
2014-03-23 14:27:57 +08:00
|
|
|
|
hid_t fileid = (-1), spaceid = (-1), dtypeid = (-1), datasetid = (-1), plistid = (-1);
|
2007-06-01 04:33:19 +08:00
|
|
|
|
char fill_value[] = "aaaa";
|
|
|
|
|
char orig_fill_value[] = "aaaa";
|
|
|
|
|
char *f1 = fill_value;
|
|
|
|
|
char *f2;
|
|
|
|
|
char filename[1024];
|
|
|
|
|
|
|
|
|
|
TESTING("property lists, with variable-length datatype");
|
|
|
|
|
|
|
|
|
|
/* Create string type. */
|
2014-03-23 14:27:57 +08:00
|
|
|
|
if((dtypeid = H5Tcopy(H5T_C_S1)) < 0) TEST_ERROR
|
|
|
|
|
if(H5Tset_size(dtypeid, H5T_VARIABLE) < 0) TEST_ERROR
|
2007-06-01 04:33:19 +08:00
|
|
|
|
|
|
|
|
|
/* Set up dataset creation property list, with fill value */
|
|
|
|
|
if((plistid = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR
|
2014-03-23 14:27:57 +08:00
|
|
|
|
if(H5Pset_fill_value(plistid, dtypeid, &f1) < 0) TEST_ERROR
|
2007-06-01 04:33:19 +08:00
|
|
|
|
|
|
|
|
|
/* Modify original fill value string */
|
|
|
|
|
fill_value[0] = 'b';
|
|
|
|
|
|
|
|
|
|
/* Retrieve fill value from property */
|
2014-03-23 14:27:57 +08:00
|
|
|
|
if(H5Pget_fill_value(plistid, dtypeid, &f2) < 0) TEST_ERROR
|
2007-06-01 04:33:19 +08:00
|
|
|
|
|
|
|
|
|
/* Verify that the fill value is the original value */
|
|
|
|
|
if(HDstrcmp(f2, orig_fill_value)) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Release the fill value retrieved */
|
|
|
|
|
HDfree(f2);
|
|
|
|
|
|
|
|
|
|
/* Open file. */
|
|
|
|
|
h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
|
|
|
|
|
if((fileid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Write an dataset of this type. */
|
|
|
|
|
if((spaceid = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
|
2014-03-23 14:27:57 +08:00
|
|
|
|
if((datasetid = H5Dcreate2(fileid, "Dataset", dtypeid, spaceid, H5P_DEFAULT, plistid, H5P_DEFAULT)) < 0) TEST_ERROR
|
2007-06-01 04:33:19 +08:00
|
|
|
|
|
|
|
|
|
/* Close IDs (except datatype) */
|
|
|
|
|
if(H5Dclose(datasetid) < 0) TEST_ERROR
|
|
|
|
|
if(H5Pclose(plistid) < 0) TEST_ERROR
|
|
|
|
|
if(H5Sclose(spaceid) < 0) TEST_ERROR
|
|
|
|
|
if(H5Fclose(fileid) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Re-open file, group & dataset */
|
|
|
|
|
if((fileid = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) TEST_ERROR
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((datasetid = H5Dopen2(fileid, "Dataset", H5P_DEFAULT)) < 0) TEST_ERROR
|
2007-06-01 04:33:19 +08:00
|
|
|
|
|
|
|
|
|
/* Get dataset's creation property list */
|
|
|
|
|
if((plistid = H5Dget_create_plist(datasetid)) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Query fill value */
|
2014-03-23 14:27:57 +08:00
|
|
|
|
if(H5Pget_fill_value(plistid, dtypeid, &f2) < 0) TEST_ERROR
|
2007-06-01 04:33:19 +08:00
|
|
|
|
|
|
|
|
|
/* Verify that the fill value is the original value */
|
|
|
|
|
if(HDstrcmp(f2, orig_fill_value)) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Release the fill value retrieved */
|
|
|
|
|
HDfree(f2);
|
|
|
|
|
|
|
|
|
|
/* Close IDs */
|
|
|
|
|
if(H5Dclose(datasetid) < 0) TEST_ERROR
|
|
|
|
|
if(H5Fclose(fileid) < 0) TEST_ERROR
|
|
|
|
|
if(H5Pclose(plistid) < 0) TEST_ERROR
|
2014-03-23 14:27:57 +08:00
|
|
|
|
if(H5Tclose(dtypeid) < 0) TEST_ERROR
|
2007-06-01 04:33:19 +08:00
|
|
|
|
|
|
|
|
|
PASSED();
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return 1;
|
|
|
|
|
} /* end test_getset_vl() */
|
|
|
|
|
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_create
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests creating datasets that have fill values.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
|
|
|
|
* Failure: number of errors
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Thursday, October 1, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
2002-04-12 06:53:26 +08:00
|
|
|
|
* Many new cases have been added to this test since
|
|
|
|
|
* the fill value design has been modified.
|
2005-08-14 04:53:35 +08:00
|
|
|
|
*
|
1998-10-06 05:01:10 +08:00
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
1999-06-15 22:58:25 +08:00
|
|
|
|
test_create(hid_t fapl, const char *base_name, H5D_layout_t layout)
|
1998-10-06 05:01:10 +08:00
|
|
|
|
{
|
2002-04-12 06:53:26 +08:00
|
|
|
|
hid_t file=-1, space=-1, dcpl=-1, comp_type_id=-1;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
hid_t dset1=-1, dset2=-1, dset3=-1, dset4=-1, dset5=-1,
|
2002-05-21 02:43:31 +08:00
|
|
|
|
dset6=-1, /* dset7=-1, */ dset8=-1, dset9=-1;
|
2003-05-07 07:24:07 +08:00
|
|
|
|
hsize_t cur_size[5] = {2, 8, 8, 4, 2};
|
|
|
|
|
hsize_t ch_size[5] = {1, 1, 1, 4, 1};
|
1998-10-09 01:13:14 +08:00
|
|
|
|
short rd_s, fill_s = 0x1234;
|
|
|
|
|
long rd_l, fill_l = 0x4321;
|
1998-11-24 04:40:35 +08:00
|
|
|
|
char filename[1024];
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5D_space_status_t allocation;
|
2002-09-14 00:57:46 +08:00
|
|
|
|
H5D_alloc_time_t alloc_time;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5D_fill_time_t fill_time;
|
|
|
|
|
comp_datatype rd_c, fill_ctype;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5D_CHUNKED==layout) {
|
1998-11-24 04:40:35 +08:00
|
|
|
|
TESTING("chunked dataset creation");
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
} else if(H5D_COMPACT==layout) {
|
2002-08-21 00:18:02 +08:00
|
|
|
|
TESTING("compact dataset creation");
|
1998-10-06 05:01:10 +08:00
|
|
|
|
} else {
|
1998-11-24 04:40:35 +08:00
|
|
|
|
TESTING("contiguous dataset creation");
|
1998-10-06 05:01:10 +08:00
|
|
|
|
}
|
|
|
|
|
|
1998-10-09 01:13:14 +08:00
|
|
|
|
/*
|
2002-04-12 06:53:26 +08:00
|
|
|
|
* Create a file.
|
1998-10-09 01:13:14 +08:00
|
|
|
|
*/
|
1999-06-15 22:58:25 +08:00
|
|
|
|
h5_fixname(base_name, fapl, filename, sizeof filename);
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
|
1998-11-24 04:40:35 +08:00
|
|
|
|
goto error;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((space=H5Screate_simple(5, cur_size, cur_size)) < 0) goto error;
|
|
|
|
|
if((dcpl=H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
|
|
|
|
|
if(H5D_CHUNKED==layout) {
|
|
|
|
|
if(H5Pset_chunk(dcpl, 5, ch_size) < 0) goto error;
|
|
|
|
|
} else if(H5D_COMPACT==layout) {
|
|
|
|
|
if(H5Pset_layout(dcpl, H5D_COMPACT) < 0) goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
}
|
2002-08-21 00:18:02 +08:00
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
/* Create a compound datatype */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((comp_type_id = create_compound_type()) < 0) goto error;
|
1998-10-09 01:13:14 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* I. Test cases for late space allocation except compact dataset */
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
if(H5D_COMPACT!=layout) {
|
2002-09-14 00:57:46 +08:00
|
|
|
|
if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_LATE) < 0) goto error;
|
2002-08-21 00:18:02 +08:00
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* 1. Compound datatype test */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_value(dcpl, comp_type_id, &fill_ctype) < 0) goto error;
|
2002-08-21 00:18:02 +08:00
|
|
|
|
fill_ctype.y = 4444;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, comp_type_id, &fill_ctype) < 0) goto error;
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if((dset9 = H5Dcreate2(file, "dset9", comp_type_id, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2002-08-21 00:18:02 +08:00
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
/* The three datasets test three fill
|
|
|
|
|
* conversion paths: small to large, large to small, and no conversion.
|
|
|
|
|
* They depend on `short' being smaller than `long'.
|
|
|
|
|
*/
|
|
|
|
|
/* 2. Small to large fill conversion */
|
1998-10-06 05:01:10 +08:00
|
|
|
|
#ifndef NO_FILLING
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, H5T_NATIVE_SHORT, &fill_s) < 0) goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
#endif
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if((dset1=H5Dcreate2(file, "dset1", H5T_NATIVE_LONG, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2002-08-21 00:18:02 +08:00
|
|
|
|
goto error;
|
1998-10-09 01:13:14 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* 3. Large to small fill conversion */
|
1998-10-09 01:13:14 +08:00
|
|
|
|
#ifndef NO_FILLING
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, H5T_NATIVE_LONG, &fill_l) < 0) goto error;
|
1998-10-09 01:13:14 +08:00
|
|
|
|
#endif
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if((dset2=H5Dcreate2(file, "dset2", H5T_NATIVE_SHORT, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2002-08-21 00:18:02 +08:00
|
|
|
|
goto error;
|
1998-10-09 01:13:14 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* 4. No conversion */
|
1998-10-09 01:13:14 +08:00
|
|
|
|
#ifndef NO_FILLING
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, H5T_NATIVE_LONG, &fill_l) < 0) goto error;
|
1998-10-09 01:13:14 +08:00
|
|
|
|
#endif
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if((dset3=H5Dcreate2(file, "dset3", H5T_NATIVE_LONG, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2002-08-21 00:18:02 +08:00
|
|
|
|
goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* 5. late space allocation and never write fill value */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if((dset4=H5Dcreate2(file, "dset4", H5T_NATIVE_LONG, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
|
|
|
|
|
2005-08-14 04:53:35 +08:00
|
|
|
|
/* 6. fill value is undefined while fill write time is H5D_FILL_TIME_ALLOC.
|
2002-08-21 00:18:02 +08:00
|
|
|
|
* Supposed to fail. */
|
2014-07-31 04:55:14 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, (hid_t)-1, NULL) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
2002-08-21 00:18:02 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if(H5Dcreate2(file, "dset7", H5T_NATIVE_LONG, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)!=FAIL)
|
2002-08-21 00:18:02 +08:00
|
|
|
|
goto error;
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
/* II. Test early space allocation cases */
|
2002-08-21 00:18:02 +08:00
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
|
|
|
|
if((dcpl=H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
|
|
|
|
|
if(H5D_CHUNKED==layout) {
|
|
|
|
|
if(H5Pset_chunk(dcpl, 5, ch_size) < 0) goto error;
|
|
|
|
|
} else if(H5D_COMPACT==layout) {
|
|
|
|
|
if(H5Pset_layout(dcpl, H5D_COMPACT) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
}
|
2002-09-14 00:57:46 +08:00
|
|
|
|
if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* 1. Compound datatype test */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_value(dcpl, comp_type_id, &fill_ctype) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
fill_ctype.y = 4444;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, comp_type_id, &fill_ctype) < 0) goto error;
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if((dset8 = H5Dcreate2(file, "dset8", comp_type_id, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, H5T_NATIVE_LONG, &fill_l) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* 2. Never write fill value */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if((dset5 = H5Dcreate2(file, "dset5", H5T_NATIVE_INT, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
/* 3. Write fill value at space allocation time */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if((dset6 = H5Dcreate2(file, "dset6", H5T_NATIVE_LONG, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2005-08-14 04:53:35 +08:00
|
|
|
|
goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2005-08-14 04:53:35 +08:00
|
|
|
|
/* 4. fill value is undefined while fill write time is H5D_FILL_TIME_ALLOC.
|
2002-04-12 06:53:26 +08:00
|
|
|
|
* Supposed to fail. */
|
2014-07-31 04:55:14 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, (hid_t)-1, NULL) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if(H5Dcreate2(file, "dset7", H5T_NATIVE_LONG, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)!=FAIL)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
|
1998-10-09 01:13:14 +08:00
|
|
|
|
/* Close everything */
|
2002-08-21 00:18:02 +08:00
|
|
|
|
if(H5D_COMPACT != layout) {
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset1) < 0) goto error;
|
|
|
|
|
if(H5Dclose(dset2) < 0) goto error;
|
|
|
|
|
if(H5Dclose(dset3) < 0) goto error;
|
|
|
|
|
if(H5Dclose(dset4) < 0) goto error;
|
|
|
|
|
if(H5Dclose(dset9) < 0) goto error;
|
2002-08-21 00:18:02 +08:00
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset5) < 0) goto error;
|
|
|
|
|
if(H5Dclose(dset6) < 0) goto error;
|
|
|
|
|
if(H5Dclose(dset8) < 0) goto error;
|
|
|
|
|
if(H5Sclose(space) < 0) goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
|
|
|
|
if(H5Fclose(file) < 0) goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
1998-10-09 01:13:14 +08:00
|
|
|
|
/* Open the file and get the dataset fill value from each dataset */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((file = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0)
|
1998-10-06 05:01:10 +08:00
|
|
|
|
goto error;
|
1998-10-09 01:13:14 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* I. Check cases for late space allocation except compact dataset */
|
|
|
|
|
if(H5D_COMPACT != layout) {
|
|
|
|
|
/* 1. Large to small conversion */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset1 = H5Dopen2(file, "dset1", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if((dcpl = H5Dget_create_plist(dset1)) < 0) goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
#ifndef NO_FILLING
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_value(dcpl, H5T_NATIVE_SHORT, &rd_s) < 0) goto error;
|
|
|
|
|
if(rd_s != fill_s) {
|
2002-08-21 00:18:02 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got a different fill value than what was set.",__LINE__);
|
|
|
|
|
printf(" Got %d, set %d\n", rd_s, fill_s);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1998-10-06 05:01:10 +08:00
|
|
|
|
#endif
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset1) < 0) goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* 2. Small to large conversion */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset2 = H5Dopen2(file, "dset2", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if((dcpl = H5Dget_create_plist(dset2)) < 0) goto error;
|
1998-10-09 01:13:14 +08:00
|
|
|
|
#ifndef NO_FILLING
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_value(dcpl, H5T_NATIVE_LONG, &rd_l) < 0) goto error;
|
|
|
|
|
if(rd_l!=fill_l) {
|
2002-08-21 00:18:02 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got a different fill value than what was set.",__LINE__);
|
|
|
|
|
printf(" Got %ld, set %ld\n", rd_l, fill_l);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1998-10-09 01:13:14 +08:00
|
|
|
|
#endif
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset2) < 0) goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* 3. No conversion */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset3 = H5Dopen2(file, "dset3", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if((dcpl = H5Dget_create_plist(dset3)) < 0) goto error;
|
1998-10-09 01:13:14 +08:00
|
|
|
|
#ifndef NO_FILLING
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_value(dcpl, H5T_NATIVE_LONG, &rd_l) < 0) goto error;
|
|
|
|
|
if(rd_l != fill_l) {
|
2002-08-21 00:18:02 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got a different fill value than what was set.",__LINE__);
|
|
|
|
|
printf(" Got %ld, set %ld\n", rd_l, fill_l);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1998-10-09 01:13:14 +08:00
|
|
|
|
#endif
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_alloc_time(dcpl, &alloc_time) < 0) goto error;
|
|
|
|
|
if(H5Pget_fill_time(dcpl, &fill_time) < 0) goto error;
|
2002-09-14 00:57:46 +08:00
|
|
|
|
if(alloc_time != H5D_ALLOC_TIME_LATE) {
|
2002-08-21 00:18:02 +08:00
|
|
|
|
H5_FAILED();
|
2002-09-14 00:57:46 +08:00
|
|
|
|
puts(" Got non-H5D_ALLOC_TIME_LATE space allocation time.");
|
2002-08-21 00:18:02 +08:00
|
|
|
|
printf(" Got %d\n", alloc_time);
|
|
|
|
|
}
|
|
|
|
|
if(fill_time != H5D_FILL_TIME_ALLOC) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got non-H5D_FILL_TIME_ALLOC fill value write time.");
|
|
|
|
|
printf(" Got %d\n", fill_time);
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset3) < 0) goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
1998-10-09 01:13:14 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* 4. late space allocation and never write fill value */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset4 = H5Dopen2(file, "dset4", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if(H5Dget_space_status(dset4, &allocation) < 0) goto error;
|
|
|
|
|
if(layout == H5D_CONTIGUOUS && allocation != H5D_SPACE_STATUS_NOT_ALLOCATED) {
|
2002-08-21 00:18:02 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got allocated space instead of unallocated.");
|
|
|
|
|
printf(" Got %d\n", allocation);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dcpl = H5Dget_create_plist(dset4)) < 0) goto error;
|
|
|
|
|
if(H5Pget_alloc_time(dcpl, &alloc_time) < 0) goto error;
|
|
|
|
|
if(H5Pget_fill_time(dcpl, &fill_time) < 0) goto error;
|
2002-09-14 00:57:46 +08:00
|
|
|
|
if(alloc_time != H5D_ALLOC_TIME_LATE) {
|
2002-08-21 00:18:02 +08:00
|
|
|
|
H5_FAILED();
|
2002-09-14 00:57:46 +08:00
|
|
|
|
puts(" Got non-H5D_ALLOC_TIME_LATE space allocation time.");
|
2002-08-21 00:18:02 +08:00
|
|
|
|
printf(" Got %d\n", alloc_time);
|
|
|
|
|
}
|
|
|
|
|
if(fill_time != H5D_FILL_TIME_NEVER) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got non-H5D_FILL_TIME_NEVER fill value write time.");
|
|
|
|
|
printf(" Got %d\n", fill_time);
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset4) < 0) goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
2002-08-21 00:18:02 +08:00
|
|
|
|
|
|
|
|
|
/* 5. Compound datatype test */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset9 = H5Dopen2(file, "dset9", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if((dcpl = H5Dget_create_plist(dset9)) < 0) goto error;
|
|
|
|
|
if(H5Pget_fill_value(dcpl, comp_type_id, &rd_c) < 0) goto error;
|
2002-08-21 00:18:02 +08:00
|
|
|
|
if( rd_c.a!=0 || rd_c.y != fill_ctype.y || rd_c.x != 0 || rd_c.z != '\0') {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got wrong fill value");
|
|
|
|
|
printf(" Got rd_c.a=%f, rd_c.y=%f and rd_c.x=%d, rd_c.z=%c\n",
|
2015-03-12 06:51:14 +08:00
|
|
|
|
(double)rd_c.a, rd_c.y, rd_c.x, rd_c.z);
|
2002-08-21 00:18:02 +08:00
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset9) < 0) goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
}
|
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* II. Check early space allocation cases */
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* 1. Never write fill value */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset5 = H5Dopen2(file, "dset5", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if((dcpl = H5Dget_create_plist(dset5)) < 0) goto error;
|
|
|
|
|
if(H5Dget_space_status(dset5, &allocation) < 0) goto error;
|
|
|
|
|
if(layout == H5D_CONTIGUOUS && allocation != H5D_SPACE_STATUS_ALLOCATED) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got unallocated space instead of allocated.\n",__LINE__);
|
|
|
|
|
printf(" Got %d\n", allocation);
|
|
|
|
|
goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_alloc_time(dcpl, &alloc_time) < 0) goto error;
|
2002-09-14 00:57:46 +08:00
|
|
|
|
if(alloc_time != H5D_ALLOC_TIME_EARLY) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
2002-09-14 00:57:46 +08:00
|
|
|
|
puts(" Got non-H5D_ALLOC_TIME_EARLY space allocation time.");
|
2002-04-12 06:53:26 +08:00
|
|
|
|
printf(" Got %d\n", alloc_time);
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_time(dcpl, &fill_time) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
if(fill_time != H5D_FILL_TIME_NEVER) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got non-H5D_FILL_TIME_NEVER fill value write time.");
|
|
|
|
|
printf(" Got %d\n", fill_time);
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset5) < 0) goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* 2. test writing fill value at space allocation time */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset6 = H5Dopen2(file, "dset6", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if((dcpl = H5Dget_create_plist(dset6)) < 0) goto error;
|
|
|
|
|
if(H5Dget_space_status(dset6, &allocation) < 0) goto error;
|
|
|
|
|
if(layout == H5D_CONTIGUOUS && allocation != H5D_SPACE_STATUS_ALLOCATED) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got unallocated space instead of allocated.\n",__LINE__);
|
|
|
|
|
printf(" Got %d\n", allocation);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_value(dcpl, H5T_NATIVE_LONG, &rd_l) < 0) goto error;
|
|
|
|
|
if(rd_l != fill_l) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got a different fill value than what was set.",__LINE__);
|
|
|
|
|
printf(" Got %ld, set %ld\n", rd_l, fill_l);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_alloc_time(dcpl, &alloc_time) < 0) goto error;
|
2002-09-14 00:57:46 +08:00
|
|
|
|
if(alloc_time != H5D_ALLOC_TIME_EARLY) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
2002-09-14 00:57:46 +08:00
|
|
|
|
puts(" Got non-H5D_ALLOC_TIME_EARLY space allocation time.");
|
2002-04-12 06:53:26 +08:00
|
|
|
|
printf(" Got %d\n", alloc_time);
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_time(dcpl, &fill_time) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
if(fill_time != H5D_FILL_TIME_ALLOC) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got non-H5D_FILL_TIME_ALLOC fill value write time.");
|
|
|
|
|
printf(" Got %d\n", fill_time);
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset6) < 0) goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2005-08-14 04:53:35 +08:00
|
|
|
|
/* 3. Compound datatype test */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset8 = H5Dopen2(file, "dset8", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if((dcpl = H5Dget_create_plist(dset8)) < 0) goto error;
|
|
|
|
|
if(H5Pget_fill_value(dcpl, comp_type_id, &rd_c) < 0) goto error;
|
|
|
|
|
if(rd_c.a != 0 || rd_c.y != fill_ctype.y || rd_c.x != 0 || rd_c.z!='\0') {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got wrong fill value");
|
2005-08-14 04:53:35 +08:00
|
|
|
|
printf(" Got rd_c.a=%f, rd_c.y=%f and rd_c.x=%d, rd_c.z=%c\n",
|
2015-03-12 06:51:14 +08:00
|
|
|
|
(double)rd_c.a, rd_c.y, rd_c.x, rd_c.z);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dclose(dset8) < 0) goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
|
|
|
|
|
|
|
|
|
if(H5Fclose(file) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
1998-11-24 04:40:35 +08:00
|
|
|
|
PASSED();
|
1998-10-06 05:01:10 +08:00
|
|
|
|
return 0;
|
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
error:
|
1998-10-06 05:01:10 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Pclose(dcpl);
|
|
|
|
|
H5Sclose(space);
|
2002-08-21 00:18:02 +08:00
|
|
|
|
if(H5D_COMPACT != layout) {
|
|
|
|
|
H5Dclose(dset1);
|
|
|
|
|
H5Dclose(dset2);
|
|
|
|
|
H5Dclose(dset3);
|
|
|
|
|
H5Dclose(dset4);
|
|
|
|
|
H5Dclose(dset9);
|
|
|
|
|
}
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5Dclose(dset5);
|
|
|
|
|
H5Dclose(dset6);
|
|
|
|
|
H5Dclose(dset8);
|
1998-10-06 05:01:10 +08:00
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
2002-04-12 06:53:26 +08:00
|
|
|
|
* Function: test_rdwr_cases
|
1998-10-06 05:01:10 +08:00
|
|
|
|
*
|
2002-04-12 06:53:26 +08:00
|
|
|
|
* Purpose: Tests fill values read and write for datasets.
|
1998-10-06 05:01:10 +08:00
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
2002-04-12 06:53:26 +08:00
|
|
|
|
* Failure: 1
|
1998-10-06 05:01:10 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Thursday, October 1, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* This function is called by test_rdwr to write and read
|
2002-04-12 06:53:26 +08:00
|
|
|
|
* dataset for different cases.
|
1998-10-06 05:01:10 +08:00
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
2005-08-14 04:53:35 +08:00
|
|
|
|
test_rdwr_cases(hid_t file, hid_t dcpl, const char *dname, void *_fillval,
|
|
|
|
|
H5D_fill_time_t fill_time, H5D_layout_t layout,
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5T_class_t datatype, hid_t ctype_id)
|
1998-10-06 05:01:10 +08:00
|
|
|
|
{
|
2002-04-12 06:53:26 +08:00
|
|
|
|
hid_t fspace=-1, mspace=-1, dset1=-1, dset2=-1;
|
2003-05-07 07:24:07 +08:00
|
|
|
|
hsize_t cur_size[5] = {2, 8, 8, 4, 2};
|
1998-10-06 05:01:10 +08:00
|
|
|
|
hsize_t one[5] = {1, 1, 1, 1, 1};
|
1998-10-21 10:37:37 +08:00
|
|
|
|
hsize_t hs_size[5], hs_stride[5];
|
2004-12-29 22:26:20 +08:00
|
|
|
|
hsize_t hs_offset[5], nelmts;
|
2002-08-27 21:42:22 +08:00
|
|
|
|
int fillval=(-1), val_rd, should_be;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
int i, j, *buf=NULL, odd;
|
2004-12-29 22:26:20 +08:00
|
|
|
|
unsigned u;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
comp_datatype rd_c, fill_c, should_be_c;
|
|
|
|
|
comp_datatype *buf_c=NULL;
|
|
|
|
|
H5D_space_status_t allocation;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(datatype==H5T_INTEGER)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
fillval = *(int*)_fillval;
|
|
|
|
|
else if(datatype==H5T_COMPOUND) {
|
|
|
|
|
fill_c.a=((comp_datatype*)_fillval)->a;
|
|
|
|
|
fill_c.x=((comp_datatype*)_fillval)->x;
|
|
|
|
|
fill_c.y=((comp_datatype*)_fillval)->y;
|
|
|
|
|
fill_c.z=((comp_datatype*)_fillval)->z;
|
2002-08-27 21:42:22 +08:00
|
|
|
|
} else {
|
|
|
|
|
puts("Invalid type for test");
|
|
|
|
|
goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
/* Create dataset */
|
2006-10-24 04:40:14 +08:00
|
|
|
|
if((fspace = H5Screate_simple(5, cur_size, cur_size)) < 0)
|
|
|
|
|
goto error;
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if(datatype == H5T_INTEGER && (dset1 = H5Dcreate2(file, dname, H5T_NATIVE_INT, fspace, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2006-10-24 04:40:14 +08:00
|
|
|
|
goto error;
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if(datatype == H5T_COMPOUND && (dset2 = H5Dcreate2(file, dname, ctype_id, fspace, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
2006-10-24 04:40:14 +08:00
|
|
|
|
goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
|
|
|
|
/* Read some data and make sure it's the fill value */
|
2006-10-24 04:40:14 +08:00
|
|
|
|
if((mspace = H5Screate_simple(5, one, NULL)) < 0)
|
|
|
|
|
goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
for (i=0; i<1000; i++) {
|
2007-06-20 04:38:49 +08:00
|
|
|
|
for (j=0; j<5; j++)
|
1998-10-06 05:01:10 +08:00
|
|
|
|
hs_offset[j] = rand() % cur_size[j];
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL,
|
|
|
|
|
one, NULL) < 0) goto error;
|
2007-06-20 04:38:49 +08:00
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
/* case for atomic datatype */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(datatype==H5T_INTEGER) {
|
2005-08-14 04:53:35 +08:00
|
|
|
|
if(H5Dread(dset1, H5T_NATIVE_INT, mspace, fspace, H5P_DEFAULT,
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
&val_rd) < 0) goto error;
|
|
|
|
|
if(fill_time!=H5D_FILL_TIME_NEVER && val_rd!=fillval) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
2007-06-27 01:44:39 +08:00
|
|
|
|
HDfprintf(stdout, "%u: Value read was not a fill value.\n", (unsigned)__LINE__);
|
2004-12-29 22:26:20 +08:00
|
|
|
|
HDfprintf(stdout," Elmt={%Hu,%Hu,%Hu,%Hu,%Hu}, read: %u, "
|
2002-04-12 06:53:26 +08:00
|
|
|
|
"Fill value: %u\n",
|
2004-12-29 22:26:20 +08:00
|
|
|
|
hs_offset[0], hs_offset[1],
|
|
|
|
|
hs_offset[2], hs_offset[3],
|
|
|
|
|
hs_offset[4], val_rd, fillval);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
/* case for compound datatype */
|
|
|
|
|
} else if(datatype==H5T_COMPOUND) {
|
|
|
|
|
if(H5Dread(dset2, ctype_id, mspace, fspace, H5P_DEFAULT,
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
&rd_c) < 0) goto error;
|
|
|
|
|
if(fill_time!=H5D_FILL_TIME_NEVER && (rd_c.a!=fill_c.a ||
|
2005-08-14 04:53:35 +08:00
|
|
|
|
rd_c.x!=fill_c.x || rd_c.y!=fill_c.y ||
|
2002-04-12 06:53:26 +08:00
|
|
|
|
rd_c.z!=fill_c.z)) {
|
|
|
|
|
H5_FAILED();
|
2007-06-27 01:44:39 +08:00
|
|
|
|
HDfprintf(stdout, "%u: Value read was not a fill value.\n", (unsigned)__LINE__);
|
2004-12-29 22:26:20 +08:00
|
|
|
|
HDfprintf(stdout," Elmt={%Hu,%Hu,%Hu,%Hu,%Hu}, read: %f, %d, %f, %c"
|
2002-04-12 06:53:26 +08:00
|
|
|
|
"Fill value: %f, %d, %f, %c\n",
|
2004-12-29 22:26:20 +08:00
|
|
|
|
hs_offset[0], hs_offset[1],
|
|
|
|
|
hs_offset[2], hs_offset[3],
|
2015-03-12 06:51:14 +08:00
|
|
|
|
hs_offset[4], (double)rd_c.a, rd_c.x, rd_c.y, rd_c.z,
|
|
|
|
|
(double)fill_c.a, fill_c.x, fill_c.y, fill_c.z);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
1998-10-06 05:01:10 +08:00
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Sclose(mspace) < 0) goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
2007-06-20 04:38:49 +08:00
|
|
|
|
/* Select all odd data locations in the file dataset */
|
1998-10-06 05:01:10 +08:00
|
|
|
|
for (i=0, nelmts=1; i<5; i++) {
|
|
|
|
|
hs_size[i] = cur_size[i]/2;
|
|
|
|
|
hs_offset[i] = 0;
|
|
|
|
|
hs_stride[i] = 2;
|
|
|
|
|
nelmts *= hs_size[i];
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((mspace=H5Screate_simple(5, hs_size, hs_size)) < 0) goto error;
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, hs_stride,
|
|
|
|
|
hs_size, NULL) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2007-06-20 04:38:49 +08:00
|
|
|
|
/* Read non-contiguous selection from empty dataset */
|
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
/* case for atomic datatype */
|
|
|
|
|
if(datatype==H5T_INTEGER) {
|
|
|
|
|
/*check for overflow*/
|
2007-06-20 04:38:49 +08:00
|
|
|
|
HDassert((nelmts * sizeof(int)) == (hsize_t)((size_t)(nelmts * sizeof(int))));
|
2006-10-24 04:40:14 +08:00
|
|
|
|
buf = HDmalloc((size_t)(nelmts * sizeof(int)));
|
2007-06-20 04:38:49 +08:00
|
|
|
|
|
|
|
|
|
if(H5Dread(dset1, H5T_NATIVE_INT, mspace, fspace, H5P_DEFAULT, buf) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
/* Verify values, except if no fill value written */
|
|
|
|
|
if(fill_time != H5D_FILL_TIME_NEVER) {
|
|
|
|
|
for(u = 0; u < nelmts; u++) {
|
|
|
|
|
if(buf[u] != fillval) {
|
|
|
|
|
H5_FAILED();
|
2007-06-27 01:44:39 +08:00
|
|
|
|
HDfprintf(stdout, "%u: Value read was not a fill value.\n", (unsigned)__LINE__);
|
2007-06-20 04:38:49 +08:00
|
|
|
|
HDfprintf(stdout," Elmt={%Hu, %Hu, %Hu, %Hu, %Hu}, read: %u, "
|
|
|
|
|
"Fill value: %u\n",
|
|
|
|
|
hs_offset[0], hs_offset[1],
|
|
|
|
|
hs_offset[2], hs_offset[3],
|
|
|
|
|
hs_offset[4], buf[u], fillval);
|
|
|
|
|
goto error;
|
|
|
|
|
} /* end if */
|
|
|
|
|
} /* end for */
|
|
|
|
|
} /* end if */
|
|
|
|
|
}
|
|
|
|
|
/* case for compound datatype */
|
|
|
|
|
else if(datatype == H5T_COMPOUND) {
|
|
|
|
|
/*check for overflow*/
|
|
|
|
|
HDassert((nelmts * sizeof(comp_datatype)) ==
|
|
|
|
|
(hsize_t)((size_t)(nelmts * sizeof(comp_datatype))));
|
|
|
|
|
buf_c = (comp_datatype *)HDmalloc((size_t)nelmts * sizeof(comp_datatype));
|
|
|
|
|
|
|
|
|
|
if(H5Dread(dset2, ctype_id, mspace, fspace, H5P_DEFAULT, buf_c) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
/* Verify values, except if no fill value written */
|
|
|
|
|
if(fill_time != H5D_FILL_TIME_NEVER) {
|
|
|
|
|
for(u = 0; u < nelmts; u++) {
|
|
|
|
|
if(buf_c[u].a != fill_c.a || buf_c[u].x != fill_c.x ||
|
|
|
|
|
buf_c[u].y != fill_c.y || buf_c[u].z != fill_c.z) {
|
|
|
|
|
H5_FAILED();
|
2007-06-27 01:44:39 +08:00
|
|
|
|
HDfprintf(stdout, "%u: Value read was not a fill value.\n", (unsigned)__LINE__);
|
2007-06-20 04:38:49 +08:00
|
|
|
|
HDfprintf(stdout," Elmt={%Hu, %Hu, %Hu, %Hu, %Hu}, read: %f, %d, %f, %c"
|
|
|
|
|
"Fill value: %f, %d, %f, %c\n",
|
|
|
|
|
hs_offset[0], hs_offset[1],
|
|
|
|
|
hs_offset[2], hs_offset[3],
|
|
|
|
|
hs_offset[4],
|
2015-03-12 06:51:14 +08:00
|
|
|
|
(double)buf_c[u].a, buf_c[u].x, buf_c[u].y, buf_c[u].z,
|
|
|
|
|
(double)fill_c.a, fill_c.x, fill_c.y, fill_c.z);
|
2007-06-20 04:38:49 +08:00
|
|
|
|
goto error;
|
|
|
|
|
} /* end if */
|
|
|
|
|
} /* end for */
|
|
|
|
|
} /* end if */
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Write to all odd data locations */
|
|
|
|
|
|
|
|
|
|
/* case for atomic datatype */
|
|
|
|
|
if(datatype == H5T_INTEGER) {
|
2006-10-24 04:40:14 +08:00
|
|
|
|
for(u = 0; u < nelmts; u++)
|
|
|
|
|
buf[u] = 9999;
|
2007-06-20 04:38:49 +08:00
|
|
|
|
if(H5Dwrite(dset1, H5T_NATIVE_INT, mspace, fspace, H5P_DEFAULT, buf) < 0)
|
|
|
|
|
goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
}
|
|
|
|
|
/* case for compound datatype */
|
2007-06-20 04:38:49 +08:00
|
|
|
|
else if(datatype == H5T_COMPOUND) {
|
|
|
|
|
HDmemset(buf_c, 0, ((size_t)nelmts * sizeof(comp_datatype)));
|
|
|
|
|
for(u = 0; u < nelmts; u++) {
|
2015-03-02 02:48:54 +08:00
|
|
|
|
buf_c[u].a = 1111.11F;
|
2004-12-29 22:26:20 +08:00
|
|
|
|
buf_c[u].x = 2222;
|
2015-03-02 02:48:54 +08:00
|
|
|
|
buf_c[u].y = 3333.3333F;
|
2004-12-29 22:26:20 +08:00
|
|
|
|
buf_c[u].z = 'd';
|
2002-04-12 06:53:26 +08:00
|
|
|
|
}
|
2007-06-20 04:38:49 +08:00
|
|
|
|
if(H5Dwrite(dset2, ctype_id, mspace, fspace, H5P_DEFAULT, buf_c) < 0)
|
|
|
|
|
goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Check if space is allocated */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(datatype==H5T_INTEGER && H5Dget_space_status(dset1, &allocation) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(datatype==H5T_COMPOUND && H5Dget_space_status(dset2, &allocation) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(layout == H5D_CONTIGUOUS && allocation != H5D_SPACE_STATUS_ALLOCATED) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got unallocated space instead of allocated.\n",__LINE__);
|
|
|
|
|
printf(" Got %d\n", allocation);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
2006-10-24 04:40:14 +08:00
|
|
|
|
HDfree(buf);
|
1998-10-06 05:01:10 +08:00
|
|
|
|
buf = NULL;
|
|
|
|
|
H5Sclose(mspace);
|
|
|
|
|
|
|
|
|
|
/* Read some data and make sure it's the right value */
|
2006-10-24 04:40:14 +08:00
|
|
|
|
if((mspace = H5Screate_simple(5, one, NULL)) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
for(i = 0; i < 1000; i++) {
|
|
|
|
|
for(j = 0, odd = 0; j < 5; j++) {
|
1998-10-06 05:01:10 +08:00
|
|
|
|
hs_offset[j] = rand() % cur_size[j];
|
2001-11-28 00:29:13 +08:00
|
|
|
|
odd += (int)(hs_offset[j]%2);
|
2006-10-24 04:40:14 +08:00
|
|
|
|
} /* end for */
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0)
|
|
|
|
|
goto error;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
/* case for atomic datatype */
|
2006-10-24 04:40:14 +08:00
|
|
|
|
if(datatype==H5T_INTEGER) {
|
|
|
|
|
if(H5Dread(dset1, H5T_NATIVE_INT, mspace, fspace, H5P_DEFAULT, &val_rd) < 0)
|
|
|
|
|
goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
if(fill_time == H5D_FILL_TIME_ALLOC) {
|
|
|
|
|
should_be = odd ? fillval : 9999;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(val_rd!=should_be) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
2007-06-27 01:44:39 +08:00
|
|
|
|
HDfprintf(stdout, "%u: Value read was not correct.\n", (unsigned)__LINE__);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
printf(" Elmt={%ld,%ld,%ld,%ld,%ld}, read: %u, "
|
|
|
|
|
"should be: %u\n",
|
|
|
|
|
(long)hs_offset[0], (long)hs_offset[1],
|
|
|
|
|
(long)hs_offset[2], (long)hs_offset[3],
|
|
|
|
|
(long)hs_offset[4], val_rd, should_be);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
else if(fill_time == H5D_FILL_TIME_NEVER && !odd) {
|
|
|
|
|
should_be = 9999;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(val_rd!=should_be) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
2007-06-27 01:44:39 +08:00
|
|
|
|
HDfprintf(stdout, "%u: Value read was not correct.\n", (unsigned)__LINE__);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
printf(" Elmt={%ld,%ld,%ld,%ld,%ld}, read: %u, "
|
|
|
|
|
"should be: %u\n",
|
|
|
|
|
(long)hs_offset[0], (long)hs_offset[1],
|
|
|
|
|
(long)hs_offset[2], (long)hs_offset[3],
|
|
|
|
|
(long)hs_offset[4], val_rd, should_be);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
} else if(fill_time == H5D_FILL_TIME_NEVER && odd) {
|
2005-08-14 04:53:35 +08:00
|
|
|
|
/*Trash data. Don't compare*/
|
2002-04-12 06:53:26 +08:00
|
|
|
|
}
|
|
|
|
|
} /* end for datatype==H5T_INTEGER */
|
|
|
|
|
/* case for compound datatype */
|
2006-10-24 04:40:14 +08:00
|
|
|
|
else if(datatype==H5T_COMPOUND) {
|
|
|
|
|
if(H5Dread(dset2, ctype_id, mspace, fspace, H5P_DEFAULT, &rd_c) < 0)
|
|
|
|
|
goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
if(fill_time == H5D_FILL_TIME_ALLOC) {
|
|
|
|
|
if(odd) {
|
|
|
|
|
should_be_c.a=fill_c.a;
|
|
|
|
|
should_be_c.x=fill_c.x;
|
|
|
|
|
should_be_c.y=fill_c.y;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
should_be_c.z=fill_c.z;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
} else {
|
|
|
|
|
should_be_c.a=buf_c[0].a;
|
|
|
|
|
should_be_c.x=buf_c[0].x;
|
|
|
|
|
should_be_c.y=buf_c[0].y;
|
|
|
|
|
should_be_c.z=buf_c[0].z;
|
|
|
|
|
}
|
|
|
|
|
if( rd_c.a!=should_be_c.a || rd_c.x!=should_be_c.x ||
|
|
|
|
|
rd_c.y!=should_be_c.y || rd_c.z!=should_be_c.z) {
|
|
|
|
|
H5_FAILED();
|
2007-06-27 01:44:39 +08:00
|
|
|
|
HDfprintf(stdout, "%u: Value read was not correct.\n", (unsigned)__LINE__);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
printf(" Elmt={%ld,%ld,%ld,%ld,%ld}, read: %f,%d,%f,%c "
|
|
|
|
|
"should be: %f,%d,%f,%c\n",
|
|
|
|
|
(long)hs_offset[0], (long)hs_offset[1],
|
|
|
|
|
(long)hs_offset[2], (long)hs_offset[3],
|
2005-08-14 04:53:35 +08:00
|
|
|
|
(long)hs_offset[4],
|
2015-03-12 06:51:14 +08:00
|
|
|
|
(double)rd_c.a, rd_c.x, rd_c.y, rd_c.z, (double)should_be_c.a,
|
2002-04-12 06:53:26 +08:00
|
|
|
|
should_be_c.x,should_be_c.y,should_be_c.z);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
} /* end for fill_time == H5D_FILL_TIME_ALLOC */
|
|
|
|
|
else if(fill_time == H5D_FILL_TIME_NEVER && !odd) {
|
|
|
|
|
should_be_c.a=buf_c[0].a;
|
|
|
|
|
should_be_c.x=buf_c[0].x;
|
|
|
|
|
should_be_c.y=buf_c[0].y;
|
|
|
|
|
should_be_c.z=buf_c[0].z;
|
|
|
|
|
if( rd_c.a!=should_be_c.a || rd_c.x!=should_be_c.x ||
|
|
|
|
|
rd_c.y!=should_be_c.y || rd_c.z!=should_be_c.z) {
|
|
|
|
|
H5_FAILED();
|
2007-06-27 01:44:39 +08:00
|
|
|
|
HDfprintf(stdout, "%u: Value read was not correct.\n", (unsigned)__LINE__);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
printf(" Elmt={%ld,%ld,%ld,%ld,%ld}, read: %f,%d,%f,%c "
|
|
|
|
|
"should be: %f,%d,%f,%c\n",
|
|
|
|
|
(long)hs_offset[0], (long)hs_offset[1],
|
|
|
|
|
(long)hs_offset[2], (long)hs_offset[3],
|
2005-08-14 04:53:35 +08:00
|
|
|
|
(long)hs_offset[4],
|
2015-03-12 06:51:14 +08:00
|
|
|
|
(double)rd_c.a, rd_c.x, rd_c.y, rd_c.z, (double)should_be_c.a,
|
2002-04-12 06:53:26 +08:00
|
|
|
|
should_be_c.x,should_be_c.y,should_be_c.z);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
} /* end for fill_time == H5D_FILL_TIME_NEVER */
|
|
|
|
|
else if(fill_time == H5D_FILL_TIME_NEVER && odd) {
|
2005-08-14 04:53:35 +08:00
|
|
|
|
/*Trash data. Don't compare*/
|
2002-04-12 06:53:26 +08:00
|
|
|
|
}
|
|
|
|
|
} /* end for datatype==H5T_COMPOUND */
|
1998-10-06 05:01:10 +08:00
|
|
|
|
}
|
2006-10-24 04:40:14 +08:00
|
|
|
|
if(datatype == H5T_COMPOUND) {
|
|
|
|
|
HDfree(buf_c);
|
|
|
|
|
buf_c = NULL;
|
|
|
|
|
} /* end if */
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Sclose(mspace) < 0) goto error;
|
|
|
|
|
if(datatype==H5T_INTEGER && H5Dclose(dset1) < 0) goto error;
|
|
|
|
|
if(datatype==H5T_COMPOUND && H5Dclose(dset2) < 0) goto error;
|
|
|
|
|
if(H5Sclose(fspace) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
return 0;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
if(datatype==H5T_INTEGER) H5Dclose(dset1);
|
|
|
|
|
if(datatype==H5T_COMPOUND) H5Dclose(dset2);
|
|
|
|
|
H5Sclose(fspace);
|
|
|
|
|
H5Sclose(mspace);
|
|
|
|
|
} H5E_END_TRY;
|
2002-08-21 00:18:02 +08:00
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_rdwr
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests fill values for datasets.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
|
|
|
|
* Failure: number of errors
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Thursday, October 1, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Many new cases have been added to this test since the
|
2002-04-12 06:53:26 +08:00
|
|
|
|
* fill value design is modified.
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
test_rdwr(hid_t fapl, const char *base_name, H5D_layout_t layout)
|
|
|
|
|
{
|
|
|
|
|
char filename[1024];
|
|
|
|
|
hid_t file=-1, dcpl=-1, ctype_id=-1;
|
2003-05-07 07:24:07 +08:00
|
|
|
|
hsize_t ch_size[5] = {2, 8, 8, 4, 2};
|
2002-04-12 06:53:26 +08:00
|
|
|
|
int nerrors=0;
|
|
|
|
|
int fillval = 0x4c70f1cd;
|
2002-07-02 03:16:43 +08:00
|
|
|
|
comp_datatype fill_ctype={0,0,0,0};
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5D_CHUNKED==layout) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
TESTING("chunked dataset I/O");
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
} else if(H5D_COMPACT==layout) {
|
2002-08-21 00:18:02 +08:00
|
|
|
|
TESTING("compact dataset I/O");
|
2002-04-12 06:53:26 +08:00
|
|
|
|
} else {
|
|
|
|
|
TESTING("contiguous dataset I/O");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
h5_fixname(base_name, fapl, filename, sizeof filename);
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dcpl=H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
|
|
|
|
|
if(H5D_CHUNKED==layout) {
|
|
|
|
|
if(H5Pset_chunk(dcpl, 5, ch_size) < 0) goto error;
|
|
|
|
|
} else if(H5D_COMPACT==layout) {
|
|
|
|
|
if(H5Pset_layout(dcpl, H5D_COMPACT) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((ctype_id=create_compound_type()) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
|
2002-09-14 00:57:46 +08:00
|
|
|
|
/* I. Test H5D_ALLOC_TIME_LATE space allocation cases */
|
2002-08-21 00:18:02 +08:00
|
|
|
|
if(H5D_COMPACT != layout) {
|
2002-09-14 00:57:46 +08:00
|
|
|
|
if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_LATE) < 0) goto error;
|
2002-08-21 00:18:02 +08:00
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
|
|
|
|
fillval = 0;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset1", &fillval, H5D_FILL_TIME_ALLOC,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
layout, H5T_INTEGER, (hid_t)-1);
|
2002-08-21 00:18:02 +08:00
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_NEVER as fill write time and fill value to be default */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset2", &fillval, H5D_FILL_TIME_NEVER,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
layout, H5T_INTEGER, (hid_t)-1);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value is user-defined */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
|
|
|
|
fillval = 0x4c70f1cd;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset3", &fillval, H5D_FILL_TIME_ALLOC,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
layout, H5T_INTEGER, (hid_t)-1);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* case for H5D_FILL_TIME_NEVER as fill write time and fill value is user-defined */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
|
|
|
|
if(H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset4", &fillval, H5D_FILL_TIME_NEVER,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
layout, H5T_INTEGER, (hid_t)-1);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value is undefined */
|
|
|
|
|
/* This case has been tested in test_create() function */
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* case for H5D_FILL_TIME_NEVER as fill write time and fill value is undefined */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
2014-07-31 04:55:14 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, (hid_t)-1, NULL) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset5", &fillval, H5D_FILL_TIME_NEVER,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
layout, H5T_INTEGER, (hid_t)-1);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2002-08-21 00:18:02 +08:00
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value is user-defined
|
|
|
|
|
* as compound type */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
2010-08-21 05:37:12 +08:00
|
|
|
|
HDmemset(&fill_ctype, 0, sizeof(fill_ctype));
|
2015-03-02 02:48:54 +08:00
|
|
|
|
fill_ctype.y = 4444.4444F;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, ctype_id, &fill_ctype) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset11", &fill_ctype, H5D_FILL_TIME_ALLOC,
|
2002-04-12 06:53:26 +08:00
|
|
|
|
layout, H5T_COMPOUND, ctype_id);
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
|
|
|
|
if((dcpl=H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
|
|
|
|
|
if(H5D_CHUNKED==layout) {
|
|
|
|
|
if(H5Pset_chunk(dcpl, 5, ch_size) < 0) goto error;
|
2002-08-21 00:18:02 +08:00
|
|
|
|
}
|
2002-04-12 06:53:26 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2002-09-14 00:57:46 +08:00
|
|
|
|
/* II. Test H5D_ALLOC_TIME_EARLY space allocation cases */
|
|
|
|
|
if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
|
|
|
|
fillval = 0;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset6", &fillval, H5D_FILL_TIME_ALLOC,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
layout, H5T_INTEGER, (hid_t)-1);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_NEVER as fill write time and fill value to be default */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset7", &fillval, H5D_FILL_TIME_NEVER, layout,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
H5T_INTEGER, (hid_t)-1);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value is user-defined */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
|
|
|
|
fillval = 0x4c70f1cd;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset8", &fillval, H5D_FILL_TIME_ALLOC,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
layout, H5T_INTEGER, (hid_t)-1);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_NEVER as fill write time and fill value is user-defined */
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
|
|
|
|
if(H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset9", &fillval, H5D_FILL_TIME_NEVER,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
layout, H5T_INTEGER, (hid_t)-1);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value is undefined */
|
|
|
|
|
/* This case has been tested in test_create() function */
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_NEVER as fill write time and fill value is undefined */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
2014-07-31 04:55:14 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, (hid_t)-1, NULL) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset10", &fillval, H5D_FILL_TIME_NEVER,
|
2014-07-31 04:55:14 +08:00
|
|
|
|
layout, H5T_INTEGER, (hid_t)-1);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value is user-defined
|
|
|
|
|
* as compound type */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
2010-08-21 05:37:12 +08:00
|
|
|
|
HDmemset(&fill_ctype, 0, sizeof(fill_ctype));
|
2015-03-02 02:48:54 +08:00
|
|
|
|
fill_ctype.y = 4444.4444F;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_fill_value(dcpl, ctype_id, &fill_ctype) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
nerrors += test_rdwr_cases(file, dcpl, "dset12", &fill_ctype, H5D_FILL_TIME_ALLOC,
|
|
|
|
|
layout, H5T_COMPOUND, ctype_id);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if(nerrors)
|
|
|
|
|
goto error;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
|
|
|
|
if(H5Tclose(ctype_id) < 0) goto error;
|
|
|
|
|
if(H5Fclose(file) < 0) goto error;
|
1998-11-24 04:40:35 +08:00
|
|
|
|
PASSED();
|
1998-10-06 05:01:10 +08:00
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5Pclose(dcpl);
|
|
|
|
|
H5Tclose(ctype_id);
|
|
|
|
|
H5Fclose(file);
|
1998-10-06 05:01:10 +08:00
|
|
|
|
} H5E_END_TRY;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
return nerrors;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
}
|
|
|
|
|
|
2007-07-04 04:20:34 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_extend_init_integer
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Initializes integer values
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
* Failure: < 0
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Tuesday, July 3, 2007
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
test_extend_init_integer(void *_buf, size_t nelmts, const void *_val)
|
|
|
|
|
{
|
|
|
|
|
int *buf = (int *)_buf; /* Buffer to initialize */
|
|
|
|
|
const int *val = (const int *)_val; /* Value to use */
|
|
|
|
|
|
|
|
|
|
while(nelmts) {
|
|
|
|
|
*buf++ = *val;
|
|
|
|
|
nelmts--;
|
|
|
|
|
} /* end while */
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
} /* end test_extend_init_integer() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_extend_verify_integer
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Verifies integer values
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
* Failure: < 0
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Tuesday, July 3, 2007
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
test_extend_verify_integer(unsigned lineno, const hsize_t *offset,
|
|
|
|
|
const void *_test_val, const void *_compare_val)
|
|
|
|
|
{
|
|
|
|
|
const int *test_val = (const int *)_test_val; /* Value to test */
|
|
|
|
|
const int *compare_val = (const int *)_compare_val; /* Value to compare against */
|
|
|
|
|
|
|
|
|
|
/* Verify value */
|
|
|
|
|
if(*test_val != *compare_val) {
|
|
|
|
|
HDfprintf(stdout, "%u: Value read was not expected.\n", lineno);
|
|
|
|
|
HDfprintf(stdout," Elmt = {%Hu, %Hu, %Hu, %Hu, %Hu}, read: %d, "
|
|
|
|
|
"expected: %d\n",
|
|
|
|
|
offset[0], offset[1],
|
|
|
|
|
offset[2], offset[3],
|
|
|
|
|
offset[4], *test_val, *compare_val);
|
|
|
|
|
goto error;
|
|
|
|
|
} /* end if */
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
return -1;
|
|
|
|
|
} /* end test_extend_verify_integer() */
|
|
|
|
|
|
2007-07-05 23:45:45 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_extend_release_integer
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Release element of integer value
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
* Failure: < 0
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Tuesday, July 3, 2007
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
2015-06-02 03:38:09 +08:00
|
|
|
|
test_extend_release_integer(void H5_ATTR_UNUSED *_elmt)
|
2007-07-05 23:45:45 +08:00
|
|
|
|
{
|
|
|
|
|
return 0;
|
|
|
|
|
} /* end test_extend_release_integer() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_extend_init_cmpd_vl
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Initializes compound+vl values
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
* Failure: < 0
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Tuesday, July 3, 2007
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
test_extend_init_cmpd_vl(void *_buf, size_t nelmts, const void *_val)
|
|
|
|
|
{
|
|
|
|
|
comp_vl_datatype *buf = (comp_vl_datatype *)_buf; /* Buffer to initialize */
|
|
|
|
|
const comp_vl_datatype *val = (const comp_vl_datatype *)_val; /* Value to use */
|
|
|
|
|
|
|
|
|
|
while(nelmts) {
|
|
|
|
|
/* Shallow copy all fields */
|
|
|
|
|
*buf = *val;
|
|
|
|
|
|
|
|
|
|
/* Deep copy string fields */
|
|
|
|
|
buf->a = HDstrdup(val->a);
|
|
|
|
|
buf->b = HDstrdup(val->b);
|
|
|
|
|
|
|
|
|
|
buf++;
|
|
|
|
|
nelmts--;
|
|
|
|
|
} /* end while */
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
} /* end test_extend_init_cmpd_vl() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_extend_verify_cmpd_vl
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Verifies compound+vl values
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
* Failure: < 0
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Tuesday, July 3, 2007
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
test_extend_verify_cmpd_vl(unsigned lineno, const hsize_t *offset,
|
|
|
|
|
const void *_test_val, const void *_compare_val)
|
|
|
|
|
{
|
|
|
|
|
const comp_vl_datatype *test_val = (const comp_vl_datatype *)_test_val; /* Value to test */
|
|
|
|
|
const comp_vl_datatype *compare_val = (const comp_vl_datatype *)_compare_val; /* Value to compare against */
|
|
|
|
|
|
|
|
|
|
/* Verify value */
|
|
|
|
|
if((test_val->x != compare_val->x) ||
|
|
|
|
|
HDstrcmp(test_val->a, compare_val->a) ||
|
|
|
|
|
HDstrcmp(test_val->b, compare_val->b) ||
|
|
|
|
|
(test_val->y != compare_val->y)) {
|
|
|
|
|
HDfprintf(stdout, "%u: Value read was not expected.\n", lineno);
|
|
|
|
|
HDfprintf(stdout," Elmt = {%Hu, %Hu, %Hu, %Hu, %Hu}, read: {%d, '%s', '%s', %d} "
|
|
|
|
|
"expected: {%d, '%s', '%s', %d}\n",
|
|
|
|
|
offset[0], offset[1], offset[2], offset[3], offset[4],
|
|
|
|
|
test_val->x, test_val->a, test_val->b, test_val->y,
|
|
|
|
|
compare_val->x, compare_val->a, compare_val->b, compare_val->y);
|
|
|
|
|
goto error;
|
|
|
|
|
} /* end if */
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
return -1;
|
|
|
|
|
} /* end test_extend_verify_cmpd_vl() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_extend_release_cmpd_vl
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Release element of compound+vl value
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
* Failure: < 0
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Tuesday, July 3, 2007
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
test_extend_release_cmpd_vl(void *_elmt)
|
|
|
|
|
{
|
|
|
|
|
comp_vl_datatype *elmt = (comp_vl_datatype *)_elmt; /* Element to free */
|
|
|
|
|
|
|
|
|
|
/* Free memory for string fields */
|
|
|
|
|
HDfree(elmt->a);
|
|
|
|
|
HDfree(elmt->b);
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
} /* end test_extend_release_integer() */
|
|
|
|
|
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_extend_cases
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Called to test fill values with various different values
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
* Failure: number of errors
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Tuesday, July 3, 2007
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
2007-07-04 03:20:02 +08:00
|
|
|
|
test_extend_cases(hid_t file, hid_t _dcpl, const char *dset_name,
|
2007-07-05 23:45:45 +08:00
|
|
|
|
hsize_t *ch_size, hsize_t *start_size, hsize_t *max_size, hid_t dtype, void *fillval)
|
2007-07-04 02:50:24 +08:00
|
|
|
|
{
|
2007-07-04 03:20:02 +08:00
|
|
|
|
hid_t fspace = -1, mspace = -1; /* File & memory dataspaces */
|
|
|
|
|
hid_t dset = -1; /* Dataset ID */
|
|
|
|
|
hid_t dcpl = -1; /* Dataset creation property list */
|
2007-07-05 23:45:45 +08:00
|
|
|
|
hsize_t extend_size[5]; /* Dimensions to extend to */
|
|
|
|
|
hsize_t one[5] = {1, 1, 1, 1, 1}; /* Dimensions of single element dataspace */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
hsize_t hs_size[5], hs_stride[5], hs_offset[5];
|
|
|
|
|
size_t nelmts;
|
|
|
|
|
H5T_class_t dtype_class; /* Class of datatype */
|
|
|
|
|
int (*init_rtn)(void *, size_t, const void *);
|
2007-07-05 23:45:45 +08:00
|
|
|
|
int (*verify_rtn)(unsigned, const hsize_t *, const void *, const void *);
|
|
|
|
|
int (*release_rtn)(void *);
|
2007-07-04 04:20:34 +08:00
|
|
|
|
size_t val_size; /* Size of element */
|
|
|
|
|
void *val_rd, *should_be, *init_val, *odd_val, *even_val;
|
|
|
|
|
int val_rd_i, init_val_i = 9999;
|
2007-07-05 23:45:45 +08:00
|
|
|
|
comp_vl_datatype val_rd_c, init_val_c = {87, "baz", "mumble", 129};
|
2007-07-04 04:20:34 +08:00
|
|
|
|
void *buf = NULL;
|
|
|
|
|
unsigned odd; /* Whether an odd or even coord. was read */
|
|
|
|
|
unsigned i, j; /* Local index variables */
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
/* Make copy of dataset creation property list */
|
|
|
|
|
if((dcpl = H5Pcopy(_dcpl)) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
#ifndef NO_FILLING
|
|
|
|
|
if(H5Pset_fill_value(dcpl, dtype, fillval) < 0) TEST_ERROR
|
|
|
|
|
#endif
|
|
|
|
|
|
2007-07-04 04:20:34 +08:00
|
|
|
|
/* Get class of datatype */
|
|
|
|
|
if((dtype_class = H5Tget_class(dtype)) < 0) TEST_ERROR
|
|
|
|
|
|
2007-07-04 02:50:24 +08:00
|
|
|
|
/* Create a dataspace */
|
2007-07-04 03:20:02 +08:00
|
|
|
|
if((fspace = H5Screate_simple(5, start_size, max_size)) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Create dataset */
|
[svn-r14199] Description:
Add H5Dcreate to API versioned routines, replacing internal usage with
H5Dcreate2
Fix thread-safe error stack initialization for API versioned error
stack printing routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
|
|
|
|
if((dset = H5Dcreate2(file, dset_name, dtype, fspace, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) TEST_ERROR
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
|
|
|
|
|
2007-07-04 04:20:34 +08:00
|
|
|
|
/* Set up pointers to elements */
|
|
|
|
|
if(dtype_class == H5T_INTEGER) {
|
2007-07-05 23:45:45 +08:00
|
|
|
|
/* Initialize specific values for this datatype */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
val_size = sizeof(int);
|
|
|
|
|
init_val = &init_val_i;
|
|
|
|
|
init_rtn = test_extend_init_integer;
|
|
|
|
|
verify_rtn = test_extend_verify_integer;
|
2007-07-05 23:45:45 +08:00
|
|
|
|
release_rtn = test_extend_release_integer;
|
2007-07-04 04:20:34 +08:00
|
|
|
|
val_rd = &val_rd_i;
|
|
|
|
|
odd_val = fillval;
|
|
|
|
|
even_val = &init_val_i;
|
|
|
|
|
} /* end if */
|
2007-07-05 23:45:45 +08:00
|
|
|
|
else {
|
|
|
|
|
/* Sanity check */
|
|
|
|
|
assert(dtype_class == H5T_COMPOUND);
|
|
|
|
|
|
|
|
|
|
/* Initialize specific values for this datatype */
|
|
|
|
|
val_size = sizeof(comp_vl_datatype);
|
|
|
|
|
init_val = &init_val_c;
|
|
|
|
|
init_rtn = test_extend_init_cmpd_vl;
|
|
|
|
|
verify_rtn = test_extend_verify_cmpd_vl;
|
|
|
|
|
release_rtn = test_extend_release_cmpd_vl;
|
|
|
|
|
val_rd = &val_rd_c;
|
|
|
|
|
odd_val = fillval;
|
|
|
|
|
even_val = &init_val_c;
|
|
|
|
|
} /* end else */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
|
|
|
|
|
|
2007-07-04 02:50:24 +08:00
|
|
|
|
/* Read some data and make sure it's the fill value */
|
|
|
|
|
if((mspace = H5Screate_simple(5, one, NULL)) < 0) TEST_ERROR
|
|
|
|
|
for(i = 0; i < 1000; i++) {
|
2007-07-04 03:20:02 +08:00
|
|
|
|
/* Set offset for random element */
|
2007-07-04 02:50:24 +08:00
|
|
|
|
for(j = 0; j < 5; j++)
|
2007-07-04 03:20:02 +08:00
|
|
|
|
hs_offset[j] = rand() % start_size[j];
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
/* Select the random element */
|
2007-07-04 02:50:24 +08:00
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0) TEST_ERROR
|
2007-07-04 03:20:02 +08:00
|
|
|
|
|
|
|
|
|
/* Read the random element */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
if(H5Dread(dset, dtype, mspace, fspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
2007-07-04 03:20:02 +08:00
|
|
|
|
|
|
|
|
|
/* Verify the element read in */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
if(verify_rtn((unsigned)__LINE__, hs_offset, val_rd, fillval) < 0) TEST_ERROR
|
2007-07-05 23:45:45 +08:00
|
|
|
|
|
|
|
|
|
/* Release any VL components */
|
|
|
|
|
if(H5Dvlen_reclaim(dtype, mspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Clear the read buffer */
|
|
|
|
|
HDmemset(val_rd, 0, val_size);
|
2007-07-04 02:50:24 +08:00
|
|
|
|
} /* end for */
|
|
|
|
|
if(H5Sclose(mspace) < 0) TEST_ERROR
|
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
|
2007-07-04 02:50:24 +08:00
|
|
|
|
/* Initialize dataspace & hyperslab info */
|
|
|
|
|
for(i = 0, nelmts = 1; i < 5; i++) {
|
2008-06-26 23:50:13 +08:00
|
|
|
|
hs_size[i] = (start_size[i] + 1) / 2;
|
2007-07-04 02:50:24 +08:00
|
|
|
|
hs_offset[i] = 0;
|
|
|
|
|
hs_stride[i] = 2;
|
|
|
|
|
nelmts *= hs_size[i];
|
|
|
|
|
} /* end for */
|
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
/* Check for overflow */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
assert((nelmts * val_size) == (hsize_t)((size_t)(nelmts * val_size)));
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
|
|
|
|
/* Allocate & initialize buffer */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
buf = HDmalloc((size_t)(nelmts * val_size));
|
|
|
|
|
init_rtn(buf, nelmts, init_val);
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
/* Create dataspace describing memory buffer */
|
|
|
|
|
if((mspace = H5Screate_simple(5, hs_size, hs_size)) < 0) TEST_ERROR
|
|
|
|
|
|
2008-09-16 23:52:51 +08:00
|
|
|
|
/* Select elements within file dataspace */
|
2007-07-04 02:50:24 +08:00
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, hs_stride, hs_size, NULL) < 0) TEST_ERROR
|
|
|
|
|
|
2008-06-26 23:50:13 +08:00
|
|
|
|
/* Write to all even data locations */
|
2007-07-04 03:20:02 +08:00
|
|
|
|
if(H5Dwrite(dset, dtype, mspace, fspace, H5P_DEFAULT, buf) < 0) TEST_ERROR
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
|
|
|
|
/* Close memory dataspace */
|
|
|
|
|
if(H5Sclose(mspace) < 0) TEST_ERROR
|
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
|
2007-07-04 02:50:24 +08:00
|
|
|
|
/* Read some data and make sure it's the right value */
|
|
|
|
|
if((mspace = H5Screate_simple(5, one, NULL)) < 0) TEST_ERROR
|
|
|
|
|
for(i = 0; i < 1000; i++) {
|
|
|
|
|
/* Set offset for random element */
|
|
|
|
|
for(j = 0, odd = 0; j < 5; j++) {
|
2007-07-04 03:20:02 +08:00
|
|
|
|
hs_offset[j] = rand() % start_size[j];
|
2007-07-04 04:20:34 +08:00
|
|
|
|
odd += (unsigned)(hs_offset[j] % 2);
|
2007-07-04 02:50:24 +08:00
|
|
|
|
} /* end for */
|
|
|
|
|
|
|
|
|
|
/* Select the random element */
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Read the random element */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
if(H5Dread(dset, dtype, mspace, fspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
|
|
|
|
/* Verify the element read in */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
should_be = odd ? odd_val : even_val;
|
|
|
|
|
if(verify_rtn((unsigned)__LINE__, hs_offset, val_rd, should_be) < 0) TEST_ERROR
|
2007-07-05 23:45:45 +08:00
|
|
|
|
|
|
|
|
|
/* Release any VL components */
|
|
|
|
|
if(H5Dvlen_reclaim(dtype, mspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Clear the read buffer */
|
|
|
|
|
HDmemset(val_rd, 0, val_size);
|
|
|
|
|
} /* end for */
|
|
|
|
|
if(H5Sclose(mspace) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Extend the dataset one element in each dimension */
|
|
|
|
|
for(i = 0; i < 5; i++)
|
|
|
|
|
extend_size[i] = start_size[i] + 1;
|
[svn-r14192] Description:
Deprecate H5Dextend in favor of H5Dset_extent (without using API
versioning, due to changed behavior) and switch internal usage to H5Dset_extent
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-08 23:26:02 +08:00
|
|
|
|
if(H5Dset_extent(dset, extend_size) < 0) TEST_ERROR
|
2007-07-05 23:45:45 +08:00
|
|
|
|
|
|
|
|
|
/* Re-open file dataspace */
|
|
|
|
|
if(H5Sclose(fspace) < 0) TEST_ERROR
|
|
|
|
|
if((fspace = H5Dget_space(dset)) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Read some data and make sure it's the right value */
|
|
|
|
|
if((mspace = H5Screate_simple(5, one, NULL)) < 0) TEST_ERROR
|
|
|
|
|
for(i = 0; i < 1000; i++) {
|
|
|
|
|
/* Set offset for random element */
|
|
|
|
|
for(j = 0, odd = 0; j < 5; j++) {
|
|
|
|
|
hs_offset[j] = rand() % extend_size[j];
|
|
|
|
|
if(hs_offset[j] >= start_size[j])
|
|
|
|
|
odd = 1;
|
|
|
|
|
else
|
|
|
|
|
odd += (unsigned)(hs_offset[j] % 2);
|
|
|
|
|
} /* end for */
|
|
|
|
|
|
|
|
|
|
/* Select the random element */
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Read the random element */
|
|
|
|
|
if(H5Dread(dset, dtype, mspace, fspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Verify the element read in */
|
|
|
|
|
should_be = odd ? odd_val : even_val;
|
|
|
|
|
if(verify_rtn((unsigned)__LINE__, hs_offset, val_rd, should_be) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Release any VL components */
|
|
|
|
|
if(H5Dvlen_reclaim(dtype, mspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Clear the read buffer */
|
|
|
|
|
HDmemset(val_rd, 0, val_size);
|
2007-07-04 02:50:24 +08:00
|
|
|
|
} /* end for */
|
|
|
|
|
if(H5Sclose(mspace) < 0) TEST_ERROR
|
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
|
2007-07-05 23:45:45 +08:00
|
|
|
|
/* Extend the dataset to the maximum dimension sizes */
|
[svn-r14192] Description:
Deprecate H5Dextend in favor of H5Dset_extent (without using API
versioning, due to changed behavior) and switch internal usage to H5Dset_extent
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-08 23:26:02 +08:00
|
|
|
|
if(H5Dset_extent(dset, max_size) < 0) TEST_ERROR
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
|
|
|
|
/* Re-open file dataspace */
|
|
|
|
|
if(H5Sclose(fspace) < 0) TEST_ERROR
|
|
|
|
|
if((fspace = H5Dget_space(dset)) < 0) TEST_ERROR
|
|
|
|
|
|
2007-07-04 04:20:34 +08:00
|
|
|
|
|
2007-07-04 02:50:24 +08:00
|
|
|
|
/* Read some data and make sure it's the right value */
|
|
|
|
|
if((mspace = H5Screate_simple(5, one, NULL)) < 0) TEST_ERROR
|
|
|
|
|
for(i = 0; i < 1000; i++) {
|
|
|
|
|
/* Set offset for random element */
|
|
|
|
|
for(j = 0, odd = 0; j < 5; j++) {
|
|
|
|
|
hs_offset[j] = rand() % max_size[j];
|
2007-07-04 04:20:34 +08:00
|
|
|
|
if(hs_offset[j] >= start_size[j])
|
2007-07-04 02:50:24 +08:00
|
|
|
|
odd = 1;
|
|
|
|
|
else
|
2007-07-04 04:20:34 +08:00
|
|
|
|
odd += (unsigned)(hs_offset[j] % 2);
|
2007-07-04 02:50:24 +08:00
|
|
|
|
} /* end for */
|
|
|
|
|
|
|
|
|
|
/* Select the random element */
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Read the random element */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
if(H5Dread(dset, dtype, mspace, fspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
|
|
|
|
/* Verify the element read in */
|
2007-07-04 04:20:34 +08:00
|
|
|
|
should_be = odd ? odd_val : even_val;
|
|
|
|
|
if(verify_rtn((unsigned)__LINE__, hs_offset, val_rd, should_be) < 0) TEST_ERROR
|
2007-07-05 23:45:45 +08:00
|
|
|
|
|
|
|
|
|
/* Release any VL components */
|
|
|
|
|
if(H5Dvlen_reclaim(dtype, mspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Clear the read buffer */
|
|
|
|
|
HDmemset(val_rd, 0, val_size);
|
2007-07-04 02:50:24 +08:00
|
|
|
|
} /* end for */
|
|
|
|
|
if(H5Sclose(mspace) < 0) TEST_ERROR
|
|
|
|
|
|
2007-07-05 23:45:45 +08:00
|
|
|
|
|
|
|
|
|
/* Shrink the dataset to half of it's maximum size, plus 1/2 of a chunk */
|
|
|
|
|
for(i = 0; i < 5; i++)
|
|
|
|
|
extend_size[i] = (max_size[i] / 2) + (ch_size[i] / 2);
|
|
|
|
|
if(H5Dset_extent(dset, extend_size) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Re-open file dataspace */
|
|
|
|
|
if(H5Sclose(fspace) < 0) TEST_ERROR
|
|
|
|
|
if((fspace = H5Dget_space(dset)) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Read some data and make sure it's the right value */
|
|
|
|
|
if((mspace = H5Screate_simple(5, one, NULL)) < 0) TEST_ERROR
|
|
|
|
|
for(i = 0; i < 1000; i++) {
|
|
|
|
|
/* Set offset for random element */
|
|
|
|
|
for(j = 0, odd = 0; j < 5; j++) {
|
|
|
|
|
hs_offset[j] = rand() % extend_size[j];
|
|
|
|
|
if(hs_offset[j] >= start_size[j])
|
|
|
|
|
odd = 1;
|
|
|
|
|
else
|
|
|
|
|
odd += (unsigned)(hs_offset[j] % 2);
|
|
|
|
|
} /* end for */
|
|
|
|
|
|
|
|
|
|
/* Select the random element */
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Read the random element */
|
|
|
|
|
if(H5Dread(dset, dtype, mspace, fspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Verify the element read in */
|
|
|
|
|
should_be = odd ? odd_val : even_val;
|
|
|
|
|
if(verify_rtn((unsigned)__LINE__, hs_offset, val_rd, should_be) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Release any VL components */
|
|
|
|
|
if(H5Dvlen_reclaim(dtype, mspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Clear the read buffer */
|
|
|
|
|
HDmemset(val_rd, 0, val_size);
|
|
|
|
|
} /* end for */
|
|
|
|
|
if(H5Sclose(mspace) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Extend the dataset's size by one element, in a dimension that won't
|
|
|
|
|
* cause additional chunks to be needed */
|
|
|
|
|
extend_size[2] += 1;
|
|
|
|
|
if(H5Dset_extent(dset, extend_size) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Re-open file dataspace */
|
|
|
|
|
if(H5Sclose(fspace) < 0) TEST_ERROR
|
|
|
|
|
if((fspace = H5Dget_space(dset)) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Create dataspace for single element sized bufer */
|
|
|
|
|
if((mspace = H5Screate_simple(5, one, NULL)) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Set location for "top-most" element in dataset to write */
|
|
|
|
|
for(i = 0; i < 5; i++)
|
|
|
|
|
hs_offset[i] = extend_size[i] - 1;
|
|
|
|
|
|
|
|
|
|
/* Select the element */
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Write one element in a chunk that's 'partial' and overwrite a fill
|
|
|
|
|
* value that was initialized in the H5Dset_extent() routine. This will
|
|
|
|
|
* overwrite a fill-value element, which must be de-allocated properly or
|
|
|
|
|
* next read of another fill-value initialized element in this chunk will
|
|
|
|
|
* fail.
|
|
|
|
|
*/
|
|
|
|
|
if(H5Dwrite(dset, dtype, mspace, fspace, H5P_DEFAULT, buf) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Read value back in */
|
|
|
|
|
if(H5Dread(dset, dtype, mspace, fspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Verify the element read in is the value written out */
|
|
|
|
|
if(verify_rtn((unsigned)__LINE__, hs_offset, val_rd, buf) < 0) TEST_ERROR
|
2008-09-16 23:52:51 +08:00
|
|
|
|
|
2008-06-26 23:50:13 +08:00
|
|
|
|
/* Set the element back to fillval */
|
|
|
|
|
if(H5Dwrite(dset, dtype, mspace, fspace, H5P_DEFAULT, fillval) < 0) TEST_ERROR
|
2007-07-05 23:45:45 +08:00
|
|
|
|
|
|
|
|
|
/* Release any VL components */
|
|
|
|
|
if(H5Dvlen_reclaim(dtype, mspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Clear the read buffer */
|
|
|
|
|
HDmemset(val_rd, 0, val_size);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Set location for another element initialized by H5Dset_extent() */
|
|
|
|
|
hs_offset[3] -= 1;
|
|
|
|
|
|
|
|
|
|
/* Select the element */
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Read value back in */
|
|
|
|
|
if(H5Dread(dset, dtype, mspace, fspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Verify the element read in is the fill-value */
|
|
|
|
|
if(verify_rtn((unsigned)__LINE__, hs_offset, val_rd, fillval) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Release any VL components */
|
|
|
|
|
if(H5Dvlen_reclaim(dtype, mspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Clear the read buffer */
|
|
|
|
|
HDmemset(val_rd, 0, val_size);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Read some data and make sure it's the right value */
|
|
|
|
|
for(i = 0; i < 1000; i++) {
|
|
|
|
|
/* Set offset for random element */
|
|
|
|
|
for(j = 0, odd = 0; j < 5; j++) {
|
|
|
|
|
hs_offset[j] = rand() % extend_size[j];
|
|
|
|
|
if(hs_offset[j] >= start_size[j])
|
|
|
|
|
odd = 1;
|
|
|
|
|
else
|
|
|
|
|
odd += (unsigned)(hs_offset[j] % 2);
|
|
|
|
|
} /* end for */
|
|
|
|
|
|
|
|
|
|
/* Select the random element */
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Read the random element */
|
|
|
|
|
if(H5Dread(dset, dtype, mspace, fspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Verify the element read in */
|
|
|
|
|
should_be = odd ? odd_val : even_val;
|
|
|
|
|
if(verify_rtn((unsigned)__LINE__, hs_offset, val_rd, should_be) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Release any VL components */
|
|
|
|
|
if(H5Dvlen_reclaim(dtype, mspace, H5P_DEFAULT, val_rd) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Clear the read buffer */
|
|
|
|
|
HDmemset(val_rd, 0, val_size);
|
|
|
|
|
} /* end for */
|
|
|
|
|
if(H5Sclose(mspace) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Release elements & memory buffer */
|
|
|
|
|
for(i = 0; i < nelmts; i++)
|
|
|
|
|
release_rtn((void *)((char *)buf + (val_size * i)));
|
|
|
|
|
HDfree(buf);
|
|
|
|
|
buf = NULL;
|
|
|
|
|
|
|
|
|
|
/* Cleanup IDs */
|
2007-07-04 03:20:02 +08:00
|
|
|
|
if(H5Pclose(dcpl) < 0) TEST_ERROR
|
2007-07-04 02:50:24 +08:00
|
|
|
|
if(H5Dclose(dset) < 0) TEST_ERROR
|
|
|
|
|
if(H5Sclose(fspace) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
2007-07-04 03:20:02 +08:00
|
|
|
|
if(buf)
|
|
|
|
|
HDfree(buf);
|
2007-07-04 02:50:24 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
2007-07-04 03:20:02 +08:00
|
|
|
|
H5Pclose(dcpl);
|
2007-07-04 02:50:24 +08:00
|
|
|
|
H5Dclose(dset);
|
|
|
|
|
H5Sclose(fspace);
|
|
|
|
|
H5Sclose(mspace);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
|
|
|
|
|
return -1;
|
|
|
|
|
} /* end test_extend_cases() */
|
|
|
|
|
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_extend
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Test that filling works okay when a dataset is extended.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
|
|
|
|
* Failure: number of errors
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Monday, October 5, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
1999-06-15 22:58:25 +08:00
|
|
|
|
test_extend(hid_t fapl, const char *base_name, H5D_layout_t layout)
|
1998-10-06 05:01:10 +08:00
|
|
|
|
{
|
2007-07-05 23:45:45 +08:00
|
|
|
|
hid_t file = -1; /* File ID */
|
|
|
|
|
hid_t dcpl = -1; /* Dataset creation property list ID */
|
|
|
|
|
hid_t cmpd_vl_tid = -1; /* Compound+vl datatype ID */
|
2007-07-21 14:00:44 +08:00
|
|
|
|
hsize_t start_size[5] = {8, 8, 8, 4, 2};
|
|
|
|
|
hsize_t max_size[5] = {32, 32, 32, 16, 8};
|
|
|
|
|
hsize_t ch_size[5] = {1, 8, 8, 4, 2};
|
1998-10-06 05:01:10 +08:00
|
|
|
|
#ifdef NO_FILLING
|
2007-07-05 23:45:45 +08:00
|
|
|
|
int fillval_i = 0;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
#else
|
2007-07-05 23:45:45 +08:00
|
|
|
|
int fillval_i = 0x4c70f1cd;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
#endif
|
2007-07-05 23:45:45 +08:00
|
|
|
|
comp_vl_datatype fillval_c = {32, "foo", "bar", 64}; /* Fill value for compound+vl datatype tests */
|
1998-11-24 04:40:35 +08:00
|
|
|
|
char filename[1024];
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
2007-07-04 02:50:24 +08:00
|
|
|
|
/* Print testing message */
|
|
|
|
|
if(H5D_CHUNKED == layout)
|
|
|
|
|
TESTING("chunked dataset extend")
|
|
|
|
|
else
|
|
|
|
|
TESTING("contiguous dataset extend")
|
|
|
|
|
|
|
|
|
|
/* Create dataset creation property list */
|
|
|
|
|
if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR
|
|
|
|
|
if(H5D_CHUNKED == layout)
|
|
|
|
|
if(H5Pset_chunk(dcpl, 5, ch_size) < 0) TEST_ERROR
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
|
|
|
|
#if 1
|
|
|
|
|
/*
|
|
|
|
|
* Remove this once contiguous datasets can support extensions in other
|
|
|
|
|
* than the slowest varying dimension. The purpose of this block is to
|
|
|
|
|
* make only the slowest varying dimension extendible and yet have the
|
|
|
|
|
* same total number of elements as originally.
|
|
|
|
|
*
|
|
|
|
|
* If this is removed prematurely then you will get an error `only the
|
|
|
|
|
* first dimension can be extendible' as long as the test isn't skipped
|
|
|
|
|
* below.
|
|
|
|
|
*/
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5D_CONTIGUOUS==layout) {
|
2007-07-04 03:20:02 +08:00
|
|
|
|
max_size[0] = (max_size[0] * max_size[1] * max_size[2] *
|
|
|
|
|
max_size[3] * max_size[4]) /
|
|
|
|
|
(start_size[1] * start_size[2] * start_size[3] * start_size[4]);
|
|
|
|
|
max_size[1] = start_size[1];
|
|
|
|
|
max_size[2] = start_size[2];
|
|
|
|
|
max_size[3] = start_size[3];
|
|
|
|
|
max_size[4] = start_size[4];
|
1998-10-06 05:01:10 +08:00
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#if 1
|
|
|
|
|
/*
|
|
|
|
|
* Remove this once internal contiguous datasets can support
|
|
|
|
|
* extending. If it's removed prematurely you will get an error
|
|
|
|
|
* `extendible contiguous non-external dataset' as long as the test isn't
|
|
|
|
|
* skipped below.
|
|
|
|
|
*/
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5D_CONTIGUOUS==layout) {
|
2007-07-04 02:50:24 +08:00
|
|
|
|
int fd;
|
|
|
|
|
hsize_t nelmts;
|
|
|
|
|
|
1998-10-06 05:01:10 +08:00
|
|
|
|
nelmts = max_size[0]*max_size[1]*max_size[2]*max_size[3]*max_size[4];
|
[svn-r15150] Purpose: Separate Windows function macro definitions to win32defs.h
Description:
In library code, we try not to use system calls directly, but instead use the HD{function} macro instead. This way, we can map special versions of the call on particular systems. Previously, it was all done in H5private.h. However, in an effort to clean up platform-specific definitions, we move all of the Windows macros into a separate file, win32defs.h. This way, we can use the non-Posix versions that Visual Studio sends warnings about.
Some macros are set specifically in the platform-specific header files. Then, any macros left unset will be set by the "default" implementation in H5private.h.
This checkin also cleans up various source files to use the HD* macros when possible.
Tested:
VS2005 on WinXP
VS.NET on WinXP
h5committest (kagiso, linew, smirom)
2008-06-06 02:52:19 +08:00
|
|
|
|
if((fd=HDopen(FILE_NAME_RAW, O_RDWR|O_CREAT|O_TRUNC, 0666)) < 0 ||
|
|
|
|
|
HDclose(fd) < 0) goto error;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pset_external(dcpl, FILE_NAME_RAW, (off_t)0, (hsize_t)nelmts*sizeof(int)) < 0)
|
1998-10-06 05:01:10 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#if 1
|
|
|
|
|
/*
|
|
|
|
|
* Remove this when contiguous datasets can be exended to some
|
|
|
|
|
* predetermined fininte size, even if it's just in the slowest varying
|
|
|
|
|
* dimension. If it's removed prematurely then you'll get one of the
|
|
|
|
|
* errors described above or `unable to select fill value region'.
|
|
|
|
|
*/
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5D_CONTIGUOUS==layout) {
|
1998-11-24 04:40:35 +08:00
|
|
|
|
SKIPPED();
|
|
|
|
|
puts(" Not implemented yet -- needs H5S_SELECT_DIFF operator");
|
1999-01-07 19:42:04 +08:00
|
|
|
|
goto skip;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
}
|
|
|
|
|
#endif
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-10-06 05:01:10 +08:00
|
|
|
|
/* Create a file and dataset */
|
1999-06-15 22:58:25 +08:00
|
|
|
|
h5_fixname(base_name, fapl, filename, sizeof filename);
|
2007-07-04 03:20:02 +08:00
|
|
|
|
if((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
2007-07-05 23:45:45 +08:00
|
|
|
|
/* Get the compound+vl datatype */
|
|
|
|
|
if((cmpd_vl_tid = create_compound_vl_type()) < 0) TEST_ERROR
|
|
|
|
|
|
2007-07-04 02:50:24 +08:00
|
|
|
|
/* Test integer datatype case */
|
2007-07-05 23:45:45 +08:00
|
|
|
|
if(test_extend_cases(file, dcpl, "dset1", ch_size, start_size, max_size,
|
|
|
|
|
H5T_NATIVE_INT, &fillval_i) < 0) TEST_ERROR
|
|
|
|
|
|
|
|
|
|
/* Test compound+vl datatype datatype case */
|
|
|
|
|
if(test_extend_cases(file, dcpl, "dset2", ch_size, start_size, max_size,
|
|
|
|
|
cmpd_vl_tid, &fillval_c) < 0) TEST_ERROR
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
2007-07-04 02:50:24 +08:00
|
|
|
|
/* Cleanup */
|
2007-07-05 23:45:45 +08:00
|
|
|
|
if(H5Tclose(cmpd_vl_tid) < 0) TEST_ERROR
|
2007-07-04 03:20:02 +08:00
|
|
|
|
if(H5Pclose(dcpl) < 0) TEST_ERROR
|
|
|
|
|
if(H5Fclose(file) < 0) TEST_ERROR
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
1998-11-24 04:40:35 +08:00
|
|
|
|
PASSED();
|
2007-07-04 02:50:24 +08:00
|
|
|
|
|
1998-10-06 05:01:10 +08:00
|
|
|
|
return 0;
|
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
error:
|
1998-10-06 05:01:10 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
2007-07-05 23:45:45 +08:00
|
|
|
|
H5Tclose(cmpd_vl_tid);
|
1998-10-06 05:01:10 +08:00
|
|
|
|
H5Pclose(dcpl);
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return 1;
|
1999-01-07 19:42:04 +08:00
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
skip:
|
1999-01-07 19:42:04 +08:00
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Pclose(dcpl);
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return 0;
|
2007-07-04 02:50:24 +08:00
|
|
|
|
} /* end test_extend() */
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
2007-07-04 03:20:02 +08:00
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_compatible
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests fill value and dataspace for datasets created by v1.4
|
|
|
|
|
* library.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
|
|
|
|
* Failure: number of errors
|
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Programmer: Raymond Lu
|
|
|
|
|
* Feb 27, 2002
|
2002-04-12 06:53:26 +08:00
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
2009-03-11 03:00:39 +08:00
|
|
|
|
test_compatible(void)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
{
|
[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
|
|
|
|
hid_t file=-1, dset1=-1, dset2=-1;
|
|
|
|
|
hid_t dcpl1=-1, dcpl2=-1, fspace=-1, mspace=-1;
|
|
|
|
|
int rd_fill=0, fill_val=4444, val_rd=0;
|
|
|
|
|
hsize_t dims[2], one[2]={1,1};
|
|
|
|
|
hsize_t hs_offset[2]={3,4};
|
|
|
|
|
H5D_fill_value_t status;
|
2010-03-18 05:38:20 +08:00
|
|
|
|
const char *testfile = H5_get_srcdir_filename(FILE_COMPATIBLE); /* Corrected test file name */
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
[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
|
|
|
|
TESTING("contiguous dataset compatibility with v. 1.4");
|
2002-04-13 05:08:48 +08:00
|
|
|
|
|
[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
|
|
|
|
if((file = H5Fopen(testfile, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) {
|
2002-10-31 21:40:24 +08:00
|
|
|
|
printf(" Could not open file %s. Try set $srcdir to point at the "
|
[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
|
|
|
|
"source directory of test\n", testfile);
|
2002-10-31 21:40:24 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset1 = H5Dopen2(file, "dset1", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if((dcpl1 = H5Dget_create_plist(dset1)) < 0) goto error;
|
|
|
|
|
if(H5Pfill_value_defined(dcpl1, &status) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
if(status != H5D_FILL_VALUE_UNDEFINED) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got a different fill value than what was set.",__LINE__);
|
2005-08-14 04:53:35 +08:00
|
|
|
|
printf(" Got status=%ld, suppose to be H5D_FILL_VALUE_UNDEFINED\n",
|
[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
|
|
|
|
(long)status);
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((fspace = H5Dget_space(dset1)) < 0) goto error;
|
|
|
|
|
if(H5Sget_simple_extent_dims(fspace, dims, NULL) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
if(dims[0] != 8 || dims[1] != 8) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got a different dimension size than what was set.");
|
|
|
|
|
printf(" Got dims[0]=%ld, dims[1]=%ld, set 8x8\n", (long)dims[0], (long)dims[1]);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((mspace = H5Screate_simple(2, one, NULL)) < 0) goto error;
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dread(dset1, H5T_NATIVE_INT, mspace, fspace, H5P_DEFAULT, &val_rd) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(val_rd != 0) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got a different value than what was set.");
|
|
|
|
|
printf(" Got %ld, set 0\n", (long)val_rd);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pclose(dcpl1) < 0) goto error;
|
|
|
|
|
if(H5Sclose(fspace) < 0) goto error;
|
|
|
|
|
if(H5Sclose(mspace) < 0) goto error;
|
|
|
|
|
if(H5Dclose(dset1) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((dset2 = H5Dopen2(file, "dset2", H5P_DEFAULT)) < 0) goto error;
|
|
|
|
|
if((dcpl2 = H5Dget_create_plist(dset2)) < 0) goto error;
|
|
|
|
|
if(H5Pfill_value_defined(dcpl2, &status) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
if(status != H5D_FILL_VALUE_USER_DEFINED) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got a different fill value than what was set.",__LINE__);
|
|
|
|
|
printf(" Got status=%ld, suppose to be H5D_FILL_VALUE_USER_DEFINED\n",
|
|
|
|
|
(long)status);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pget_fill_value(dcpl2, H5T_NATIVE_INT, &rd_fill) < 0) goto error;
|
|
|
|
|
if(rd_fill != fill_val) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
printf(" %d: Got a different fill value than what was set.",__LINE__);
|
|
|
|
|
printf(" Got %ld, set %ld\n", (long)rd_fill, (long)fill_val);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
fspace = -1;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((fspace = H5Dget_space(dset2)) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
dims[0] = dims[1] = (hsize_t)-1;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Sget_simple_extent_dims(fspace, dims, NULL) < 0) goto error;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
if(dims[0] != 8 || dims[1] != 8) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got a different dimension size than what was set.");
|
|
|
|
|
printf(" Got dims[0]=%ld, dims[1]=%ld, set 8x8\n", (long)dims[0], (long)dims[1]);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if((mspace=H5Screate_simple(2, one, NULL)) < 0) goto error;
|
|
|
|
|
if(H5Sselect_hyperslab(fspace, H5S_SELECT_SET, hs_offset, NULL, one, NULL) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Dread(dset2, H5T_NATIVE_INT, mspace, fspace, H5P_DEFAULT, &val_rd) < 0)
|
2002-04-12 06:53:26 +08:00
|
|
|
|
goto error;
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(val_rd != fill_val) {
|
2002-04-12 06:53:26 +08:00
|
|
|
|
H5_FAILED();
|
|
|
|
|
puts(" Got a different value than what was set.");
|
|
|
|
|
printf(" Got %ld, set %ld\n", (long)val_rd, (long)fill_val);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Pclose(dcpl2) < 0) goto error;
|
|
|
|
|
if(H5Sclose(fspace) < 0) goto error;
|
|
|
|
|
if(H5Sclose(mspace) < 0) goto error;
|
|
|
|
|
if(H5Dclose(dset2) < 0) goto error;
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
[svn-r14193] Description:
Make H5Dopen versioned and change all internal usage to use H5Dopen2
Add simple regression test for H5Dopen1
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (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/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-09 03:59:36 +08:00
|
|
|
|
if(H5Fclose(file) < 0) goto 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
|
|
|
|
|
2002-04-12 06:53:26 +08:00
|
|
|
|
PASSED();
|
[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
|
|
|
|
|
|
|
|
|
return 0;
|
2002-04-12 06:53:26 +08:00
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Pclose(dcpl1);
|
|
|
|
|
H5Sclose(fspace);
|
|
|
|
|
H5Sclose(mspace);
|
|
|
|
|
H5Dclose(dset1);
|
|
|
|
|
H5Pclose(dcpl2);
|
|
|
|
|
H5Sclose(fspace);
|
|
|
|
|
H5Dclose(dset2);
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
2013-05-03 03:19:06 +08:00
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_partalloc_cases
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests fill values read and write for datasets.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
|
|
|
|
* Failure: 1
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Joel Plutchak
|
|
|
|
|
* April 15, 2013
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
* This function is called by test_rdwr to write and read
|
|
|
|
|
* dataset for different cases of chunked datasets with
|
|
|
|
|
* unallocated chunks.
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
static int
|
|
|
|
|
test_partalloc_cases(hid_t file, hid_t dcpl, const char *dname, H5D_fill_time_t fill_time)
|
|
|
|
|
{
|
|
|
|
|
hid_t fspace=-1, dset1=-1, rspace = -1;
|
|
|
|
|
herr_t ret;
|
|
|
|
|
hsize_t ds_size[2] = {4, 4};
|
|
|
|
|
hsize_t max_size[2] = {H5S_UNLIMITED,4};
|
|
|
|
|
hsize_t chunk_size[2] = {1, 4};
|
|
|
|
|
int fillval=(-1);
|
|
|
|
|
int w_values[] = {42}; /* New value to be written */
|
|
|
|
|
int f_values[4] = {88,88,88,88}; /* pre-seed read buffer with known values */
|
|
|
|
|
int r_values[4] = {88,88,88,88}; /* pre-seed read buffer with known values */
|
|
|
|
|
hsize_t coord[1][2]; /* coordinate(s) of point to write */
|
|
|
|
|
hsize_t start[2], count[2];
|
|
|
|
|
|
|
|
|
|
fillval = 0; /* default fill value is zero */
|
|
|
|
|
|
|
|
|
|
/* Create dataset with 4x4 integer dataset */
|
|
|
|
|
if((fspace = H5Screate_simple(2, ds_size, max_size)) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
if((dset1 = H5Dcreate2(file, dname, H5T_NATIVE_INT, fspace, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Select a point in the file dataspace.
|
|
|
|
|
*/
|
|
|
|
|
coord[0][0]=0; coord[0][1]=0;
|
|
|
|
|
if (H5Sselect_elements( fspace, H5S_SELECT_SET, (size_t)1, (const hsize_t *)coord))
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Write single data point to the dataset.
|
|
|
|
|
*/
|
|
|
|
|
if ((ret = H5Dwrite(dset1, H5T_NATIVE_INT, H5S_ALL, fspace, H5P_DEFAULT, w_values))< 0) {
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Read a line/chunk and make sure values are right */
|
|
|
|
|
rspace = H5Screate_simple(2, chunk_size, NULL);
|
|
|
|
|
|
|
|
|
|
/* Read the first row of elements: one known plus three fill */
|
|
|
|
|
start[0] = 0;
|
|
|
|
|
start[1] = 0;
|
|
|
|
|
count[0] = 1;
|
|
|
|
|
count[1] = 4;
|
|
|
|
|
if ((ret = H5Sselect_hyperslab(fspace, H5S_SELECT_SET, start, NULL, count, NULL)) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
if ((ret = H5Sselect_all(rspace)) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
if(H5Dread(dset1, H5T_NATIVE_INT, rspace, fspace, H5P_DEFAULT, &r_values) < 0)
|
|
|
|
|
goto error;
|
2013-05-03 23:39:44 +08:00
|
|
|
|
|
2013-05-03 03:19:06 +08:00
|
|
|
|
/* Read the third row of elements: all fill */
|
|
|
|
|
start[0] = 2;
|
|
|
|
|
start[1] = 0;
|
|
|
|
|
count[0] = 1;
|
|
|
|
|
count[1] = 4;
|
|
|
|
|
if ((ret = H5Sselect_hyperslab(fspace, H5S_SELECT_SET, start, NULL, count, NULL)) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
if(H5Dread(dset1, H5T_NATIVE_INT, rspace, fspace, H5P_DEFAULT, &f_values) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
if(fill_time != H5D_FILL_TIME_NEVER) {
|
|
|
|
|
/* check allocated chunk */
|
|
|
|
|
if ((r_values[0] != w_values[0]) ||
|
|
|
|
|
(r_values[1] != fillval) ||
|
|
|
|
|
(r_values[2] != fillval) ||
|
|
|
|
|
(r_values[3] != fillval)) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
HDfprintf(stdout, "%u: Allocated chunk value read was not correct.\n", (unsigned)__LINE__);
|
|
|
|
|
printf(" {%ld,%ld,%ld,%ld} should be {%ld,%ld,%ld,%ld}\n",
|
|
|
|
|
(long)r_values[0], (long)r_values[1],
|
|
|
|
|
(long)r_values[2], (long)r_values[3],
|
|
|
|
|
(long)w_values[0], (long)fillval,
|
|
|
|
|
(long)fillval, (long)fillval );
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
/* check unallocated chunk */
|
|
|
|
|
if ((f_values[0] != fillval) ||
|
|
|
|
|
(f_values[1] != fillval) ||
|
|
|
|
|
(f_values[2] != fillval) ||
|
|
|
|
|
(f_values[3] != fillval)) {
|
|
|
|
|
H5_FAILED();
|
|
|
|
|
HDfprintf(stdout, "%u: Unallocated chunk value read was not correct.\n", (unsigned)__LINE__);
|
|
|
|
|
printf(" {%ld,%ld,%ld,%ld} should be {%ld,%ld,%ld,%ld}\n",
|
|
|
|
|
(long)f_values[0], (long)f_values[1],
|
|
|
|
|
(long)f_values[2], (long)f_values[3],
|
|
|
|
|
(long)fillval, (long)fillval,
|
|
|
|
|
(long)fillval, (long)fillval );
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
/* for the "never fill" case expect to get trash values, so skip */
|
|
|
|
|
}
|
|
|
|
|
else if(fill_time == H5D_FILL_TIME_NEVER) {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if(H5Sclose(rspace) < 0) goto error;
|
|
|
|
|
if(H5Dclose(dset1) < 0) goto error;
|
|
|
|
|
if(H5Sclose(fspace) < 0) goto error;
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Dclose(dset1);
|
|
|
|
|
H5Sclose(fspace);
|
|
|
|
|
H5Sclose(rspace);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_partalloc
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests fill values for chunked, partially-allocated datasets.
|
|
|
|
|
* Regression test for HDFFV-8247.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
|
|
|
|
* Failure: number of errors
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Joel Plutchak
|
|
|
|
|
* April 15, 2013
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
|
|
|
|
test_partalloc(hid_t fapl, const char *base_name)
|
|
|
|
|
{
|
|
|
|
|
char filename[1024];
|
|
|
|
|
hid_t file=-1, dcpl=-1;
|
|
|
|
|
hsize_t ch_size[2] = {1, 4};
|
|
|
|
|
int nerrors=0;
|
|
|
|
|
|
|
|
|
|
TESTING("chunked dataset partially allocated I/O");
|
|
|
|
|
|
|
|
|
|
h5_fixname(base_name, fapl, filename, sizeof filename);
|
|
|
|
|
if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
|
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
|
|
if((dcpl=H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
|
|
|
|
|
if(H5Pset_chunk(dcpl, 2, ch_size) < 0) goto error;
|
|
|
|
|
|
|
|
|
|
/* I. Test H5D_ALLOC_TIME_LATE space allocation cases */
|
|
|
|
|
if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_LATE) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, "\nALLOC_TIME_LATE\n" );
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, " FILL_TIME_ALLOC\n" );
|
|
|
|
|
#endif
|
|
|
|
|
nerrors += test_partalloc_cases(file, dcpl, "dset1", H5D_FILL_TIME_ALLOC);
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_NEVER as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, " FILL_TIME_NEVER\n" );
|
|
|
|
|
#endif
|
|
|
|
|
nerrors += test_partalloc_cases(file, dcpl, "dset2", H5D_FILL_TIME_NEVER );
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_IFSET as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_IFSET) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, " FILL_TIME_IFSET\n" );
|
|
|
|
|
#endif
|
|
|
|
|
nerrors += test_partalloc_cases(file, dcpl, "dset3", H5D_FILL_TIME_IFSET );
|
|
|
|
|
|
|
|
|
|
/* II. Test H5D_ALLOC_TIME_INCR space allocation cases */
|
|
|
|
|
if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_INCR) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, "\nALLOC_TIME_INCR\n" );
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, " FILL_TIME_ALLOC\n" );
|
|
|
|
|
#endif
|
|
|
|
|
nerrors += test_partalloc_cases(file, dcpl, "dset4", H5D_FILL_TIME_ALLOC );
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_NEVER as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, " FILL_TIME_NEVER\n" );
|
|
|
|
|
#endif
|
|
|
|
|
nerrors += test_partalloc_cases(file, dcpl, "dset5", H5D_FILL_TIME_NEVER );
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_IFSET as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_IFSET) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, " FILL_TIME_IFSET\n" );
|
|
|
|
|
#endif
|
|
|
|
|
nerrors += test_partalloc_cases(file, dcpl, "dset6", H5D_FILL_TIME_IFSET );
|
|
|
|
|
|
|
|
|
|
/* III. Test H5D_ALLOC_TIME_EARLY space allocation cases */
|
|
|
|
|
if(H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, "\nALLOC_TIME_EARLY\n" );
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_ALLOC as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, " FILL_TIME_ALLOC\n" );
|
|
|
|
|
#endif
|
|
|
|
|
nerrors += test_partalloc_cases(file, dcpl, "dset7", H5D_FILL_TIME_ALLOC );
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_NEVER as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_NEVER) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, " FILL_TIME_NEVER\n" );
|
|
|
|
|
#endif
|
|
|
|
|
nerrors += test_partalloc_cases(file, dcpl, "dset8", H5D_FILL_TIME_NEVER );
|
|
|
|
|
|
|
|
|
|
/* case for H5D_FILL_TIME_IFSET as fill write time and fill value to be default */
|
|
|
|
|
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_IFSET) < 0) goto error;
|
|
|
|
|
#ifdef DEBUG
|
|
|
|
|
fprintf( stdout, " FILL_TIME_IFSET\n" );
|
|
|
|
|
#endif
|
|
|
|
|
nerrors += test_partalloc_cases(file, dcpl, "dset9", H5D_FILL_TIME_IFSET );
|
|
|
|
|
|
|
|
|
|
if(nerrors)
|
|
|
|
|
goto error;
|
|
|
|
|
if(H5Pclose(dcpl) < 0) goto error;
|
|
|
|
|
if(H5Fclose(file) < 0) goto error;
|
|
|
|
|
PASSED();
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Pclose(dcpl);
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return nerrors;
|
|
|
|
|
}
|
|
|
|
|
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: main
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests fill values
|
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Return: Success:
|
1998-10-06 05:01:10 +08:00
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Failure:
|
1998-10-06 05:01:10 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Thursday, October 1, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
int
|
|
|
|
|
main(int argc, char *argv[])
|
|
|
|
|
{
|
[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
|
|
|
|
int nerrors=0, argno, test_contig=1, test_chunk=1, test_compact=1;
|
|
|
|
|
hid_t fapl = (-1), fapl2 = (-1); /* File access property lists */
|
2015-08-22 06:44:22 +08:00
|
|
|
|
hbool_t new_format; /* Whether to use the new format or not */
|
[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
|
|
|
|
|
|
|
|
|
if(argc >= 2) {
|
|
|
|
|
test_contig = test_chunk = test_compact = 0;
|
|
|
|
|
for(argno = 1; argno < argc; argno++) {
|
|
|
|
|
if(!strcmp(argv[argno], "contiguous"))
|
|
|
|
|
test_contig = 1;
|
|
|
|
|
else if(!strcmp(argv[argno], "chunked"))
|
|
|
|
|
test_chunk = 1;
|
|
|
|
|
else if(!strcmp(argv[argno], "compact"))
|
|
|
|
|
test_compact =1;
|
|
|
|
|
else {
|
|
|
|
|
fprintf(stderr, "usage: %s [contiguous] [chunked] [compact]\n", argv[0]);
|
|
|
|
|
exit(1);
|
|
|
|
|
}
|
|
|
|
|
} /* end for */
|
|
|
|
|
} /* end if */
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
[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
|
|
|
|
h5_reset();
|
|
|
|
|
fapl = h5_fileaccess();
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
[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
|
|
|
|
/* Property list tests */
|
|
|
|
|
nerrors += test_getset();
|
|
|
|
|
nerrors += test_getset_vl(fapl);
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
[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
|
|
|
|
/* Copy the file access property list */
|
|
|
|
|
if((fapl2 = H5Pcopy(fapl)) < 0) TEST_ERROR
|
2006-10-11 04:36:33 +08:00
|
|
|
|
|
[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
|
|
|
|
/* Set the "use the latest version of the format" bounds for creating objects in the file */
|
|
|
|
|
if(H5Pset_libver_bounds(fapl2, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0) TEST_ERROR
|
2006-10-11 04:36:33 +08:00
|
|
|
|
|
[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
|
|
|
|
/* Loop over using new group format */
|
|
|
|
|
for(new_format = FALSE; new_format <= TRUE; new_format++) {
|
|
|
|
|
hid_t my_fapl;
|
2006-10-11 04:36:33 +08:00
|
|
|
|
|
[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
|
|
|
|
/* Set the FAPL for the type of format */
|
|
|
|
|
if(new_format) {
|
|
|
|
|
puts("\nTesting with new file format:");
|
|
|
|
|
my_fapl = fapl2;
|
|
|
|
|
} /* end if */
|
|
|
|
|
else {
|
|
|
|
|
puts("Testing with old file format:");
|
|
|
|
|
my_fapl = fapl;
|
|
|
|
|
} /* end else */
|
|
|
|
|
|
|
|
|
|
/* Chunked storage layout tests */
|
|
|
|
|
if(test_chunk) {
|
|
|
|
|
nerrors += test_create(my_fapl, FILENAME[0], H5D_CHUNKED);
|
|
|
|
|
nerrors += test_rdwr (my_fapl, FILENAME[2], H5D_CHUNKED);
|
|
|
|
|
nerrors += test_extend(my_fapl, FILENAME[4], H5D_CHUNKED);
|
2013-05-03 03:19:06 +08:00
|
|
|
|
nerrors += test_partalloc(my_fapl, FILENAME[8]);
|
[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
|
|
|
|
} /* end if */
|
2006-10-11 04:36:33 +08:00
|
|
|
|
|
[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
|
|
|
|
/* Contiguous storage layout tests */
|
|
|
|
|
if(test_contig) {
|
|
|
|
|
nerrors += test_create(my_fapl, FILENAME[1], H5D_CONTIGUOUS);
|
|
|
|
|
nerrors += test_rdwr (my_fapl, FILENAME[3], H5D_CONTIGUOUS);
|
|
|
|
|
nerrors += test_extend(my_fapl, FILENAME[5], H5D_CONTIGUOUS);
|
2009-03-11 03:00:39 +08:00
|
|
|
|
nerrors += test_compatible();
|
[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
|
|
|
|
} /* end if */
|
2006-10-11 04:36:33 +08:00
|
|
|
|
|
[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
|
|
|
|
/* Compact dataset storage tests */
|
|
|
|
|
if(test_compact) {
|
|
|
|
|
nerrors += test_create(my_fapl, FILENAME[6], H5D_COMPACT);
|
|
|
|
|
nerrors += test_rdwr (my_fapl, FILENAME[7], H5D_COMPACT);
|
|
|
|
|
} /* end if */
|
|
|
|
|
} /* end for */
|
2006-10-11 04:36:33 +08:00
|
|
|
|
|
[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
|
|
|
|
/* Close 2nd FAPL */
|
|
|
|
|
H5Pclose(fapl2);
|
|
|
|
|
|
2011-04-16 06:05:23 +08:00
|
|
|
|
/* Verify symbol table messages are cached */
|
|
|
|
|
nerrors += (h5_verify_cached_stabs(FILENAME, fapl) < 0 ? 1 : 0);
|
|
|
|
|
|
[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
|
|
|
|
if(nerrors)
|
|
|
|
|
goto error;
|
|
|
|
|
puts("All fill value tests passed.");
|
|
|
|
|
|
|
|
|
|
if(h5_cleanup(FILENAME, fapl))
|
2009-01-30 02:18:39 +08:00
|
|
|
|
HDremove(FILE_NAME_RAW);
|
1998-10-06 05:01:10 +08:00
|
|
|
|
|
2006-10-11 04:36:33 +08:00
|
|
|
|
return 0;
|
2006-08-01 03:46:16 +08:00
|
|
|
|
|
2006-10-11 04:36:33 +08:00
|
|
|
|
error:
|
|
|
|
|
puts("***** FILL VALUE TESTS FAILED *****");
|
|
|
|
|
return 1;
|
1998-10-06 05:01:10 +08:00
|
|
|
|
}
|
2006-10-11 04:36:33 +08:00
|
|
|
|
|