summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2009-01-13 21:14:40 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2009-01-13 21:14:40 (GMT)
commit84a14c0f25b52a9bba1e2be59051b18cb0317b15 (patch)
tree8d616ee257e9cb759efb46b281fd5c09341261f9 /fortran
parent164ecb187fc3a998fca547c7aa4e2f190a2f8ce5 (diff)
downloadhdf5-84a14c0f25b52a9bba1e2be59051b18cb0317b15.zip
hdf5-84a14c0f25b52a9bba1e2be59051b18cb0317b15.tar.gz
hdf5-84a14c0f25b52a9bba1e2be59051b18cb0317b15.tar.bz2
[svn-r16303] Description:
added: !DEC$ATTRIBUTES reference :: for character strings being passed in to C to fix bug in VMS for functions h5sdecode_f and h5sencode_f.
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Sff.f902
1 files changed, 2 insertions, 0 deletions
diff --git a/fortran/src/H5Sff.f90 b/fortran/src/H5Sff.f90
index 6469124..e6b93f5 100644
--- a/fortran/src/H5Sff.f90
+++ b/fortran/src/H5Sff.f90
@@ -1781,6 +1781,7 @@
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5SDECODE_C'::h5sdecode_c
!DEC$ ENDIF
+ !DEC$ATTRIBUTES reference :: buf
CHARACTER(LEN=*), INTENT(IN) :: buf
INTEGER(HID_T), INTENT(OUT) :: obj_id ! Object ID
END FUNCTION h5sdecode_c
@@ -1829,6 +1830,7 @@
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5SENCODE_C'::h5sencode_c
!DEC$ ENDIF
+ !DEC$ATTRIBUTES reference :: buf
INTEGER(HID_T), INTENT(IN) :: obj_id
CHARACTER(LEN=*), INTENT(OUT) :: buf
INTEGER(SIZE_T), INTENT(INOUT) :: nalloc