diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-06-13 15:31:14 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-06-13 15:31:14 (GMT) |
| commit | e5d1da02244603f19e165c573326835f7a634b47 (patch) | |
| tree | a1db74ff9e2ae82fc6b1a000a81ebee454970a46 /fortran/src | |
| parent | c348d7d6062f34554f8d432ea9d80bf2c936c734 (diff) | |
| download | hdf5-e5d1da02244603f19e165c573326835f7a634b47.zip hdf5-e5d1da02244603f19e165c573326835f7a634b47.tar.gz hdf5-e5d1da02244603f19e165c573326835f7a634b47.tar.bz2 | |
fixed invalid pointer
Diffstat (limited to 'fortran/src')
| -rw-r--r-- | fortran/src/H5VLff.F90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/src/H5VLff.F90 b/fortran/src/H5VLff.F90 index 0c5e8fd..9abc157 100644 --- a/fortran/src/H5VLff.F90 +++ b/fortran/src/H5VLff.F90 @@ -232,7 +232,8 @@ CONTAINS hdferr = 0 IF(PRESENT(name_len))THEN - name_len = INT(H5VLget_connector_name(obj_id, c_name, 0_SIZE_T), SIZE_T) + c_name(1:1)(1:1) = C_NULL_CHAR + name_len = INT(H5VLget_connector_name(obj_id, c_name, 1_SIZE_T), SIZE_T) IF(name_len.LT.0) hdferr = H5I_INVALID_HID_F ELSE l = INT(LEN(name)+1,SIZE_T) |