From 055e699cdfc00875f916ba9eb089c9986d2c0ab7 Mon Sep 17 00:00:00 2001
From: "M. Scot Breitenfeld" <brtnfld@hdfgroup.org>
Date: Tue, 18 Feb 2020 16:59:04 -0600
Subject: Corrected INTERFACE INTENT(IN) to INTENT(OUT) for buf_size

---
 fortran/src/H5Fff.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/src/H5Fff.F90 b/fortran/src/H5Fff.F90
index 8574c06..62e8de8 100644
--- a/fortran/src/H5Fff.F90
+++ b/fortran/src/H5Fff.F90
@@ -967,7 +967,7 @@ CONTAINS
          INTEGER(HID_T) , INTENT(IN) :: file_id
          TYPE(C_PTR)    , VALUE      :: buf_ptr
          INTEGER(SIZE_T), INTENT(IN) :: buf_len
-         INTEGER(SIZE_T), INTENT(IN) :: buf_size
+         INTEGER(SIZE_T), INTENT(OUT) :: buf_size
        END FUNCTION h5fget_file_image_c
     END INTERFACE
 
-- 
cgit v0.12