diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-21 18:40:02 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-21 18:40:02 (GMT) |
| commit | 0d947503914597fb30b989b806eb578fbf224808 (patch) | |
| tree | 7e24484d97b0ad516e722cbb5afdf409d835f929 /fortran/src/H5Aff.F90 | |
| parent | 5e6d18e5be17b43ba446acbbc11d0fbe583abc47 (diff) | |
| download | hdf5-0d947503914597fb30b989b806eb578fbf224808.zip hdf5-0d947503914597fb30b989b806eb578fbf224808.tar.gz hdf5-0d947503914597fb30b989b806eb578fbf224808.tar.bz2 | |
[svn-r26870] added mising TARGET
Diffstat (limited to 'fortran/src/H5Aff.F90')
| -rw-r--r-- | fortran/src/H5Aff.F90 | 2 |
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 |