From 61622f1a4a764b306d2053975e526b66ea82a43b Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Mon, 18 Mar 2024 16:34:20 -0500
Subject: [PATCH] added pass by value

---
 fortran/test/tH5E_F03.F90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/fortran/test/tH5E_F03.F90 b/fortran/test/tH5E_F03.F90
index 3677ff86908..b538e20c530 100644
--- a/fortran/test/tH5E_F03.F90
+++ b/fortran/test/tH5E_F03.F90
@@ -89,7 +89,7 @@ INTEGER(C_INT) FUNCTION custom_print_cb(n, err_desc, op_data) BIND(C)
 
     INTEGER(SIZE_T), PARAMETER :: MSG_SIZE = 64
 
-    INTEGER(C_INT)    :: n
+    INTEGER(C_INT), VALUE :: n
     TYPE(h5e_error_t) :: err_desc
     TYPE(C_PTR)       :: op_data
 
@@ -101,6 +101,11 @@ INTEGER(C_INT) FUNCTION custom_print_cb(n, err_desc, op_data) BIND(C)
 
     INTEGER :: error
 
+    IF(n.NE.0_C_INT)THEN
+       custom_print_cb = -1
+       RETURN
+    ENDIF
+
     CALL H5Eget_class_name_f(err_desc%cls_id, cls, error)
     IF(error .LT.0)THEN
        custom_print_cb = -1