From e073f5c25c330f59abad2c9cb35ae80dd5afa64a Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Thu, 21 Mar 2024 15:52:58 -0500
Subject: [PATCH] fixed h5fcreate_f

---
 fortran/src/H5Fff.F90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fortran/src/H5Fff.F90 b/fortran/src/H5Fff.F90
index e8b765b7696..0c8b1d84099 100644
--- a/fortran/src/H5Fff.F90
+++ b/fortran/src/H5Fff.F90
@@ -120,10 +120,10 @@ SUBROUTINE h5fcreate_f(name, access_flags, file_id, hdferr, &
     INTERFACE
        INTEGER(HID_T) FUNCTION H5Fcreate(name, access_flags, &
             creation_prp_default, access_prp_default) BIND(C,NAME='H5Fcreate')
-         IMPORT :: C_CHAR
+         IMPORT :: C_CHAR, C_INT
          IMPORT :: HID_T
          CHARACTER(KIND=C_CHAR), DIMENSION(*) :: name
-         INTEGER, VALUE :: access_flags
+         INTEGER(C_INT), VALUE :: access_flags
          INTEGER(HID_T), VALUE :: creation_prp_default
          INTEGER(HID_T), VALUE :: access_prp_default
        END FUNCTION H5Fcreate
@@ -137,7 +137,7 @@ END FUNCTION H5Fcreate
     IF (PRESENT(creation_prp)) creation_prp_default = creation_prp
     IF (PRESENT(access_prp))   access_prp_default   = access_prp
 
-    file_id = h5fcreate(c_name, access_flags, &
+    file_id = h5fcreate(c_name, INT(access_flags, C_INT), &
          creation_prp_default, access_prp_default)
 
     hdferr = 0