From 84afb3d0698e5aed6c44840b60dc987e4f36f8b0 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Fri, 19 Aug 2011 14:08:17 -0500
Subject: [svn-r21271] Fixed Windows $DEC! declaration for H5close_f, added
 missing entry in hdf5_fortrandll.dif

---
 fortran/src/H5Off.f90           | 2 +-
 fortran/src/hdf5_fortrandll.def | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/fortran/src/H5Off.f90 b/fortran/src/H5Off.f90
index f29671d..e69fdb5 100644
--- a/fortran/src/H5Off.f90
+++ b/fortran/src/H5Off.f90
@@ -197,7 +197,7 @@ CONTAINS
        INTEGER FUNCTION h5oclose_c(object_id)
          USE H5GLOBAL
          !DEC$IF DEFINED(HDF5F90_WINDOWS)
-         !DEC$OBJECTIBUTES C,reference,decorate,alias:'H5OCLOSE_C'::h5oclose_c
+         !DEC$ATTRIBUTES C,reference,decorate,alias:'H5OCLOSE_C'::h5oclose_c
          !DEC$ENDIF
          INTEGER(HID_T), INTENT(IN) :: object_id
        END FUNCTION h5oclose_c
diff --git a/fortran/src/hdf5_fortrandll.def b/fortran/src/hdf5_fortrandll.def
index 5f45350..5355a3c 100644
--- a/fortran/src/hdf5_fortrandll.def
+++ b/fortran/src/hdf5_fortrandll.def
@@ -284,6 +284,7 @@ H5L_mp_H5LIS_REGISTERED_F
 H5L_mp_H5LMOVE_F
 H5L_mp_H5LGET_NAME_BY_IDX_F
 ; H5O
+H5O_mp_CLOSE_F
 H5O_mp_H5OLINK_F
 H5O_mp_H5OOPEN_F
 H5O_mp_H5OOPEN_BY_ADDR_F
-- 
cgit v0.12