summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-22 19:19:29 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-22 19:19:29 (GMT)
commitab5e55bbf270172ccfa833e0068eaa2a0ccd7e07 (patch)
treee2ed7db91a24f95aa988c86e0537cc771061e67d
parent0a5ca8ad05ef2d2c8ffeb8205151e391e85b52c4 (diff)
downloadhdf5-ab5e55bbf270172ccfa833e0068eaa2a0ccd7e07.zip
hdf5-ab5e55bbf270172ccfa833e0068eaa2a0ccd7e07.tar.gz
hdf5-ab5e55bbf270172ccfa833e0068eaa2a0ccd7e07.tar.bz2
[svn-r26886] Fixed source to avoid bug in gfortran < v4.7 Bug: 45190, 37829
-rw-r--r--fortran/src/H5Af.c18
-rw-r--r--fortran/src/H5Pff.F905
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