diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-09-05 20:06:15 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-09-05 20:06:15 (GMT) |
| commit | 85726e28fc864da521234244802a39d5a1ac23c2 (patch) | |
| tree | 3601ba4a0afe06300b85f93918c1dace3df842b2 | |
| parent | 188c31b1d9db97e9657fa7a952e82c5d93eaa159 (diff) | |
| download | hdf5-85726e28fc864da521234244802a39d5a1ac23c2.zip hdf5-85726e28fc864da521234244802a39d5a1ac23c2.tar.gz hdf5-85726e28fc864da521234244802a39d5a1ac23c2.tar.bz2 | |
[svn-r21362] Change the integer type for filno in in H5O_info_t derived type to c_long to match the unsigned long, via standard:
F2003, Note 15.9
"The C international standard specifies that the representations for
nonnegative signed integers ar ethe same as the corresponding
values for signed integers. Because Fortran does not provide direct
support for unsigned kinds of integers, the ISO_C_BINDING module
does not make accessible named constants for their kind type
parameter values. Instead, a user can use the signed kinds of
integers to interoperate with the unsigned types and all their
qualified versions as well...."
Tested: (jam, intel)
| -rw-r--r-- | fortran/src/H5Off_F03.f90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/fortran/src/H5Off_F03.f90 b/fortran/src/H5Off_F03.f90 index 0a72831..3ca3255 100644 --- a/fortran/src/H5Off_F03.f90 +++ b/fortran/src/H5Off_F03.f90 @@ -85,13 +85,13 @@ MODULE H5O_PROVISIONAL TYPE, BIND(C) :: H5O_info_t - INTEGER(HADDR_T) :: fileno ! File number that object is located in - ! unsigned long - INTEGER(HADDR_T) :: addr ! Object address in file - INTEGER :: TYPE ! Basic object type (group, dataset, etc.) - ! H5O_type_t type - INTEGER(c_int) :: rc ! Reference count of object - ! unsigned rc + INTEGER(c_long) :: fileno ! File number that object is located in + ! unsigned long + INTEGER(HADDR_T) :: addr ! Object address in file + INTEGER(c_int) :: TYPE ! Basic object type (group, dataset, etc.) + ! H5O_type_t type which is type enum + INTEGER(c_int) :: rc ! Reference count of object + ! unsigned rc INTEGER(c_int) :: atime ! Access time INTEGER(c_int) :: mtime ! Modification time INTEGER(c_int) :: ctime ! Change time @@ -241,7 +241,7 @@ CONTAINS CHARACTER(LEN=*), INTENT(IN) :: name INTEGER(SIZE_T) , INTENT(IN) :: namelen INTEGER(HID_T) , INTENT(IN) :: lapl_id_default - TYPE(C_PTR),value :: object_info + TYPE(C_PTR),value :: object_info END FUNCTION h5oget_info_by_name_c END INTERFACE |