summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-21 18:40:02 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-21 18:40:02 (GMT)
commit0d947503914597fb30b989b806eb578fbf224808 (patch)
tree7e24484d97b0ad516e722cbb5afdf409d835f929 /fortran
parent5e6d18e5be17b43ba446acbbc11d0fbe583abc47 (diff)
downloadhdf5-0d947503914597fb30b989b806eb578fbf224808.zip
hdf5-0d947503914597fb30b989b806eb578fbf224808.tar.gz
hdf5-0d947503914597fb30b989b806eb578fbf224808.tar.bz2
[svn-r26870] added mising TARGET
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Aff.F902
1 files changed, 1 insertions, 1 deletions
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