summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2009-01-13 21:16:18 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2009-01-13 21:16:18 (GMT)
commitbbd83d97e03960839804ef3c87eb6c17fb940acd (patch)
treef7c012ea7da225a9eddbf5d8588f5c1d1c10b7fa /fortran/src
parent9c53e8281a594080c0c490df0c5b45a5d1cf3ffb (diff)
downloadhdf5-bbd83d97e03960839804ef3c87eb6c17fb940acd.zip
hdf5-bbd83d97e03960839804ef3c87eb6c17fb940acd.tar.gz
hdf5-bbd83d97e03960839804ef3c87eb6c17fb940acd.tar.bz2
[svn-r16304] 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/src')
-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