diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-03-07 15:13:51 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-03-07 15:13:51 (GMT) |
commit | 6d350b411235b07f1ddbbc209204111a6ad31746 (patch) | |
tree | 398d5169df428203492e8b1767cf978281b6a149 /hl/fortran/src/H5TBff.f90 | |
parent | 86f15d4a3326979f8a0b3898a0b7eccc453a6d38 (diff) | |
download | hdf5-6d350b411235b07f1ddbbc209204111a6ad31746.zip hdf5-6d350b411235b07f1ddbbc209204111a6ad31746.tar.gz hdf5-6d350b411235b07f1ddbbc209204111a6ad31746.tar.bz2 |
[svn-r20195] Description: Fixed memory leaks (valgrind detected) in field_info and make tables routines.
Tested: jam (gnu and intel compilers)
Diffstat (limited to 'hl/fortran/src/H5TBff.f90')
-rwxr-xr-x | hl/fortran/src/H5TBff.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hl/fortran/src/H5TBff.f90 b/hl/fortran/src/H5TBff.f90 index 202c197..36e13f9 100755 --- a/hl/fortran/src/H5TBff.f90 +++ b/hl/fortran/src/H5TBff.f90 @@ -166,7 +166,7 @@ SUBROUTINE h5tbmake_table_f(table_title,& ! Find the size of each character string in the array DO i = 1, nfields - char_len_field_names(i) = LEN_TRIM(field_names(i)) + char_len_field_names(i) = LEN_TRIM(field_names(i)) END DO max_char_size_field_names = LEN(field_names(1)) @@ -1859,8 +1859,8 @@ SUBROUTINE h5tbget_field_info_f(loc_id,& DO i = 1, nfields namelen2(i) = LEN_TRIM(field_names(i)) END DO - maxlen = LEN(field_names(1)) + c_maxlen_out = 0 errcode = h5tbget_field_info_c(loc_id, namelen,dset_name, nfields, & field_sizes, field_offsets, type_size, namelen2, maxlen, field_names, c_maxlen_out) |