diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-04-07 13:54:48 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-04-07 13:54:48 (GMT) |
commit | 77a806591d0aeefc2a6bceb2032e1e98edb40217 (patch) | |
tree | 1dfd73bab488c44ff1a92620843eb5ad7fc65651 | |
parent | 02a07cb0cfc2af288b62c1370c422fb72b93e751 (diff) | |
download | hdf5-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.
-rw-r--r-- | hl/fortran/test/tsttable.F90 | 2 |
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)), & |