diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-02-18 02:01:18 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-02-18 02:01:18 (GMT) |
commit | a976ca99a9de1fbe2496c23fa941b7c3e8af3967 (patch) | |
tree | b00f06e247a8c61c8a53d09a3d4201948b703c70 /fortran/src/H5Lf.c | |
parent | 32da9c96aed341fa67670e84b82ca9292bd1506c (diff) | |
download | hdf5-a976ca99a9de1fbe2496c23fa941b7c3e8af3967.zip hdf5-a976ca99a9de1fbe2496c23fa941b7c3e8af3967.tar.gz hdf5-a976ca99a9de1fbe2496c23fa941b7c3e8af3967.tar.bz2 |
[svn-r23293] Fix for HDFFV-8268: Fortran wrapper for H5Fget_file_image function.
Tested: (jam, gnu,intel compilers)
Diffstat (limited to 'fortran/src/H5Lf.c')
-rw-r--r-- | fortran/src/H5Lf.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5Lf.c b/fortran/src/H5Lf.c index e5b01ed..c5138b6 100644 --- a/fortran/src/H5Lf.c +++ b/fortran/src/H5Lf.c @@ -725,7 +725,7 @@ nh5lget_name_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, if(NULL == (c_name = (char *)HDmalloc(c_size))) HGOTO_DONE(FAIL) - if((*size = (size_t)H5Lget_name_by_idx((hid_t)*loc_id, c_group_name, (H5_index_t)*index_field, + if((*size = (size_t_f)H5Lget_name_by_idx((hid_t)*loc_id, c_group_name, (H5_index_t)*index_field, (H5_iter_order_t)*order, (hsize_t)*n,c_name, c_size, (hid_t)*lapl_id)) < 0) HGOTO_DONE(FAIL) |