From 0d947503914597fb30b989b806eb578fbf224808 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Tue, 21 Apr 2015 13:40:02 -0500
Subject: [svn-r26870] added mising TARGET

---
 fortran/src/H5Aff.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/src/H5Aff.F90 b/fortran/src/H5Aff.F90
index a827738..6792b45 100644
--- a/fortran/src/H5Aff.F90
+++ b/fortran/src/H5Aff.F90
@@ -2242,7 +2242,7 @@ CONTAINS
                                                 ! identifier  (in memory)
     INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes
     REAL(KIND=C_DOUBLE), INTENT(IN), &
-         DIMENSION(dims(1),dims(2),dims(3)) :: buf
+         DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf
     ! Attribute data
     INTEGER, INTENT(OUT) :: hdferr          ! Error code
     TYPE(C_PTR) :: f_ptr
-- 
cgit v0.12