H5Eprint re-work

brtnfld · Feb 23, 2024 · aadb14a · aadb14a
1 parent 8672d31
commit aadb14a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fortran/src/H5Eff.F90 b/fortran/src/H5Eff.F90
@@ -166,7 +166,7 @@ SUBROUTINE h5eprint2_f(err_stack, hdferr, name)
        c_namelen = C_LOC(namelen)
        hdferr = h5eprint_c(err_stack, name, c_namelen)
     ELSE
-       hdferr = h5eprint_c(err_stack, "", C_NULL_PTR)
+       hdferr = h5eprint_c(err_stack, C_NULL_CHAR, C_NULL_PTR)
     ENDIF
   END SUBROUTINE h5eprint2_f