From b3743a44238c284dc3817652271aa1475e3c4946 Mon Sep 17 00:00:00 2001
From: "M. Scot Breitenfeld" <brtnfld@hdfgroup.org>
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