added pass by value

brtnfld · Mar 18, 2024 · 61622f1 · 61622f1
1 parent ce6a685
commit 61622f1
Showing 1 changed file with 6 additions and 1 deletion.
diff --git 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