diff options
| -rw-r--r-- | fortran/src/H5Af.c | 18 | ||||
| -rw-r--r-- | fortran/src/H5Pff.F90 | 5 |
2 files changed, 3 insertions, 20 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c index d0821f6..7d343a2 100644 --- a/fortran/src/H5Af.c +++ b/fortran/src/H5Af.c @@ -118,24 +118,6 @@ done: return ret_value; } -int_f -h5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims) -/******/ -{ - int_f ret_value=0; /* Return value */ - - /* - * Call H5Awrite function. - */ - if (H5Awrite((hid_t)*attr_id, (hid_t)*mem_type_id, buf) < 0) - HGOTO_DONE(FAIL); - -done: - return ret_value; -} - - - /****if* H5Af/h5aclose_c * NAME * h5aclose_c diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90 index 3b40757..8da1a3d 100644 --- a/fortran/src/H5Pff.F90 +++ b/fortran/src/H5Pff.F90 @@ -33,8 +33,9 @@ MODULE H5P - USE, INTRINSIC :: ISO_C_BINDING, ONLY : c_ptr, c_null_ptr, c_funptr, c_null_funptr, & - c_char, c_int, C_NULL_CHAR, C_LOC, C_DOUBLE, C_FLOAT +! Can't specify ONLY because of a bug in gfortran < v4.7 Bug: 45190, 37829 + USE, INTRINSIC :: ISO_C_BINDING !, ONLY : c_ptr, c_null_ptr, c_funptr, c_null_funptr, & +! c_char, c_int, C_NULL_CHAR, C_LOC, C_DOUBLE, C_FLOAT USE H5GLOBAL INTERFACE h5pset_fapl_multi_f |