summaryrefslogtreecommitdiffstats
path: root/hl/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2016-04-07 13:54:48 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2016-04-07 13:54:48 (GMT)
commit77a806591d0aeefc2a6bceb2032e1e98edb40217 (patch)
tree1dfd73bab488c44ff1a92620843eb5ad7fc65651 /hl/fortran
parent02a07cb0cfc2af288b62c1370c422fb72b93e751 (diff)
downloadhdf5-77a806591d0aeefc2a6bceb2032e1e98edb40217.zip
hdf5-77a806591d0aeefc2a6bceb2032e1e98edb40217.tar.gz
hdf5-77a806591d0aeefc2a6bceb2032e1e98edb40217.tar.bz2
[svn-r29653] fixed A variable that is specified as an argument to the intrinsic procedure C_LOC must either have type and type parameters that are interoperable with a C type, or be a nonpolymorphic, scalar variable with no length type parameters.
Diffstat (limited to 'hl/fortran')
-rw-r--r--hl/fortran/test/tsttable.F902
1 files changed, 1 insertions, 1 deletions
diff --git a/hl/fortran/test/tsttable.F90 b/hl/fortran/test/tsttable.F90
index a87f783..5c55a66 100644
--- a/hl/fortran/test/tsttable.F90
+++ b/hl/fortran/test/tsttable.F90
@@ -628,7 +628,7 @@ SUBROUTINE test_table2()
#endif
dst_offset(1:nfields) = (/ &
- H5OFFSETOF(C_LOC(dst_buf(1)), C_LOC(dst_buf(1)%name)), &
+ H5OFFSETOF(C_LOC(dst_buf(1)), C_LOC(dst_buf(1)%name(1:1))), &
H5OFFSETOF(C_LOC(dst_buf(1)), C_LOC(dst_buf(1)%lati)), &
H5OFFSETOF(C_LOC(dst_buf(1)), C_LOC(dst_buf(1)%long)), &
H5OFFSETOF(C_LOC(dst_buf(1)), C_LOC(dst_buf(1)%pressure)), &