From 8b2e36355cac57cfcf2199c35d1dee94f3ba54b6 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Wed, 1 Nov 2023 15:05:49 -0500 Subject: [PATCH] fix seg fault on frontier/cray --- fortran/src/H5Pff.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90 index d4e1294f1b2..17f107a37f4 100644 --- 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