fixed return type of callback

HDFGroup · Mar 27, 2024 · d347a2b · d347a2b
1 parent f240cd4
commit d347a2b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/test/tH5P_F03.F90 b/fortran/test/tH5P_F03.F90
@@ -47,7 +47,7 @@ MODULE test_genprop_cls_cb1_mod
 
 CONTAINS
 
-  INTEGER FUNCTION test_genprop_cls_cb1_f(list_id, create_data ) bind(C)
+  INTEGER(KIND=C_INT) FUNCTION test_genprop_cls_cb1_f(list_id, create_data ) bind(C)
 
     IMPLICIT NONE