[svn-r14117] Description:

	Move H5Glink() into "deprecated routines" section, replacing internal
usage with H5Lcreate_hard/H5Lcreate_soft.

Tested on:
	FreeBSD/32 6.2 (duty)
	FreeBSD/64 6.2 (liberty)
	Solaris/32 5.10 (linew)

1 files changed, 241 insertions, 242 deletions

diff --git a/test/getname.c b/test/getname.c
index 8348362..29085e0 100644
--- a/test/getname.c
+++ b/test/getname.c
@@ -188,10 +188,10 @@ test_main(hid_t file_id, hid_t fapl)
     TESTING("H5Iget_name with H5Dcreate");
 
     /* Create the dataspace  */
-    if((space_id = H5Screate_simple(1, dims, NULL))<0) TEST_ERROR
+    if((space_id = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
 
     /* Create a new dataset */
-    if((dataset_id = H5Dcreate(file_id , "d1", H5T_NATIVE_INT, space_id, H5P_DEFAULT))<0) TEST_ERROR
+    if((dataset_id = H5Dcreate(file_id , "d1", H5T_NATIVE_INT, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(dataset_id, "/d1", "/d1") < 0) TEST_ERROR
@@ -225,7 +225,7 @@ test_main(hid_t file_id, hid_t fapl)
     TESTING("H5Iget_name with H5Dopen");
 
     /* Reopen the dataset */
-    if((dataset_id = H5Dopen(file_id, "d1"))<0) TEST_ERROR
+    if((dataset_id = H5Dopen(file_id, "d1")) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(dataset_id, "/d1", "/d1") < 0) TEST_ERROR
@@ -264,8 +264,8 @@ test_main(hid_t file_id, hid_t fapl)
     if((group3_id = H5Gcreate2(file_id, "g2/bar/baz", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Create a dataset */
-    if((space_id = H5Screate_simple(1, dims, NULL))<0) TEST_ERROR
-    if((dataset_id = H5Dcreate(group3_id , "d1", H5T_NATIVE_INT, space_id, H5P_DEFAULT))<0) TEST_ERROR
+    if((space_id = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
+    if((dataset_id = H5Dcreate(group3_id , "d1", H5T_NATIVE_INT, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
 
     /* Close */
     H5Dclose(dataset_id);
@@ -275,7 +275,7 @@ test_main(hid_t file_id, hid_t fapl)
     H5Gclose(group3_id);
 
     /* Reopen the dataset */
-    if((dataset_id = H5Dopen(file_id, "/g2/bar/baz/d1"))<0) TEST_ERROR
+    if((dataset_id = H5Dopen(file_id, "/g2/bar/baz/d1")) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(dataset_id, "/g2/bar/baz/d1", "/g2/bar/baz/d1") < 0) TEST_ERROR
@@ -294,15 +294,15 @@ test_main(hid_t file_id, hid_t fapl)
     TESTING("H5Iget_name with H5Tcommit");
 
     /* Create a datatype */
-    if((type_id = H5Tcreate(H5T_COMPOUND, sizeof(s1_t)))<0) TEST_ERROR
+    if((type_id = H5Tcreate(H5T_COMPOUND, sizeof(s1_t))) < 0) TEST_ERROR
 
     /* Insert fields */
-    if(H5Tinsert(type_id, "a", HOFFSET(s1_t,a), H5T_NATIVE_INT)<0) TEST_ERROR
-    if(H5Tinsert(type_id, "b", HOFFSET(s1_t,b), H5T_NATIVE_INT)<0) TEST_ERROR
-    if(H5Tinsert(type_id, "c", HOFFSET(s1_t,c), H5T_NATIVE_FLOAT)<0) TEST_ERROR
+    if(H5Tinsert(type_id, "a", HOFFSET(s1_t,a), H5T_NATIVE_INT) < 0) TEST_ERROR
+    if(H5Tinsert(type_id, "b", HOFFSET(s1_t,b), H5T_NATIVE_INT) < 0) TEST_ERROR
+    if(H5Tinsert(type_id, "c", HOFFSET(s1_t,c), H5T_NATIVE_FLOAT) < 0) TEST_ERROR
 
     /* Save datatype for later */
-    if(H5Tcommit(file_id, "t1", type_id)<0) TEST_ERROR
+    if(H5Tcommit(file_id, "t1", type_id) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(type_id, "/t1", "/t1") < 0) TEST_ERROR
@@ -320,7 +320,7 @@ test_main(hid_t file_id, hid_t fapl)
     TESTING("H5Iget_name with H5Topen");
 
     /* Open the named datatype */
-    if((type_id=H5Topen(file_id, "t1"))<0) TEST_ERROR
+    if((type_id=H5Topen(file_id, "t1")) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(type_id, "/t1", "/t1") < 0) TEST_ERROR
@@ -364,10 +364,10 @@ test_main(hid_t file_id, hid_t fapl)
     TESTING("H5Iget_name with H5Gmove and H5Dopen");
 
     /* Reopen the dataset */
-    if((dataset_id = H5Dopen(file_id, "/d1"))<0) TEST_ERROR
+    if((dataset_id = H5Dopen(file_id, "/d1")) < 0) TEST_ERROR
 
     /* Rename dataset */
-    if(H5Gmove(file_id, "/d1", "/d1a")<0) TEST_ERROR
+    if(H5Gmove(file_id, "/d1", "/d1a") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(dataset_id, "/d1a", "/d1a") < 0) TEST_ERROR
@@ -388,10 +388,10 @@ test_main(hid_t file_id, hid_t fapl)
     TESTING("H5Iget_name with H5Gmove and H5Topen");
 
     /* Open the named datatype */
-    if((type_id=H5Topen(file_id, "/t1"))<0) TEST_ERROR
+    if((type_id=H5Topen(file_id, "/t1")) < 0) TEST_ERROR
 
     /* Rename datatype */
-    if(H5Gmove(file_id, "/t1", "/t1a")<0) TEST_ERROR
+    if(H5Gmove(file_id, "/t1", "/t1a") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(type_id, "/t1a", "/t1a") < 0) TEST_ERROR
@@ -471,19 +471,19 @@ test_main(hid_t file_id, hid_t fapl)
     if(check_name(group3_id, "/g4/A/B", "/g4/A/B") < 0) TEST_ERROR
 
     /* Move group "B" to "D"*/
-    if(H5Gmove(file_id, "/g4/A/B", "/g5/C/D")<0)  TEST_ERROR
+    if(H5Gmove(file_id, "/g4/A/B", "/g5/C/D") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group3_id, "/g5/C/D", "/g5/C/D") < 0) TEST_ERROR
 
     /* Move group "/g5/C/D" back to "/g4/A/B" using relative name */
-    if(H5Gmove2(group5_id, "D", group2_id, "B")<0)  TEST_ERROR
+    if(H5Gmove2(group5_id, "D", group2_id, "B") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group3_id, "/g4/A/B", "/g4/A/B") < 0) TEST_ERROR
 
     /* Move group "/g4/A/B" to "/g4/F/B" using relative name */
-    if(H5Gmove2(group_id, "A", group_id, "F")<0)  TEST_ERROR
+    if(H5Gmove2(group_id, "A", group_id, "F") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group3_id, "/g4/F/B", "/g4/F/B") < 0) TEST_ERROR
@@ -518,7 +518,7 @@ test_main(hid_t file_id, hid_t fapl)
     if(check_name(group3_id, "/g6/A/B", "/g6/A/B") < 0) TEST_ERROR
 
     /* Move group "A" to "C"*/
-    if(H5Gmove(file_id, "/g6/A", "/g7/C")<0)  TEST_ERROR
+    if(H5Gmove(file_id, "/g6/A", "/g7/C") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g7/C", "/g7/C") < 0) TEST_ERROR
@@ -545,7 +545,7 @@ test_main(hid_t file_id, hid_t fapl)
     if((group_id = H5Gcreate2(file_id, "/g8", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Delete */
-    if(H5Gunlink(file_id, "/g8")<0) TEST_ERROR
+    if(H5Gunlink(file_id, "/g8") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group_id, "", "") < 0) TEST_ERROR
@@ -568,7 +568,7 @@ test_main(hid_t file_id, hid_t fapl)
     if((group3_id = H5Gcreate2(file_id, "g9/a/b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Delete */
-    if(H5Gunlink(file_id, "/g9/a")<0) TEST_ERROR
+    if(H5Gunlink(file_id, "/g9/a") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group2_id, "", "") < 0) TEST_ERROR
@@ -585,7 +585,7 @@ test_main(hid_t file_id, hid_t fapl)
     if((group3_id = H5Gcreate2(group_id, "a/b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Delete, using relative path */
-    if(H5Gunlink(group_id, "a")<0) TEST_ERROR
+    if(H5Gunlink(group_id, "a") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group2_id, "", "") < 0) TEST_ERROR
@@ -606,7 +606,7 @@ test_main(hid_t file_id, hid_t fapl)
     if((group3_id = H5Gcreate2(file_id, "g10/a/b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Delete */
-    if(H5Gunlink(file_id, "/g10/a/b")<0) TEST_ERROR
+    if(H5Gunlink(file_id, "/g10/a/b") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group3_id, "", "") < 0) TEST_ERROR
@@ -618,7 +618,7 @@ test_main(hid_t file_id, hid_t fapl)
     if((group3_id = H5Gcreate2(group_id, "a/b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Delete, using relative path */
-    if(H5Gunlink(group_id, "a/b")<0) TEST_ERROR
+    if(H5Gunlink(group_id, "a/b") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group3_id, "", "") < 0) TEST_ERROR
@@ -645,12 +645,12 @@ test_main(hid_t file_id, hid_t fapl)
     if((group2_id = H5Gcreate2(file_id, "g11/g", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Create two datasets "g11/d" and "g11/g/d"*/
-    if((space_id = H5Screate_simple(1, dims, NULL))<0) TEST_ERROR
-    if((dataset_id = H5Dcreate(group_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT))<0) TEST_ERROR
-    if((dataset2_id = H5Dcreate(group2_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT))<0) TEST_ERROR
+    if((space_id = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
+    if((dataset_id = H5Dcreate(group_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
+    if((dataset2_id = H5Dcreate(group2_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
 
     /* Delete */
-    if(H5Gunlink(file_id, "/g11/d")<0) TEST_ERROR
+    if(H5Gunlink(file_id, "/g11/d") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(dataset_id, "", "") < 0) TEST_ERROR
@@ -685,24 +685,24 @@ test_main(hid_t file_id, hid_t fapl)
     file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
 
     /* Create a dataspace  */
-    if((space_id = H5Screate_simple(1, dims, NULL))<0) TEST_ERROR
+    if((space_id = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
 
     /* Create the dataset */
-    if((dataset_id = H5Dcreate(file1_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT))<0) TEST_ERROR
+    if((dataset_id = H5Dcreate(file1_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
 
     /* Close */
     H5Dclose(dataset_id);
 
     /* Mount second file under "g12" in the first file */
-    if(H5Fmount(file_id, "/g12", file1_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file_id, "/g12", file1_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Access dataset D in the first file under "/G/D" name */
-    if((dataset_id = H5Dopen(file_id, "/g12/d"))<0) TEST_ERROR
+    if((dataset_id = H5Dopen(file_id, "/g12/d")) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(dataset_id, "/g12/d", "/g12/d") < 0) TEST_ERROR
 
-    if(H5Funmount(file_id, "/g12")<0) TEST_ERROR
+    if(H5Funmount(file_id, "/g12") < 0) TEST_ERROR
 
     /* Close */
     H5Dclose(dataset_id);
@@ -973,25 +973,25 @@ test_main(hid_t file_id, hid_t fapl)
     TESTING("H5Iget_name with a defined type dataset");
 
     /* Create a datatype */
-    if((type_id = H5Tcreate(H5T_COMPOUND, sizeof(s1_t)))<0) TEST_ERROR
+    if((type_id = H5Tcreate(H5T_COMPOUND, sizeof(s1_t))) < 0) TEST_ERROR
 
     /* Insert fields */
-    if(H5Tinsert(type_id, "a", HOFFSET(s1_t,a), H5T_NATIVE_INT)<0) TEST_ERROR
-    if(H5Tinsert(type_id, "b", HOFFSET(s1_t,b), H5T_NATIVE_INT)<0) TEST_ERROR
-    if(H5Tinsert(type_id, "c", HOFFSET(s1_t,c), H5T_NATIVE_FLOAT)<0) TEST_ERROR
+    if(H5Tinsert(type_id, "a", HOFFSET(s1_t,a), H5T_NATIVE_INT) < 0) TEST_ERROR
+    if(H5Tinsert(type_id, "b", HOFFSET(s1_t,b), H5T_NATIVE_INT) < 0) TEST_ERROR
+    if(H5Tinsert(type_id, "c", HOFFSET(s1_t,c), H5T_NATIVE_FLOAT) < 0) TEST_ERROR
 
     /* Create group "g17" */
     if((group_id = H5Gcreate2(file_id, "g17", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Save datatype for later */
-    if(H5Tcommit(group_id, "t", type_id)<0) TEST_ERROR
+    if(H5Tcommit(group_id, "t", type_id) < 0) TEST_ERROR
 
     /* Create a dataspace  */
-    if((space_id = H5Screate_simple(1, dims, NULL))<0) TEST_ERROR
+    if((space_id = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
 
     /* Create a new dataset */
     if((dataset_id = H5Dcreate(group_id , "d", type_id, space_id,
-    H5P_DEFAULT))<0) TEST_ERROR
+    H5P_DEFAULT)) < 0) TEST_ERROR
 
     /* Close */
     H5Dclose(dataset_id);
@@ -1000,7 +1000,7 @@ test_main(hid_t file_id, hid_t fapl)
     H5Gclose(group_id);
 
     /* Open the named datatype */
-    if((type_id=H5Topen(file_id, "/g17/t"))<0) TEST_ERROR
+    if((type_id=H5Topen(file_id, "/g17/t")) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(type_id, "/g17/t", "/g17/t") < 0) TEST_ERROR
@@ -1009,10 +1009,10 @@ test_main(hid_t file_id, hid_t fapl)
     H5Tclose(type_id);
 
     /* Reopen the dataset */
-    if((dataset_id = H5Dopen(file_id, "/g17/d"))<0) TEST_ERROR
+    if((dataset_id = H5Dopen(file_id, "/g17/d")) < 0) TEST_ERROR
 
     /* Get datatype*/
-    if((type_id=H5Dget_type(dataset_id))<0) TEST_ERROR
+    if((type_id=H5Dget_type(dataset_id)) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(type_id, "/g17/t", "/g17/t") < 0) TEST_ERROR
@@ -1024,30 +1024,30 @@ test_main(hid_t file_id, hid_t fapl)
     PASSED();
 
 
-/*-------------------------------------------------------------------------
+   /*-------------------------------------------------------------------------
     * Test H5Iget_name with objects that have two names
     *-------------------------------------------------------------------------
     */
 
-TESTING("H5Iget_name with datasets that have two names");
+    TESTING("H5Iget_name with datasets that have two names");
 
-/* Open dataset named "d"*/
-if((dataset_id = H5Dopen(file_id, "/g17/d"))<0) TEST_ERROR
+    /* Open dataset named "d"*/
+    if((dataset_id = H5Dopen(file_id, "/g17/d")) < 0) FAIL_STACK_ERROR
 
-/* Create link to dataset named "link" */
-if(H5Glink2(dataset_id,".",H5G_LINK_HARD,file_id,"/g17/link")<0) TEST_ERROR
-if((dataset2_id = H5Dopen(file_id, "/g17/link"))<0) TEST_ERROR
+    /* Create link to dataset named "link" */
+    if(H5Glink2(dataset_id,".",H5G_LINK_HARD,file_id,"/g17/link") < 0) FAIL_STACK_ERROR
+    if((dataset2_id = H5Dopen(file_id, "/g17/link")) < 0) FAIL_STACK_ERROR
 
-/* Make sure that the two IDs use two different names */
+    /* Make sure that the two IDs use two different names */
     if(check_name(dataset_id, "/g17/d", "/g17/d") < 0) TEST_ERROR
     if(check_name(dataset2_id, "/g17/link", "/g17/link") < 0) TEST_ERROR
 
-if(H5Dclose(dataset_id)<0) TEST_ERROR
-if(H5Dclose(dataset2_id)<0) TEST_ERROR
+    if(H5Dclose(dataset_id) < 0) FAIL_STACK_ERROR
+    if(H5Dclose(dataset2_id) < 0) FAIL_STACK_ERROR
 
-PASSED();
+    PASSED();
 
-/*-------------------------------------------------------------------------
+   /*-------------------------------------------------------------------------
     * Test H5Iget_name with different files, test1
     *-------------------------------------------------------------------------
     */
@@ -1055,22 +1055,22 @@ PASSED();
     TESTING("H5Iget_name with different files");
 
     /* Create a new file using default properties. */
-    if((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) TEST_ERROR
+    if((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR
 
 /* Create a new file using default properties. */
-    if((file3_id = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) TEST_ERROR
+    if((file3_id = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR
 
     /* Create the dataspace  */
-    if((space_id = H5Screate_simple(1, dims, NULL))<0) TEST_ERROR
+    if((space_id = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
 
     /* Create a new dataset */
-    if((dataset_id = H5Dcreate(file2_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT))<0) TEST_ERROR
+    if((dataset_id = H5Dcreate(file2_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
 
     /* Create a new dataset */
-    if((dataset2_id = H5Dcreate(file3_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT))<0) TEST_ERROR
+    if((dataset2_id = H5Dcreate(file3_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
 
     /* Delete */
-    if(H5Gunlink(file2_id, "/d")<0) TEST_ERROR
+    if(H5Gunlink(file2_id, "/d") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(dataset_id, "", "") < 0) TEST_ERROR
@@ -1096,22 +1096,22 @@ PASSED();
     TESTING("H5Iget_name with different files #2");
 
     /* Create a new file using default properties. */
-    if((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) TEST_ERROR
+    if((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR
 
 /* Create a new file using default properties. */
-    if((file3_id = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) TEST_ERROR
+    if((file3_id = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) TEST_ERROR
 
     /* Create the dataspace  */
-    if((space_id = H5Screate_simple(1, dims, NULL))<0) TEST_ERROR
+    if((space_id = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
 
     /* Create a new dataset */
-    if((dataset_id = H5Dcreate(file2_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT))<0) TEST_ERROR
+    if((dataset_id = H5Dcreate(file2_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
 
     /* Create a new dataset */
-    if((dataset2_id = H5Dcreate(file3_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT))<0) TEST_ERROR
+    if((dataset2_id = H5Dcreate(file3_id , "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
 
     /* Delete */
-    if(H5Gunlink(file3_id, "/d")<0) TEST_ERROR
+    if(H5Gunlink(file3_id, "/d") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(dataset_id, "/d", "/d") < 0) TEST_ERROR
@@ -1211,13 +1211,13 @@ PASSED();
     TESTING("H5Iget_name with invalid IDs");
 
     /* Create a dataspace  */
-    if((space_id = H5Screate_simple(1, dims, NULL))<0) TEST_ERROR
+    if((space_id = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
 
     /* Define a datatype */
-    if((type_id = H5Tcopy(H5T_NATIVE_INT))<0) TEST_ERROR
+    if((type_id = H5Tcopy(H5T_NATIVE_INT)) < 0) TEST_ERROR
 
     /* Create a new dataset */
-    if((dataset_id = H5Dcreate(file_id , "d2", type_id, space_id, H5P_DEFAULT))<0) TEST_ERROR
+    if((dataset_id = H5Dcreate(file_id , "d2", type_id, space_id, H5P_DEFAULT)) < 0) TEST_ERROR
 
 {
     char name[NAME_BUF_SIZE];   /* Buffer to hold name and its size */
@@ -1253,10 +1253,10 @@ PASSED();
     if((group2_id = H5Gcreate2(file_id, "/g18/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Also create a dataset and a datatype */
-    if((space_id = H5Screate_simple(1, dims, NULL))<0) TEST_ERROR
-    if((type_id = H5Tcopy(H5T_NATIVE_INT))<0) TEST_ERROR
+    if((space_id = H5Screate_simple(1, dims, NULL)) < 0) TEST_ERROR
+    if((type_id = H5Tcopy(H5T_NATIVE_INT)) < 0) TEST_ERROR
     if((dataset_id = H5Dcreate(file_id, "g18/d2", type_id, space_id,
-    H5P_DEFAULT))<0) TEST_ERROR
+    H5P_DEFAULT)) < 0) TEST_ERROR
 
     if(H5Tcommit(file_id, "g18/t2", type_id) <0) TEST_ERROR
 
@@ -1267,7 +1267,7 @@ PASSED();
     if((group5_id = H5Gcreate2(file1_id, "/g3/g4/g5", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Mount first file at "g3/g4" in the second file */
-    if(H5Fmount(file1_id, "/g3/g4", file_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file1_id, "/g3/g4", file_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Get name for the group ID in the first file, should be "/g18/g2" still */
     if(check_name(group2_id, "/g18/g2", "/g18/g2") < 0) TEST_ERROR
@@ -1294,7 +1294,7 @@ PASSED();
     if(check_name(type_id, "/g18/t2", "/g18/t2") < 0) TEST_ERROR
 
     /* Unmount */
-    if(H5Funmount(file1_id, "/g3/g4")<0) TEST_ERROR
+    if(H5Funmount(file1_id, "/g3/g4") < 0) TEST_ERROR
 
     /* Get name for the IDs of the first file, should be unchanged */
     if(check_name(group2_id, "/g18/g2", "/g18/g2") < 0) TEST_ERROR
@@ -1367,7 +1367,7 @@ PASSED();
     if((group4_id = H5Gcreate2(file2_id, "/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Mount first file at "/g3/g4" in the second file */
-    if(H5Fmount(file2_id, "/g3/g4", file1_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file2_id, "/g3/g4", file1_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Open the mounted group */
     if((group5_id = H5Gopen2(file2_id, "/g3/g4/g1/g2", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
@@ -1376,7 +1376,7 @@ PASSED();
     if(check_name(group5_id, "/g3/g4/g1/g2", "/g3/g4/g1/g2") < 0) TEST_ERROR
 
     /* Delete */
-    if(H5Gunlink(file1_id, "/g3/g4/g1/g2")<0) TEST_ERROR
+    if(H5Gunlink(file1_id, "/g3/g4/g1/g2") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group5_id, "", "") < 0) TEST_ERROR
@@ -1415,7 +1415,7 @@ PASSED();
     if((group4_id = H5Gcreate2(file2_id, "/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Mount first file at "g3/g4" in the second file */
-    if(H5Fmount(file2_id, "/g3/g4", file1_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file2_id, "/g3/g4", file1_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g3/g4", "/g3/g4") < 0) TEST_ERROR
@@ -1433,14 +1433,14 @@ PASSED();
     if(check_name(group6_id, "/g3/g4/g1", "/g3/g4/g1") < 0) TEST_ERROR
 
     /* Rename group */
-    if(H5Gmove(file2_id, "/g3/g4/g1/g2", "/g3/g4/g1/g5")<0)  TEST_ERROR
+    if(H5Gmove(file2_id, "/g3/g4/g1/g2", "/g3/g4/g1/g5") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group5_id, "/g3/g4/g1/g5", "/g3/g4/g1/g5") < 0) TEST_ERROR
     if(check_name(group2_id, "/g1/g5", "/g1/g5") < 0) TEST_ERROR
 
     /* Rename group */
-    if(H5Gmove(file2_id, "/g3/g4/g1", "/g3/g4/g1a")<0)  TEST_ERROR
+    if(H5Gmove(file2_id, "/g3/g4/g1", "/g3/g4/g1a") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group5_id, "/g3/g4/g1a/g5", "/g3/g4/g1a/g5") < 0) TEST_ERROR
@@ -1451,7 +1451,7 @@ PASSED();
     if(check_name(group_id, "/g1a", "/g1a") < 0) TEST_ERROR
 
     /* Rename middle group back, using relative path */
-    if(H5Gmove(group3_id, "g4/g1a", "g4/g1")<0)  TEST_ERROR
+    if(H5Gmove(group3_id, "g4/g1a", "g4/g1") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group5_id, "/g3/g4/g1/g5", "/g3/g4/g1/g5") < 0) TEST_ERROR
@@ -1460,7 +1460,7 @@ PASSED();
     if(check_name(group_id, "/g1", "/g1") < 0) TEST_ERROR
 
     /* Rename end group back, using relative path */
-    if(H5Gmove(group3_id, "g4/g1/g5", "g4/g1/g2")<0)  TEST_ERROR
+    if(H5Gmove(group3_id, "g4/g1/g5", "g4/g1/g2") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group5_id, "/g3/g4/g1/g2", "/g3/g4/g1/g2") < 0) TEST_ERROR
@@ -1469,7 +1469,7 @@ PASSED();
     if(check_name(group_id, "/g1", "/g1") < 0) TEST_ERROR
 
     /* Rename mount point */
-    if(H5Gmove(file2_id, "/g3/g4", "/g3/g4a")<0)  TEST_ERROR
+    if(H5Gmove(file2_id, "/g3/g4", "/g3/g4a") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g3/g4a", "/g3/g4a") < 0) TEST_ERROR
@@ -1477,7 +1477,7 @@ PASSED();
     if(check_name(group6_id, "/g3/g4a/g1", "/g3/g4a/g1") < 0) TEST_ERROR
 
     /* Rename mount point back, using relative path*/
-    if(H5Gmove(group3_id, "g4a", "g4")<0)  TEST_ERROR
+    if(H5Gmove(group3_id, "g4a", "g4") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g3/g4", "/g3/g4") < 0) TEST_ERROR
@@ -1496,19 +1496,19 @@ PASSED();
 
     PASSED();
 
-/*-------------------------------------------------------------------------
-    * Test H5Iget_name with H5Glink hard
+   /*-------------------------------------------------------------------------
+    * Test H5Iget_name with H5Lcreate_hard
     *-------------------------------------------------------------------------
     */
 
-    TESTING("H5Iget_name with H5Glink hard");
+    TESTING("H5Iget_name with H5Lcreate_hard");
 
     /* Create group "g19/g1" */
     if((group_id = H5Gcreate2(file_id, "/g19", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
     if((group2_id = H5Gcreate2(file_id, "/g19/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Create hard link to "g19/g1/ group */
-    if(H5Glink(file_id, H5G_LINK_HARD, "/g19/g1", "/g19/g2")<0) TEST_ERROR
+    if(H5Lcreate_hard(file_id, "/g19/g1", H5L_SAME_LOC, "/g19/g2", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g19/g1", "/g19/g1") < 0) TEST_ERROR
@@ -1520,21 +1520,21 @@ PASSED();
     if(check_name(group3_id, "/g19/g2", "/g19/g2") < 0) TEST_ERROR
 
     /* Rename original group */
-    if(H5Gmove(file_id, "/g19/g1", "/g19/g3")<0)  TEST_ERROR
+    if(H5Gmove(file_id, "/g19/g1", "/g19/g3") < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g19/g3", "/g19/g3") < 0) TEST_ERROR
     if(check_name(group3_id, "/g19/g2", "/g19/g2") < 0) TEST_ERROR
 
     /* Rename original group back, using relative path */
-    if(H5Gmove(group_id, "g3", "g1")<0)  TEST_ERROR
+    if(H5Gmove(group_id, "g3", "g1") < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g19/g1", "/g19/g1") < 0) TEST_ERROR
     if(check_name(group3_id, "/g19/g2", "/g19/g2") < 0) TEST_ERROR
 
     /* Create another hard link to "/g19/g1" group */
-    if(H5Glink(file_id, H5G_LINK_HARD, "/g19/g1", "/g19/g3")<0) TEST_ERROR
+    if(H5Lcreate_hard(file_id, "/g19/g1", H5L_SAME_LOC, "/g19/g3", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Open the group */
     if((group4_id = H5Gopen2(file_id, "/g19/g3", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
@@ -1543,7 +1543,7 @@ PASSED();
     if(check_name(group4_id, "/g19/g3", "/g19/g3") < 0) TEST_ERROR
 
     /* Delete group */
-    if(H5Gunlink(file_id, "/g19/g3")<0) TEST_ERROR
+    if(H5Gunlink(file_id, "/g19/g3") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g19/g1", "") < 0) TEST_ERROR
@@ -1551,10 +1551,10 @@ PASSED();
     if(check_name(group3_id, "/g19/g2", "/g19/g2") < 0) TEST_ERROR
 
     /* Close the unlinked group */
-    H5Gclose(group4_id);
+    if(H5Gclose(group4_id) < 0) FAIL_STACK_ERROR
 
     /* Create another hard link to "/g19/g1" group */
-    if(H5Glink(file_id, H5G_LINK_HARD, "/g19/g1", "/g19/g3")<0) TEST_ERROR
+    if(H5Lcreate_hard(file_id, "/g19/g1", H5L_SAME_LOC, "/g19/g3", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Open the group */
     if((group4_id = H5Gopen2(file_id, "/g19/g3", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
@@ -1563,7 +1563,7 @@ PASSED();
     if(check_name(group4_id, "/g19/g3", "/g19/g3") < 0) TEST_ERROR
 
     /* Delete group, using relative path */
-    if(H5Gunlink(group_id, "g3")<0) TEST_ERROR
+    if(H5Gunlink(group_id, "g3") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g19/g1", "") < 0) TEST_ERROR
@@ -1571,30 +1571,30 @@ PASSED();
     if(check_name(group3_id, "/g19/g2", "/g19/g2") < 0) TEST_ERROR
 
     /* Close the unlinked group */
-    H5Gclose(group4_id);
+    if(H5Gclose(group4_id) < 0) FAIL_STACK_ERROR
 
     /* Close */
-    H5Gclose(group_id);
-    H5Gclose(group2_id);
-    H5Gclose(group3_id);
+    if(H5Gclose(group_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group2_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group3_id) < 0) FAIL_STACK_ERROR
 
     PASSED();
 
 
 
-/*-------------------------------------------------------------------------
-    * Test H5Iget_name with H5Glink symbolic
+   /*-------------------------------------------------------------------------
+    * Test H5Iget_name with H5Lcreate_soft
     *-------------------------------------------------------------------------
     */
 
-    TESTING("H5Iget_name with H5Glink symbolic");
+    TESTING("H5Iget_name with H5Lcreate_soft");
 
     /* Create group "g20/g1" */
     if((group_id = H5Gcreate2(file_id, "/g20", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
     if((group2_id = H5Gcreate2(file_id, "/g20/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Create symbolic link to "g20/g1/ group */
-    if(H5Glink(file_id, H5G_LINK_SOFT, "/g20/g1", "/g20/g2")<0) TEST_ERROR
+    if(H5Lcreate_soft("/g20/g1", file_id, "/g20/g2", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g20/g1", "/g20/g1") < 0) TEST_ERROR
@@ -1606,26 +1606,26 @@ PASSED();
     if(check_name(group3_id, "/g20/g2", "/g20/g2") < 0) TEST_ERROR
 
     /* Close */
-    H5Gclose(group_id);
-    H5Gclose(group2_id);
-    H5Gclose(group3_id);
+    if(H5Gclose(group_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group2_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group3_id) < 0) FAIL_STACK_ERROR
 
     PASSED();
 
 
-/*-------------------------------------------------------------------------
-    * Test H5Iget_name with H5Glink symbolic and move target
+   /*-------------------------------------------------------------------------
+    * Test H5Iget_name with H5Lcreate_soft and move target
     *-------------------------------------------------------------------------
     */
 
-    TESTING("H5Iget_name with H5Glink symbolic and move target");
+    TESTING("H5Iget_name with H5Lcreate_soft and move target");
 
     /* Create group "g21/g1" */
     if((group_id = H5Gcreate2(file_id, "/g21", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
     if((group2_id = H5Gcreate2(file_id, "/g21/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Create symbolic link to "g21/g1/ group */
-    if(H5Glink(file_id, H5G_LINK_SOFT, "/g21/g1", "/g21/g2")<0) TEST_ERROR
+    if(H5Lcreate_soft("/g21/g1", file_id, "/g21/g2", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g21/g1", "/g21/g1") < 0) TEST_ERROR
@@ -1634,33 +1634,33 @@ PASSED();
     if((group3_id = H5Gopen2(file_id, "/g21/g2", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Rename group */
-    if(H5Gmove(file_id, "/g21/g1", "/g21/g3")<0)  TEST_ERROR
+    if(H5Gmove(file_id, "/g21/g1", "/g21/g3") < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g21/g3", "/g21/g3") < 0) TEST_ERROR
     if(check_name(group3_id, "/g21/g2", "/g21/g2") < 0) TEST_ERROR
 
     /* Close */
-    H5Gclose(group_id);
-    H5Gclose(group2_id);
-    H5Gclose(group3_id);
+    if(H5Gclose(group_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group2_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group3_id) < 0) FAIL_STACK_ERROR
 
     PASSED();
 
 
-/*-------------------------------------------------------------------------
-    * Test H5Iget_name with H5Glink symbolic and move source
+   /*-------------------------------------------------------------------------
+    * Test H5Iget_name with H5Lcreate_soft and move source
     *-------------------------------------------------------------------------
     */
 
-    TESTING("H5Iget_name with H5Glink symbolic and move source");
+    TESTING("H5Iget_name with H5Lcreate_soft and move source");
 
     /* Create group "g22/g1" */
     if((group_id = H5Gcreate2(file_id, "/g22", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
     if((group2_id = H5Gcreate2(file_id, "/g22/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Create symbolic link to "g22/g1/ group */
-    if(H5Glink(file_id, H5G_LINK_SOFT, "/g22/g1", "/g22/g2")<0) TEST_ERROR
+    if(H5Lcreate_soft("/g22/g1", file_id, "/g22/g2", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g22/g1", "/g22/g1") < 0) TEST_ERROR
@@ -1669,41 +1669,41 @@ PASSED();
     if((group3_id = H5Gopen2(file_id, "/g22/g2", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Rename soft link */
-    if(H5Gmove(file_id, "/g22/g2", "/g22/g3")<0)  TEST_ERROR
+    if(H5Gmove(file_id, "/g22/g2", "/g22/g3") < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g22/g1", "/g22/g1") < 0) TEST_ERROR
     if(check_name(group3_id, "/g22/g3", "/g22/g3") < 0) TEST_ERROR
 
     /* Rename soft link, using relative paths */
-    if(H5Gmove(group_id, "g3", "g2")<0)  TEST_ERROR
+    if(H5Gmove(group_id, "g3", "g2") < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g22/g1", "/g22/g1") < 0) TEST_ERROR
     if(check_name(group3_id, "/g22/g2", "/g22/g2") < 0) TEST_ERROR
 
     /* Close */
-    H5Gclose(group_id);
-    H5Gclose(group2_id);
-    H5Gclose(group3_id);
+    if(H5Gclose(group_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group2_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group3_id) < 0) FAIL_STACK_ERROR
 
     PASSED();
 
 
 
-/*-------------------------------------------------------------------------
-    * Test H5Iget_name with H5Glink symbolic and unlink target
+   /*-------------------------------------------------------------------------
+    * Test H5Iget_name with H5Lcreate_soft and unlink target
     *-------------------------------------------------------------------------
     */
 
-    TESTING("H5Iget_name with H5Glink symbolic and unlink target");
+    TESTING("H5Iget_name with H5Lcreate_soft and unlink target");
 
     /* Create group "g23/g1" */
     if((group_id = H5Gcreate2(file_id, "/g23", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
     if((group2_id = H5Gcreate2(file_id, "/g23/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Create symbolic link to "g23/g1/ group */
-    if(H5Glink(file_id, H5G_LINK_SOFT, "/g23/g1", "/g23/g2")<0) TEST_ERROR
+    if(H5Lcreate_soft("/g23/g1", file_id, "/g23/g2", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g23/g1", "/g23/g1") < 0) TEST_ERROR
@@ -1712,31 +1712,31 @@ PASSED();
     if((group3_id = H5Gopen2(file_id, "/g23/g2", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Delete group */
-    if(H5Gunlink(file_id, "/g23/g1")<0) TEST_ERROR
+    if(H5Gunlink(file_id, "/g23/g1") < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group3_id, "/g23/g2", "/g23/g2") < 0) TEST_ERROR
 
     /* Close */
-    H5Gclose(group_id);
-    H5Gclose(group2_id);
-    H5Gclose(group3_id);
+    if(H5Gclose(group_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group2_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group3_id) < 0) FAIL_STACK_ERROR
 
     PASSED();
 
-/*-------------------------------------------------------------------------
-    * Test H5Iget_name with H5Glink symbolic and unlink source
+   /*-------------------------------------------------------------------------
+    * Test H5Iget_name with H5Lcreate_soft and unlink source
     *-------------------------------------------------------------------------
     */
 
-    TESTING("H5Iget_name with H5Glink symbolic and unlink source");
+    TESTING("H5Iget_name with H5Lcreate_soft and unlink source");
 
     /* Create group "g24/g1" */
     if((group_id = H5Gcreate2(file_id, "/g24", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
     if((group2_id = H5Gcreate2(file_id, "/g24/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Create symbolic link to "g24/g1/ group */
-    if(H5Glink(file_id, H5G_LINK_SOFT, "/g24/g1", "/g24/g2")<0) TEST_ERROR
+    if(H5Lcreate_soft("/g24/g1", file_id, "/g24/g2", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g24/g1", "/g24/g1") < 0) TEST_ERROR
@@ -1745,15 +1745,15 @@ PASSED();
     if((group3_id = H5Gopen2(file_id, "/g24/g2", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Delete symbolic link */
-    if(H5Gunlink(file_id, "/g24/g2")<0) TEST_ERROR
+    if(H5Gunlink(file_id, "/g24/g2") < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group3_id, "/g24/g1", "") < 0) TEST_ERROR
 
     /* Close */
-    H5Gclose(group_id);
-    H5Gclose(group2_id);
-    H5Gclose(group3_id);
+    if(H5Gclose(group_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group2_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group3_id) < 0) FAIL_STACK_ERROR
 
     PASSED();
 
@@ -1817,7 +1817,7 @@ PASSED();
     if(check_name(group_id, "/g25/g1/g2", "/g25/g1/g2") < 0) TEST_ERROR
 
     /* Mount second file under "/g25/g1" in the first file */
-    if(H5Fmount(file_id, "/g25/g1", file1_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file_id, "/g25/g1", file1_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group_id, "", "/g25/g1/g2") < 0) TEST_ERROR
@@ -1829,7 +1829,7 @@ PASSED();
     if(check_name(group2_id, "/g25/g1/g26/g3/g4", "/g25/g1/g26/g3/g4") < 0) TEST_ERROR
 
     /* Mount third file under "/g25/g1/g26/g3" in the first file */
-    if(H5Fmount(file_id, "/g25/g1/g26/g3", file2_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file_id, "/g25/g1/g26/g3", file2_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group2_id, "", "/g25/g1/g26/g3/g4") < 0) TEST_ERROR
@@ -1841,7 +1841,7 @@ PASSED();
     if(check_name(group3_id, "/g25/g1/g26/g3/g27/g5/g6", "/g25/g1/g26/g3/g27/g5/g6") < 0) TEST_ERROR
 
     /* Mount fourth file under "/g25/g1/g26/g3/g27/g5" in the first file */
-    if(H5Fmount(file_id, "/g25/g1/g26/g3/g27/g5", file3_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file_id, "/g25/g1/g26/g3/g27/g5", file3_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group3_id, "", "/g25/g1/g26/g3/g27/g5/g6") < 0) TEST_ERROR
@@ -1852,7 +1852,7 @@ PASSED();
     /* Verify */
     if(check_name(group4_id, "/g25/g1/g26/g3/g27/g5/g28/g7/g8", "/g25/g1/g26/g3/g27/g5/g28/g7/g8") < 0) TEST_ERROR
 
-    if(H5Funmount(file_id, "/g25/g1/g26/g3/g27/g5")<0) TEST_ERROR
+    if(H5Funmount(file_id, "/g25/g1/g26/g3/g27/g5") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g28/g7/g8", "") < 0) TEST_ERROR
@@ -1864,7 +1864,7 @@ PASSED();
     H5Gclose(group4_id);
     H5Fclose(file3_id);
 
-    if(H5Funmount(file_id, "/g25/g1/g26/g3")<0) TEST_ERROR
+    if(H5Funmount(file_id, "/g25/g1/g26/g3") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group3_id, "/g27/g5/g6", "") < 0) TEST_ERROR
@@ -1875,7 +1875,7 @@ PASSED();
     H5Gclose(group3_id);
     H5Fclose(file2_id);
 
-    if(H5Funmount(file_id, "/g25/g1")<0) TEST_ERROR
+    if(H5Funmount(file_id, "/g25/g1") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g26/g3/g4", "") < 0) TEST_ERROR
@@ -1905,20 +1905,20 @@ PASSED();
     if((group5_id = H5Gcreate2(file_id, "/g29/g1/g2/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Rename group */
-    if(H5Gmove(file_id, "/g29/g1/g2/g1/g2", "/g29/g1/g2/g1/g3")<0)  TEST_ERROR
+    if(H5Gmove(file_id, "/g29/g1/g2/g1/g2", "/g29/g1/g2/g1/g3") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group5_id, "/g29/g1/g2/g1/g3", "/g29/g1/g2/g1/g3") < 0) TEST_ERROR
 
     /* Rename group in middle of path, keeping within the same group */
-    if(H5Gmove(file_id, "/g29/g1/g2/g1", "/g29/g1/g2/g3")<0)  TEST_ERROR
+    if(H5Gmove(file_id, "/g29/g1/g2/g1", "/g29/g1/g2/g3") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g29/g1/g2/g3", "/g29/g1/g2/g3") < 0) TEST_ERROR
     if(check_name(group5_id, "/g29/g1/g2/g3/g3", "/g29/g1/g2/g3/g3") < 0) TEST_ERROR
 
     /* Rename group in middle of path, moving to another group in file */
-    if(H5Gmove(file_id, "/g29/g1/g2/g3", "/g29/g3")<0)  TEST_ERROR
+    if(H5Gmove(file_id, "/g29/g1/g2/g3", "/g29/g3") < 0)  TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g29/g3", "/g29/g3") < 0) TEST_ERROR
@@ -1994,7 +1994,7 @@ PASSED();
     if(check_name(group_id, "/g30/g1/g2", "/g30/g1/g2") < 0) TEST_ERROR
 
     /* Mount second file under "/g30/g1" in the first file */
-    if(H5Fmount(file_id, "/g30/g1", file1_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file_id, "/g30/g1", file1_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group_id, "", "/g30/g1/g2") < 0) TEST_ERROR
@@ -2006,7 +2006,7 @@ PASSED();
     if(check_name(group2_id, "/g30/g1/g31/g3/g4", "/g30/g1/g31/g3/g4") < 0) TEST_ERROR
 
     /* Mount third file under "/g30/g1/g31/g3" in the first file */
-    if(H5Fmount(file_id, "/g30/g1/g31/g3", file2_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file_id, "/g30/g1/g31/g3", file2_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group2_id, "", "/g30/g1/g31/g3/g4") < 0) TEST_ERROR
@@ -2018,7 +2018,7 @@ PASSED();
     if(check_name(group3_id, "/g30/g1/g31/g3/g32/g5/g6", "/g30/g1/g31/g3/g32/g5/g6") < 0) TEST_ERROR
 
     /* Mount fourth file under "/g30" in the first file, hiding the files below it */
-    if(H5Fmount(file_id, "/g30", file3_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file_id, "/g30", file3_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group3_id, "", "/g30/g1/g31/g3/g32/g5/g6") < 0) TEST_ERROR
@@ -2030,7 +2030,7 @@ PASSED();
     if(check_name(group4_id, "/g30/g33/g7/g8", "/g30/g33/g7/g8") < 0) TEST_ERROR
 
     /* Unmount fourth file */
-    if(H5Funmount(file_id, "/g30")<0) TEST_ERROR
+    if(H5Funmount(file_id, "/g30") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g33/g7/g8", "") < 0) TEST_ERROR
@@ -2039,7 +2039,7 @@ PASSED();
     if(check_name(group_id, "", "/g30/g1/g2") < 0) TEST_ERROR
 
     /* Unmount third file */
-    if(H5Funmount(file_id, "/g30/g1/g31/g3")<0) TEST_ERROR
+    if(H5Funmount(file_id, "/g30/g1/g31/g3") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g33/g7/g8", "") < 0) TEST_ERROR
@@ -2048,7 +2048,7 @@ PASSED();
     if(check_name(group_id, "", "/g30/g1/g2") < 0) TEST_ERROR
 
     /* Unmount second file */
-    if(H5Funmount(file_id, "/g30/g1")<0) TEST_ERROR
+    if(H5Funmount(file_id, "/g30/g1") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group4_id, "/g33/g7/g8", "") < 0) TEST_ERROR
@@ -2078,16 +2078,16 @@ PASSED();
     TESTING("H5Iget_name with multiple hard links and mounted files");
 
     /* Create second file and group "/g35/g3/g4" in it */
-    file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
+    if((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
 
     if((group_id = H5Gcreate2(file1_id, "/g35", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
     if((group2_id = H5Gcreate2(file1_id, "/g35/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
     if((group3_id = H5Gcreate2(file1_id, "/g35/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Close */
-    H5Gclose(group_id);
-    H5Gclose(group2_id);
-    H5Gclose(group3_id);
+    if(H5Gclose(group_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group2_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group3_id) < 0) FAIL_STACK_ERROR
 
     /* Create group "/g34/g1/g2" in first file */
     if((group_id = H5Gcreate2(file_id, "/g34", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
@@ -2095,7 +2095,7 @@ PASSED();
     if((group3_id = H5Gcreate2(file_id, "/g34/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Create hard link to "/g34/g1/g2 group */
-    if(H5Glink(file_id, H5G_LINK_HARD, "/g34/g1/g2", "/g34/g2a")<0) TEST_ERROR
+    if(H5Lcreate_hard(file_id, "/g34/g1/g2", H5L_SAME_LOC, "/g34/g2a", H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group3_id, "/g34/g1/g2", "/g34/g1/g2") < 0) TEST_ERROR
@@ -2107,31 +2107,30 @@ PASSED();
     if(check_name(group4_id, "/g34/g2a", "/g34/g2a") < 0) TEST_ERROR
 
     /* Mount second file under "/g34/g1" in the first file */
-    if(H5Fmount(file_id, "/g34/g1", file1_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file_id, "/g34/g1", file1_id, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group3_id, "", "/g34/g1/g2") < 0) TEST_ERROR
     if(check_name(group4_id, "/g34/g2a", "/g34/g2a") < 0) TEST_ERROR
 
     /* Unmount second file */
-    if(H5Funmount(file_id, "/g34/g1")<0) TEST_ERROR
+    if(H5Funmount(file_id, "/g34/g1") < 0) FAIL_STACK_ERROR
 
     /* Verify */
     if(check_name(group3_id, "/g34/g1/g2", "/g34/g1/g2") < 0) TEST_ERROR
     if(check_name(group4_id, "/g34/g2a", "/g34/g2a") < 0) TEST_ERROR
 
     /* Close */
-    H5Gclose(group_id);
-    H5Gclose(group2_id);
-    H5Gclose(group3_id);
-    H5Gclose(group4_id);
-    H5Fclose(file1_id);
+    if(H5Gclose(group_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group2_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group3_id) < 0) FAIL_STACK_ERROR
+    if(H5Gclose(group4_id) < 0) FAIL_STACK_ERROR
+    if(H5Fclose(file1_id) < 0) FAIL_STACK_ERROR
 
     PASSED();
 
 
-
-/*-------------------------------------------------------------------------
+   /*-------------------------------------------------------------------------
     * Test H5Iget_name with mounted files and unlinking
     *-------------------------------------------------------------------------
     */
@@ -2157,7 +2156,7 @@ PASSED();
     if((group4_id = H5Gcreate2(file1_id, "/g37/g4/g5b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
     /* Mount second file under "/g36/g1" in the first file */
-    if(H5Fmount(file_id, "/g36/g1", file1_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file_id, "/g36/g1", file1_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     /* Open group in mounted file */
     if((group5_id = H5Gopen2(file_id, "/g36/g1/g37/", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
@@ -2172,7 +2171,7 @@ PASSED();
     if(check_name(group6_id, "/g36/g1/g37/g4/g5a", "/g36/g1/g37/g4/g5a") < 0) TEST_ERROR
 
     /* Delete end group in mounted file, using relative paths */
-    if(H5Gunlink(group5_id, "g4/g5a")<0) TEST_ERROR
+    if(H5Gunlink(group5_id, "g4/g5a") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group6_id, "", "") < 0) TEST_ERROR
@@ -2190,7 +2189,7 @@ PASSED();
     if(check_name(group7_id, "/g36/g1/g37/g4/g5b", "/g36/g1/g37/g4/g5b") < 0) TEST_ERROR
 
     /* Delete middle group in mounted file, using relative paths */
-    if(H5Gunlink(group5_id, "g4")<0) TEST_ERROR
+    if(H5Gunlink(group5_id, "g4") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group6_id, "", "") < 0) TEST_ERROR
@@ -2205,7 +2204,7 @@ PASSED();
     /* Close group in mounted file */
     H5Gclose(group5_id);
 
-    if(H5Funmount(file_id, "/g36/g1")<0) TEST_ERROR
+    if(H5Funmount(file_id, "/g36/g1") < 0) TEST_ERROR
 
     /* Close */
     H5Gclose(group_id);
@@ -2262,7 +2261,7 @@ PASSED();
     H5Gclose(group3_id);
 
     /* Mount second file under "/g38/g1" in the first file */
-    if(H5Fmount(file1_id, "/g38/g1", file2_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file1_id, "/g38/g1", file2_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     if((group_id = H5Gopen2(file1_id, "/g38/g1/g39/g3/g4", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
@@ -2270,7 +2269,7 @@ PASSED();
     if(check_name(group_id, "/g38/g1/g39/g3/g4", "/g38/g1/g39/g3/g4") < 0) TEST_ERROR
 
     /* Mount first file under "/g40/g5" in the third file */
-    if(H5Fmount(file3_id, "/g40/g5", file1_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file3_id, "/g40/g5", file1_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     if((group2_id = H5Gopen2(file3_id, "/g40/g5/g38/g1/g39/g3/g4", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
@@ -2279,14 +2278,14 @@ PASSED();
     if(check_name(group_id, "/g38/g1/g39/g3/g4", "/g38/g1/g39/g3/g4") < 0) TEST_ERROR
 
     /* Unmount first file */
-    if(H5Funmount(file3_id, "/g40/g5")<0) TEST_ERROR
+    if(H5Funmount(file3_id, "/g40/g5") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group2_id, "/g38/g1/g39/g3/g4", "") < 0) TEST_ERROR
     if(check_name(group_id, "/g38/g1/g39/g3/g4", "/g38/g1/g39/g3/g4") < 0) TEST_ERROR
 
     /* Unmount second file */
-    if(H5Funmount(file1_id, "/g38/g1")<0) TEST_ERROR
+    if(H5Funmount(file1_id, "/g38/g1") < 0) TEST_ERROR
 
     /* Verify */
     if(check_name(group_id, "/g39/g3/g4", "") < 0) TEST_ERROR
@@ -2332,7 +2331,7 @@ PASSED();
     H5Gclose(group3_id);
 
     /* Mount second file under "/g41/g1" in the first file */
-    if(H5Fmount(file1_id, "/g41/g1", file2_id, H5P_DEFAULT)<0) TEST_ERROR
+    if(H5Fmount(file1_id, "/g41/g1", file2_id, H5P_DEFAULT) < 0) TEST_ERROR
 
     if((group_id = H5Gopen2(file1_id, "/g41/g1/g42/g3", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
@@ -2340,7 +2339,7 @@ PASSED();
     if(check_name(group_id, "/g41/g1/g42/g3", "/g41/g1/g42/g3") < 0) TEST_ERROR
 
     /* Unmount file */
-    if(H5Funmount(file1_id, "/g41/g1")<0) TEST_ERROR
+    if(H5Funmount(file1_id, "/g41/g1") < 0) TEST_ERROR
 
     if((group2_id = H5Gopen2(group_id, "g4", H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
 
@@ -2383,13 +2382,13 @@ test_obj_ref(hid_t fapl)
 
     /* Create files */
     if((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Create dataspace for datasets */
     if((sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL)) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Create a group */
     if((group = H5Gcreate2(fid1, "Group1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
@@ -2397,13 +2396,13 @@ test_obj_ref(hid_t fapl)
     /* Create a single dataset inside the second file, which will be mounted
      * and used to mask objects in the first file */
     if((dataset = H5Dcreate(fid2, "Dataset1", H5T_STD_U32LE, sid1, H5P_DEFAULT)) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if(H5Dclose(dataset) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     
     /* Create a dataset(inside Group1) */
     if((dataset = H5Dcreate(group, "Dataset1", H5T_STD_U32LE, sid1, H5P_DEFAULT)) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Initialize data buffer */
     for(i = 0; i < SPACE1_DIM1; i++)
@@ -2411,112 +2410,112 @@ test_obj_ref(hid_t fapl)
 
     /* Write selection to disk */
     if(H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, tu32) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Close Dataset */
     if(H5Dclose(dataset) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Create another dataset(inside Group1) */
     if((dataset = H5Dcreate(group, "Dataset2", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT)) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
  
     /* Close Dataset */
     if(H5Dclose(dataset) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
  
     /* Create a datatype to refer to */
     if((tid1 = H5Tcreate(H5T_COMPOUND, sizeof(s1_t))) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Insert fields */
     if(H5Tinsert(tid1, "a", HOFFSET(s1_t,a), H5T_NATIVE_INT) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if(H5Tinsert(tid1, "b", HOFFSET(s1_t,b), H5T_NATIVE_INT) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if(H5Tinsert(tid1, "c", HOFFSET(s1_t,c), H5T_NATIVE_FLOAT) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Save datatype for later */
     if(H5Tcommit(group, "Datatype1", tid1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Close datatype */
     if(H5Tclose(tid1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Create a new group in group1 */
     if((group2 = H5Gcreate2(group, "Group2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
  
     /* Create a hard link to group1 in group2 */
-    if(H5Glink(fid1, H5G_LINK_HARD, "/Group1", "/Group1/Group2/Link") < 0)
-        TEST_ERROR
+    if(H5Lcreate_hard(fid1, "/Group1", H5L_SAME_LOC, "/Group1/Group2/Link", H5P_DEFAULT, H5P_DEFAULT) < 0)
+        FAIL_STACK_ERROR
  
     /* Create dataset in that group */
     if((dataset = H5Dcreate(group2, "Dataset4", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT)) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
   
     /* Close Dataset */
     if(H5Dclose(dataset) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
   
     /* Close group */
     if(H5Gclose(group) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if(H5Gclose(group2) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Open up that hard link and make a new dataset there */
     if((group = H5Gopen2(fid1, "/Group1/Group2/Link", H5P_DEFAULT)) < 0)
         FAIL_STACK_ERROR
     if((dataset = H5Dcreate(group, "Dataset5", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT)) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     if(H5Dclose(dataset) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if(H5Gclose(group) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
 
     /* Create a dataset to store references */
     if((dataset = H5Dcreate(fid1, "Dataset3", H5T_STD_REF_OBJ, sid1, H5P_DEFAULT)) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Create reference to dataset */
     if(H5Rcreate(&wbuf[0], fid1, "/Dataset3", H5R_OBJECT, -1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Create reference to dataset */
     if(H5Rcreate(&wbuf[1], fid1, "/Group1/Dataset2", H5R_OBJECT, -1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Create reference to group */
     if(H5Rcreate(&wbuf[2], fid1, "/Group1", H5R_OBJECT, -1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Create reference to named datatype */
     if(H5Rcreate(&wbuf[3], fid1, "/Group1/Datatype1", H5R_OBJECT, -1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     
     if(H5Rcreate(&wbuf[4], fid1, "/Group1/Group2/Dataset4", H5R_OBJECT, -1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if(H5Rcreate(&wbuf[5], fid1, "/Group1/Group2", H5R_OBJECT, -1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if(H5Rcreate(&wbuf[6], fid1, "/Group1/Group2/Link/Dataset5", H5R_OBJECT, -1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Create reference to root group */
     if(H5Rcreate(&wbuf[7], fid1, "/", H5R_OBJECT, -1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     /* Write selection to disk */
     if(H5Dwrite(dataset, H5T_STD_REF_OBJ, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     TESTING("getting path to normal dataset in root group"); 
-    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[0])) < 0) TEST_ERROR
+    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[0])) < 0) FAIL_STACK_ERROR
     i = H5Iget_name(dataset2,(char*)buf, sizeof(buf));
-    if(H5Dclose(dataset2) < 0) TEST_ERROR
+    if(H5Dclose(dataset2) < 0) FAIL_STACK_ERROR
     if(!((HDstrcmp(buf, "/Dataset3") == 0) &&(i == 9))) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[0],(char*)buf, sizeof(buf));
     if(!((HDstrcmp(buf, "/Dataset3") == 0) &&(i == 9))) TEST_ERROR
@@ -2524,9 +2523,9 @@ test_obj_ref(hid_t fapl)
 
     HDmemset(buf, 0, sizeof(buf));
     TESTING("getting path to dataset in /Group1"); 
-    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[1])) < 0) TEST_ERROR
+    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[1])) < 0) FAIL_STACK_ERROR
     i = H5Iget_name(dataset2,(char*)buf, sizeof(buf));
-    if(H5Dclose(dataset2) < 0) TEST_ERROR
+    if(H5Dclose(dataset2) < 0) FAIL_STACK_ERROR
     if(!((HDstrcmp(buf, "/Group1/Dataset2") == 0) &&(i == 16))) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[1],(char*)buf, sizeof(buf));
     if(!((HDstrcmp(buf, "/Group1/Dataset2") == 0) &&(i == 16))) TEST_ERROR
@@ -2534,9 +2533,9 @@ test_obj_ref(hid_t fapl)
 
     HDmemset(buf, 0, sizeof(buf));
     TESTING("getting path to /Group1"); 
-    if((group = H5Rdereference(dataset, H5R_OBJECT, &wbuf[2])) < 0) TEST_ERROR
+    if((group = H5Rdereference(dataset, H5R_OBJECT, &wbuf[2])) < 0) FAIL_STACK_ERROR
     i = H5Iget_name(group,(char*)buf, sizeof(buf));
-    if(H5Gclose(group) < 0) TEST_ERROR
+    if(H5Gclose(group) < 0) FAIL_STACK_ERROR
     if(!((HDstrcmp(buf, "/Group1") == 0) &&(i == 7))) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[2],(char*)buf, sizeof(buf));
     if(!((HDstrcmp(buf, "/Group1") == 0) &&(i == 7))) TEST_ERROR
@@ -2544,9 +2543,9 @@ test_obj_ref(hid_t fapl)
 
     HDmemset(buf, 0, sizeof(buf));
     TESTING("getting path to datatype in /Group1"); 
-    if((tid1 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[3])) < 0) TEST_ERROR
+    if((tid1 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[3])) < 0) FAIL_STACK_ERROR
     i = H5Iget_name(tid1,(char*)buf, sizeof(buf));
-    if(H5Tclose(tid1) < 0) TEST_ERROR
+    if(H5Tclose(tid1) < 0) FAIL_STACK_ERROR
     if(!((HDstrcmp(buf, "/Group1/Datatype1") == 0) &&(i == 17))) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[3],(char*)buf, sizeof(buf));
     if(!((HDstrcmp(buf, "/Group1/Datatype1") == 0) &&(i == 17))) TEST_ERROR
@@ -2554,9 +2553,9 @@ test_obj_ref(hid_t fapl)
 
     HDmemset(buf, 0, sizeof(buf));
     TESTING("getting path to dataset in nested group"); 
-    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[4])) < 0) TEST_ERROR
+    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[4])) < 0) FAIL_STACK_ERROR
     i = H5Iget_name(dataset2,(char*)buf, sizeof(buf));
-    if(H5Dclose(dataset2) < 0) TEST_ERROR
+    if(H5Dclose(dataset2) < 0) FAIL_STACK_ERROR
     if(!((HDstrcmp(buf, "/Group1/Group2/Dataset4") == 0) &&(i == 23))) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[4],(char*)buf, sizeof(buf));
     if(!((HDstrcmp(buf, "/Group1/Group2/Dataset4") == 0) &&(i == 23))) TEST_ERROR
@@ -2564,9 +2563,9 @@ test_obj_ref(hid_t fapl)
 
     HDmemset(buf, 0, sizeof(buf));
     TESTING("getting path to nested group"); 
-    if((group = H5Rdereference(dataset, H5R_OBJECT, &wbuf[5])) < 0) TEST_ERROR
+    if((group = H5Rdereference(dataset, H5R_OBJECT, &wbuf[5])) < 0) FAIL_STACK_ERROR
     i = H5Iget_name(group,(char*)buf, sizeof(buf));
-    if(H5Gclose(group) < 0) TEST_ERROR
+    if(H5Gclose(group) < 0) FAIL_STACK_ERROR
     if(!((HDstrcmp(buf, "/Group1/Group2") == 0) &&(i == 14))) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[5],(char*)buf, sizeof(buf));
     if(!((HDstrcmp(buf, "/Group1/Group2") == 0) &&(i == 14))) TEST_ERROR
@@ -2574,9 +2573,9 @@ test_obj_ref(hid_t fapl)
 
     HDmemset(buf, 0, sizeof(buf));
     TESTING("getting path to dataset created via hard link"); 
-    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[6])) < 0) TEST_ERROR
+    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[6])) < 0) FAIL_STACK_ERROR
     i = H5Iget_name(dataset2,(char*)buf, sizeof(buf));
-    if(H5Dclose(dataset2) < 0) TEST_ERROR
+    if(H5Dclose(dataset2) < 0) FAIL_STACK_ERROR
     if(!((HDstrcmp(buf, "/Group1/Dataset5") == 0) &&(i == 16))) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[6],(char*)buf, sizeof(buf));
     if(!((HDstrcmp(buf, "/Group1/Dataset5") == 0) &&(i == 16))) TEST_ERROR
@@ -2584,9 +2583,9 @@ test_obj_ref(hid_t fapl)
 
     HDmemset(buf, 0, sizeof(buf));
     TESTING("getting path to root group"); 
-    if((group = H5Rdereference(dataset, H5R_OBJECT, &wbuf[7])) < 0) TEST_ERROR
+    if((group = H5Rdereference(dataset, H5R_OBJECT, &wbuf[7])) < 0) FAIL_STACK_ERROR
     i = H5Iget_name(group,(char*)buf, sizeof(buf));
-    if(H5Gclose(group) < 0) TEST_ERROR
+    if(H5Gclose(group) < 0) FAIL_STACK_ERROR
     if(!((HDstrcmp(buf, "/") == 0) &&(i == 1))) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[7],(char*)buf, sizeof(buf));
     if(!((HDstrcmp(buf, "/") == 0) &&(i == 1))) TEST_ERROR
@@ -2594,12 +2593,12 @@ test_obj_ref(hid_t fapl)
 
     /* Now we mount fid2 at /Group2 and look for dataset4.  It shouldn't be found */
     if(H5Fmount(fid1, "/Group1/Group2", fid2, H5P_DEFAULT) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     TESTING("getting path to dataset hidden by a mounted file");
-    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[4])) < 0) TEST_ERROR
-    i = H5Iget_name(dataset2,(char*)buf, sizeof(buf));
-    if(H5Dclose(dataset2) < 0) TEST_ERROR
+    if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[4])) < 0) FAIL_STACK_ERROR
+    i = H5Iget_name(dataset2, (char*)buf, sizeof(buf));
+    if(H5Dclose(dataset2) < 0) FAIL_STACK_ERROR
     if(i != 0) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[4],(char*)buf, sizeof(buf));
     if(i != 0) TEST_ERROR
@@ -2607,13 +2606,13 @@ test_obj_ref(hid_t fapl)
 
     /* Now we try unlinking dataset2 from the file and searching for it.  It shouldn't be found */
     if((dataset2 = H5Rdereference(dataset, H5R_OBJECT, &wbuf[1])) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if(H5Gunlink(fid1, "/Group1/Dataset2") < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
  
     TESTING("getting path to dataset that has been unlinked"); 
-    i = H5Iget_name(dataset2,(char*)buf, sizeof(buf));
-    if(H5Dclose(dataset2) < 0) TEST_ERROR
+    i = H5Iget_name(dataset2, (char*)buf, sizeof(buf));
+    if(H5Dclose(dataset2) < 0) FAIL_STACK_ERROR
     if(i != 0) TEST_ERROR
     i = H5Rget_name(dataset, H5R_OBJECT, &wbuf[1],(char*)buf, sizeof(buf));
     if(i != 0) TEST_ERROR
@@ -2621,17 +2620,17 @@ test_obj_ref(hid_t fapl)
     
     /* Close disk dataspace */
     if(H5Sclose(sid1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     
     /* Close Dataset */
     if(H5Dclose(dataset) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
  
     /* Close file */
     if(H5Fclose(fid1) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
     if(H5Fclose(fid2) < 0)
-        TEST_ERROR
+        FAIL_STACK_ERROR
 
     return 0;