summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2014-12-22 14:12:04 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2014-12-22 14:12:04 (GMT)
commit51abd359f3932864cf885c662ba098ead21655c6 (patch)
tree6aa3d747a1ce58daac648ecef67ab00925e7be19
parentc8fea60113a4b187ebb9878acabc87cecdd74472 (diff)
downloadhdf5-51abd359f3932864cf885c662ba098ead21655c6.zip
hdf5-51abd359f3932864cf885c662ba098ead21655c6.tar.gz
hdf5-51abd359f3932864cf885c662ba098ead21655c6.tar.bz2
[svn-r25917] Added BIND(C) to fortran functions that pass a VALUE.
-rw-r--r--fortran/src/H5Aff_F03.f904
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Aff_F03.f90 b/fortran/src/H5Aff_F03.f90
index 807f6fa..e4b0eb2 100644
--- a/fortran/src/H5Aff_F03.f90
+++ b/fortran/src/H5Aff_F03.f90
@@ -143,7 +143,7 @@ MODULE H5A_PROVISIONAL
! to the C H5Awrite routine
INTERFACE
- INTEGER FUNCTION h5awrite_f_c(attr_id, mem_type_id, buf)
+ INTEGER FUNCTION h5awrite_f_c(attr_id, mem_type_id, buf) BIND(C,name='')
USE H5GLOBAL
USE, INTRINSIC :: ISO_C_BINDING
!DEC$IF DEFINED(HDF5F90_WINDOWS)
@@ -159,7 +159,7 @@ MODULE H5A_PROVISIONAL
! to the C H5Aread routine
INTERFACE
- INTEGER FUNCTION h5aread_f_c(attr_id, mem_type_id, buf)
+ INTEGER FUNCTION h5aread_f_c(attr_id, mem_type_id, buf) BIND(C,name='')
USE H5GLOBAL
USE, INTRINSIC :: ISO_C_BINDING
!DEC$IF DEFINED(HDF5F90_WINDOWS)