diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-22 19:19:29 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-22 19:19:29 (GMT) |
| commit | ab5e55bbf270172ccfa833e0068eaa2a0ccd7e07 (patch) | |
| tree | e2ed7db91a24f95aa988c86e0537cc771061e67d /fortran/src/H5Af.c | |
| parent | 0a5ca8ad05ef2d2c8ffeb8205151e391e85b52c4 (diff) | |
| download | hdf5-ab5e55bbf270172ccfa833e0068eaa2a0ccd7e07.zip hdf5-ab5e55bbf270172ccfa833e0068eaa2a0ccd7e07.tar.gz hdf5-ab5e55bbf270172ccfa833e0068eaa2a0ccd7e07.tar.bz2 | |
[svn-r26886] Fixed source to avoid bug in gfortran < v4.7 Bug: 45190, 37829
Diffstat (limited to 'fortran/src/H5Af.c')
| -rw-r--r-- | fortran/src/H5Af.c | 18 |
1 files changed, 0 insertions, 18 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 |