summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2011-09-05 20:06:15 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2011-09-05 20:06:15 (GMT)
commit85726e28fc864da521234244802a39d5a1ac23c2 (patch)
tree3601ba4a0afe06300b85f93918c1dace3df842b2
parent188c31b1d9db97e9657fa7a952e82c5d93eaa159 (diff)
downloadhdf5-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.f9016
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