From 25f2ebda39e5a2932853668b88f821a5bd0faf32 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Wed, 25 Jan 2006 11:53:14 -0500 Subject: [svn-r11891] Purpose: Small bug fix Description: h5_group example didn't work on VMS; it turned out that a group was not closed and since the default file close degree is "weak", file was not closed either. When program attempted to open the same file, system reported an error since the file was "locked by another user". UNIX systems apperently do not care and open the same file without any problem. Solution: Added H5Gclose calls. Platforms tested: VMS server and heping Misc. update: --- examples/h5_group.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/examples/h5_group.c b/examples/h5_group.c index 7afe19b..870f34f 100644 --- a/examples/h5_group.c +++ b/examples/h5_group.c @@ -93,6 +93,7 @@ main(void) H5Sclose(dataspace); H5Dclose(dataset); H5Pclose(plist); + H5Gclose(grp); H5Fclose(file); /* @@ -158,7 +159,8 @@ main(void) * Close the file. */ - status = H5Fclose(file); + H5Gclose(grp); + H5Fclose(file); return 0; } -- cgit v0.12