diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-18 18:51:13 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-18 18:51:13 (GMT) |
| commit | 27a385d557df87a50fdec678c808e669d63d5b82 (patch) | |
| tree | cd9cfb7e0d0119335b2215e789ad85a53935bbe9 /fortran/test | |
| parent | 41aeac45047cd5a18b7862e6138b9e886c5634ed (diff) | |
| download | hdf5-27a385d557df87a50fdec678c808e669d63d5b82.zip hdf5-27a385d557df87a50fdec678c808e669d63d5b82.tar.gz hdf5-27a385d557df87a50fdec678c808e669d63d5b82.tar.bz2 | |
[svn-r26214] Fix for HDFFV-8908:
h5tenum_insert_f does not work with default 8 byte integers (xlf compiler)
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/tH5T_F03.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/tH5T_F03.f90 b/fortran/test/tH5T_F03.f90 index f15424d..d9a671c 100644 --- a/fortran/test/tH5T_F03.f90 +++ b/fortran/test/tH5T_F03.f90 @@ -1419,7 +1419,7 @@ SUBROUTINE t_enum(total_error) ! Insert enumerated value for memtype. ! val(1) = i - CALL H5Tenum_insert_f(memtype, TRIM(names(i+1)), val(1), error) + CALL H5Tenum_insert_f(memtype, TRIM(names(i+1)), C_LOC(val(1)), error) CALL check("H5Tenum_insert_f", error, total_error) ! ! Insert enumerated value for filetype. We must first convert |