1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
#include "h5test.h"
int
main(int argc, char **argv)
{
H5R_ref_t write_ref, read_ref;
hid_t fid;
hid_t did;
hid_t sid;
int i;
if ((fid = H5Fcreate("HDFFV-10992.h5", H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
HDfprintf(stderr, "H5Fcreate failed\n");
return 1;
}
if ((sid = H5Screate(H5S_SCALAR)) < 0) {
HDfprintf(stderr, "H5Screate failed\n");
return 1;
}
/* Create a dataset of object references */
if ((did = H5Dcreate2(fid, "dset", H5T_STD_REF, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
HDfprintf(stderr, "H5Dcreate failed\n");
return 1;
}
for (i = 0; i < 100; i++) {
/* Create reference to the root group */
if (H5Rcreate_object(fid, "/dset", H5P_DEFAULT, &write_ref) < 0) {
HDfprintf(stderr, "H5Rcreate_object failed\n");
return 1;
}
}
/* Write reference to dataset */
if (H5Dwrite(did, H5T_STD_REF, H5S_ALL, H5S_ALL, H5P_DEFAULT, &write_ref) < 0) {
HDfprintf(stderr, "H5Dwrite failed\n");
return 1;
}
for (i = 0; i < 500; i++) {
/* Read reference back into different reference buffer */
if (H5Dread(did, H5T_STD_REF, H5S_ALL, H5S_ALL, H5P_DEFAULT, &read_ref) < 0) {
HDfprintf(stderr, "H5Dread failed\n");
return 1;
}
}
/*
* "Forget" to call H5Rdestroy on reference objects. If H5Rdestroy
* is called at least once on either reference object, or both
* objects, the infinite loop goes away. If H5Rdestroy is never
* called, the infinite loop will appear.
*/
#if 0
if (H5Rdestroy(&write_ref) < 0) {
HDfprintf(stderr, "H5Rdestroy on reference write buffer failed\n");
return 1;
}
if (H5Rdestroy(&read_ref) < 0) {
HDfprintf(stderr, "H5Rdestroy on reference read buffer failed\n");
return 1;
}
#endif
if (H5Sclose(sid) < 0) {
HDfprintf(stderr, "H5Sclose failed\n");
return 1;
}
if (H5Dclose(did) < 0) {
HDfprintf(stderr, "H5Dclose failed\n");
return 1;
}
if (H5Fclose(fid) < 0) {
HDfprintf(stderr, "H5Fclose failed\n");
return 1;
}
return 0;
}
|
