diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-05 01:00:37 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-05 01:00:37 (GMT) |
commit | e182fc3bb89b465640b6428c15abd57e1b3fd8e6 (patch) | |
tree | 867115a07ae7d9da7f8859590006d47a1a89b610 /fortran/src | |
parent | f6069ad57e7ddf4b97e4c40e16d1b09464cf62a5 (diff) | |
download | hdf5-e182fc3bb89b465640b6428c15abd57e1b3fd8e6.zip hdf5-e182fc3bb89b465640b6428c15abd57e1b3fd8e6.tar.gz hdf5-e182fc3bb89b465640b6428c15abd57e1b3fd8e6.tar.bz2 |
[svn-r14930] Maintenance: Fixed more bugs/typos and enabled tests that were failing previously on linew.
Currently only one test (dense attributes) is failing. It looks like C library problem and we
have a similar bug report in Bugzilla: when dense storage is used, attributes are not written
to the file; somehow similar C test doesn't expose the problem while Fortran test does.
Platforms tested: linew, kagiso with g95 and PGI
Diffstat (limited to 'fortran/src')
-rw-r--r-- | fortran/src/H5Af.c | 6 | ||||
-rw-r--r-- | fortran/src/H5Lf.c | 2 | ||||
-rw-r--r-- | fortran/src/H5f90proto.h | 8 |
3 files changed, 8 insertions, 8 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c index 5fdc27e..3b6feb0 100644 --- a/fortran/src/H5Af.c +++ b/fortran/src/H5Af.c @@ -1193,7 +1193,7 @@ done: *---------------------------------------------------------------------------*/ int_f nh5adelete_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, - int_f *idx_type, int_f *order, size_t_f *n, hid_t_f *lapl_id) + int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id) { char *c_obj_name = NULL; /* Buffer to hold C string */ H5_index_t c_idx_type; @@ -1260,7 +1260,7 @@ done: *---------------------------------------------------------------------------*/ int_f nh5aget_name_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, - int_f *idx_type, int_f *order, size_t_f *n, _fcd name, + int_f *idx_type, int_f *order, hsize_t_f *n, _fcd name, size_t_f *size, hid_t_f *lapl_id) { char *c_obj_name = NULL; /* Buffer to hold C string */ @@ -1444,7 +1444,7 @@ done: *---------------------------------------------------------------------------*/ int_f nh5aget_info_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, - int_f *idx_type, int_f *order, size_t_f *n, hid_t_f *lapl_id, + int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id, int_f *corder_valid, int_f *corder, int_f *cset, hsize_t_f *data_size ) { diff --git a/fortran/src/H5Lf.c b/fortran/src/H5Lf.c index 208ad19..b6f0a8e 100644 --- a/fortran/src/H5Lf.c +++ b/fortran/src/H5Lf.c @@ -301,7 +301,7 @@ nh5lcreate_hard_c(hid_t_f *obj_loc_id, _fcd obj_name, size_t_f *obj_namelen, *---------------------------------------------------------------------------*/ int_f nh5ldelete_by_idx_c (hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, - int_f *index_field, int_f *order, size_t_f *n, hid_t_f *lapl_id) + int_f *index_field, int_f *order, hsize_t_f *n, hid_t_f *lapl_id) { char *c_group_name = NULL; /* Buffer to hold C string */ H5_index_t c_index_field; diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index 1943f60..03060f0 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -572,9 +572,9 @@ H5_FCDLL int_f nh5aopen_c ( hid_t_f *obj_id, _fcd attr_name, size_t_f *attr_name H5_FCDLL int_f nh5adelete_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen, hid_t_f *lapl_id); /* MSB */ H5_FCDLL int_f nh5adelete_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, - int_f *idx_type, int_f *order, size_t_f *n, hid_t_f *lapl_id); /* MSB */ + int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id); /* MSB */ H5_FCDLL int_f nh5aget_name_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, - int_f *idx_type, int_f *order, size_t_f *n, _fcd name, + int_f *idx_type, int_f *order, hsize_t_f *n, _fcd name, size_t_f *size, hid_t_f *lapl_id); /* MSB */ H5_FCDLL int_f nh5aget_create_plist_c ( hid_t_f *attr_id, hid_t_f *creation_prop_id ); /* MSB */ H5_FCDLL int_f nh5aopen_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, @@ -582,7 +582,7 @@ H5_FCDLL int_f nh5aopen_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_ H5_FCDLL int_f nh5aget_info_c (hid_t_f *loc_id, int_f *corder_valid, int_f *corder, int_f *cset, hsize_t_f *data_size ); /* MSB */ H5_FCDLL int_f nh5aget_info_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, - int_f *idx_type, int_f *order, size_t_f *n, hid_t_f *lapl_id, + int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id, int_f *corder_valid, int_f *corder, int_f *cset, hsize_t_f *data_size ); /* MSB */ H5_FCDLL int_f nh5aget_info_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, @@ -1186,7 +1186,7 @@ H5_FCDLL int_f nh5lcreate_soft_c(_fcd target_path, size_t_f *target_path_len, hid_t_f *lcpl_id, hid_t_f *lapl_id ); /*MSB*/ H5_FCDLL int_f nh5ldelete_c( hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id ); /*MSB*/ H5_FCDLL int_f nh5ldelete_by_idx_c (hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, - int_f *index_field, int_f *order, size_t_f *n, hid_t_f *lapl_id); /*MSB*/ + int_f *index_field, int_f *order, hsize_t_f *n, hid_t_f *lapl_id); /*MSB*/ H5_FCDLL int_f nh5lexists_c (hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *lapl_id, hid_t_f *link_exists); /*MSB*/ H5_FCDLL int_f nh5lget_info_c (hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen, int_f *cset, int_f *corder, int_f *corder_valid, int_f *link_type, |