mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-04-12 17:31:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r25917] Added BIND(C) to fortran functions that pass a VALUE.

Browse Source
This commit is contained in:
Scot Breitenfeld 2014-12-22 09:12:04 -05:00
parent c8fea60113
commit 51abd359f3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fortran/src/H5Aff_F03.f90
View File

@ -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)