diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-12-22 14:12:04 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-12-22 14:12:04 (GMT) |
| commit | 51abd359f3932864cf885c662ba098ead21655c6 (patch) | |
| tree | 6aa3d747a1ce58daac648ecef67ab00925e7be19 | |
| parent | c8fea60113a4b187ebb9878acabc87cecdd74472 (diff) | |
| download | hdf5-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.f90 | 4 |
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) |