From e99b7dec145d59311cc9f3af0ead6bf04ca2ed74 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Mon, 5 Jan 2009 11:40:59 -0500
Subject: [svn-r16262] Description:

added missing reference in h5lget_name_by_idx_f:

!DEC$ATTRIBUTES reference ::

for character strings being passed in to C to fix bug in VMS.
---
 fortran/src/H5Lff.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/src/H5Lff.f90 b/fortran/src/H5Lff.f90
index cad00b6..966e9f3 100644
--- a/fortran/src/H5Lff.f90
+++ b/fortran/src/H5Lff.f90
@@ -952,7 +952,7 @@ CONTAINS
          !DEC$ IF DEFINED(HDF5F90_WINDOWS)
          !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5LGET_NAME_BY_IDX_C'::h5lget_name_by_idx_c
          !DEC$ ENDIF
-         !DEC$ATTRIBUTES reference :: group_name
+         !DEC$ATTRIBUTES reference :: group_name, name
          INTEGER(HID_T), INTENT(IN) :: loc_id 
          CHARACTER(LEN=*), INTENT(IN) :: group_name
          INTEGER(SIZE_T)  :: group_namelen
-- 
cgit v0.12