From bbd83d97e03960839804ef3c87eb6c17fb940acd Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Tue, 13 Jan 2009 16:16:18 -0500
Subject: [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.
---
 fortran/src/H5Sff.f90 | 2 ++
 1 file changed, 2 insertions(+)

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
-- 
cgit v0.12