From 51d911a7f8cd86bb2f4ed4e54e67da6c425efcee Mon Sep 17 00:00:00 2001 From: "M. Scot Breitenfeld" Date: Wed, 9 Jan 2019 10:40:18 -0600 Subject: fix for xlf compiler --- fortran/src/H5_ff.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90 index a66ac95..84529e4 100644 --- a/fortran/src/H5_ff.F90 +++ b/fortran/src/H5_ff.F90 @@ -940,10 +940,11 @@ CONTAINS INTEGER(C_INT), DIMENSION(:), POINTER :: c_time INTERFACE - TYPE(C_PTR) FUNCTION gmtime(stdtime_t) BIND(C, NAME='gmtime') + FUNCTION gmtime(stdtime_t) BIND(C, NAME='gmtime') IMPORT :: TIME_T, C_PTR IMPLICIT NONE INTEGER(KIND=TIME_T) :: stdtime_t + TYPE(C_PTR) :: gmtime END FUNCTION gmtime END INTERFACE -- cgit v0.12 From b3743a44238c284dc3817652271aa1475e3c4946 Mon Sep 17 00:00:00 2001 From: "M. Scot Breitenfeld" Date: Wed, 9 Jan 2019 11:21:56 -0600 Subject: fixed 8 byte integer issue --- fortran/src/H5Off.F90 | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/fortran/src/H5Off.F90 b/fortran/src/H5Off.F90 index 13dcf01..8c77230 100644 --- a/fortran/src/H5Off.F90 +++ b/fortran/src/H5Off.F90 @@ -69,6 +69,15 @@ MODULE H5O TYPE(mesg_t) :: mesg END TYPE hdr_t + TYPE, BIND(C) :: c_hdr_t + INTEGER(C_INT) :: version ! Version number of header format in file + INTEGER(C_INT) :: nmesgs ! Number of object header messages + INTEGER(C_INT) :: nchunks ! Number of object header chunks + INTEGER(C_INT) :: flags ! Object header status flags + TYPE(space_t) :: space + TYPE(mesg_t) :: mesg + END TYPE c_hdr_t + ! Extra metadata storage for obj & attributes TYPE, BIND(C) :: H5_ih_info_t INTEGER(hsize_t) :: index_size ! btree and/or list @@ -115,7 +124,7 @@ MODULE H5O INTEGER(hsize_t) :: num_attrs ! # of attributes attached to object - TYPE(hdr_t) :: hdr + TYPE(c_hdr_t) :: hdr TYPE(meta_size_t) :: meta_size END TYPE c_h5o_info_t -- cgit v0.12