diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-09 17:05:09 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-09 17:05:09 (GMT) |
| commit | 62401ac7c61dc71ea5980e44e895ab757df15a01 (patch) | |
| tree | 48eb78e17c07ad2485642d555c47733dff1cfd80 /hl/fortran/test/tstlite.F90 | |
| parent | 32703c9fc5a315a005abf26965d5545043fd3605 (diff) | |
| download | hdf5-62401ac7c61dc71ea5980e44e895ab757df15a01.zip hdf5-62401ac7c61dc71ea5980e44e895ab757df15a01.tar.gz hdf5-62401ac7c61dc71ea5980e44e895ab757df15a01.tar.bz2 | |
[svn-r27167] more DT fixes
Diffstat (limited to 'hl/fortran/test/tstlite.F90')
| -rw-r--r-- | hl/fortran/test/tstlite.F90 | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/hl/fortran/test/tstlite.F90 b/hl/fortran/test/tstlite.F90 index 26e9467..4c1ca14 100644 --- a/hl/fortran/test/tstlite.F90 +++ b/hl/fortran/test/tstlite.F90 @@ -1214,17 +1214,18 @@ SUBROUTINE test_datasets() ! ! write dataset. ! - f_ptr = C_LOC(buf4(1)) - CALL h5ltmake_dataset_f(file_id, dsetname4, rank, dims, H5T_NATIVE_DOUBLE, f_ptr, errcode) - !CALL h5ltmake_dataset_double_f(file_id, dsetname4, rank, dims, buf4, errcode) + !f_ptr = C_LOC(buf4(1)) + !CALL h5ltmake_dataset_f(file_id, dsetname4, rank, dims, H5T_NATIVE_DOUBLE, f_ptr, errcode) + CALL h5ltmake_dataset_double_f(file_id, dsetname4, rank, dims, buf4, errcode) ! ! read dataset. ! - !!!f_ptr = C_LOC(buf4(1)) MSB - !!!CALL h5ltread_dataset_f(file_id, dsetname4, H5T_NATIVE_DOUBLE, f_ptr, errcode) MSB + !f_ptr = C_LOC(buf4(1)) + !CALL h5ltread_dataset_f(file_id, dsetname4, H5T_NATIVE_DOUBLE, f_ptr, errcode) CALL h5ltread_dataset_double_f(file_id, dsetname4, bufr4, dims, errcode) + ! ! compare read and write buffers. ! |