fix seg fault on frontier/cray

HDFGroup · Nov 1, 2023 · 8b2e363 · 8b2e363
1 parent 565bbb0
commit 8b2e363
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90
@@ -5003,8 +5003,8 @@ SUBROUTINE h5pcreate_class_f(parent, name, class, hdferr, create, create_data, &
     CHARACTER(LEN=*), INTENT(IN)  :: name
     INTEGER(HID_T)  , INTENT(OUT) :: class
     INTEGER         , INTENT(OUT) :: hdferr
-    TYPE(C_PTR)     , OPTIONAL, INTENT(INOUT) :: create_data, copy_data, close_data
-    TYPE(C_FUNPTR)  , OPTIONAL, INTENT(INOUT) :: create, copy, close
+    TYPE(C_PTR)     , OPTIONAL, INTENT(IN) :: create_data, copy_data, close_data
+    TYPE(C_FUNPTR)  , OPTIONAL, INTENT(IN) :: create, copy, close
     TYPE(C_PTR)    :: create_data_default, copy_data_default, close_data_default
     TYPE(C_FUNPTR) :: create_default, copy_default, close_default