summaryrefslogtreecommitdiffstats
path: root/test/cmpd_dset.c
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-04-30 19:23:26 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-04-30 19:23:26 (GMT)
commit5773fd34bc5adf59b4530d95ac9f0c0585902803 (patch)
tree456ad239799382e1f083fb7fc74399e43b471912 /test/cmpd_dset.c
parent0138995d1ce2068db1f790503435a2121132d3ad (diff)
downloadhdf5-5773fd34bc5adf59b4530d95ac9f0c0585902803.zip
hdf5-5773fd34bc5adf59b4530d95ac9f0c0585902803.tar.gz
hdf5-5773fd34bc5adf59b4530d95ac9f0c0585902803.tar.bz2
[svn-r14902] Merged fortran_1_8 branch changes r14505:14901 into the trunk. New fortran wrappers added.
Diffstat (limited to 'test/cmpd_dset.c')
-rw-r--r--test/cmpd_dset.c46
1 files changed, 23 insertions, 23 deletions
diff --git a/test/cmpd_dset.c b/test/cmpd_dset.c
index a03d37e..66993e0 100644
--- a/test/cmpd_dset.c
+++ b/test/cmpd_dset.c
@@ -1421,32 +1421,32 @@ test_hdf5_src_subset(char *filename, hid_t fapl)
/* Create xfer properties to preserve initialized data */
if((dxpl = H5Pcreate(H5P_DATASET_XFER)) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Pset_preserve(dxpl, TRUE) < 0)
- FAIL_STACK_ERROR
+ goto error;
/* Rewrite contiguous data set */
if((dataset = H5Dopen2(file, DSET_NAME[0], H5P_DEFAULT)) < 0)
- FAIL_STACK_ERROR
+ goto error;
/* Write the data to the dataset */
if(H5Dwrite(dataset, rew_tid, H5S_ALL, H5S_ALL, dxpl, rew_buf) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Dclose(dataset) < 0)
- FAIL_STACK_ERROR
+ goto error;
/* Rewrite chunked data set */
if((dataset = H5Dopen2(file, DSET_NAME[1], H5P_DEFAULT)) < 0)
- FAIL_STACK_ERROR
+ goto error;
/* Write the data to the dataset */
if(H5Dwrite(dataset, rew_tid, H5S_ALL, H5S_ALL, dxpl, rew_buf) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Dclose(dataset) < 0)
- FAIL_STACK_ERROR
+ goto error;
PASSED();
@@ -1458,48 +1458,48 @@ test_hdf5_src_subset(char *filename, hid_t fapl)
/* Check contiguous data set */
if((dataset = H5Dopen2(file, DSET_NAME[0], H5P_DEFAULT)) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Dread(dataset, dst_tid, H5S_ALL, H5S_ALL, dxpl, rbuf) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(compare_data(orig, rbuf, TRUE) < 0)
- TEST_ERROR
+ goto error;
if(H5Dclose(dataset) < 0)
- FAIL_STACK_ERROR
+ goto error;
/* Check chunked data set */
if((dataset = H5Dopen2(file, DSET_NAME[1], H5P_DEFAULT)) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Dread(dataset, dst_tid, H5S_ALL, H5S_ALL, dxpl, rbuf) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(compare_data(orig, rbuf, TRUE) < 0)
- TEST_ERROR
+ goto error;
if(H5Dclose(dataset) < 0)
- FAIL_STACK_ERROR
+ goto error;
/* Finishing test and release resources */
if(H5Sclose(space) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Pclose(dcpl) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Pclose(dxpl) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Tclose(src_tid) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Tclose(dst_tid) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Tclose(rew_tid) < 0)
- FAIL_STACK_ERROR
+ goto error;
if(H5Fclose(file) < 0)
- FAIL_STACK_ERROR
+ goto error;
free(orig);
free(rbuf);