summaryrefslogtreecommitdiffstats
path: root/fortran/test/fflush1.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2001-04-27 03:50:22 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2001-04-27 03:50:22 (GMT)
commit9aba4e88c26d98aafaf231163e949b9a53aa9561 (patch)
tree56eb7cef411650b40c4f57c58776620a1ddf2b67 /fortran/test/fflush1.f90
parent6182da802691e5702681faf509ac151fe652dd51 (diff)
downloadhdf5-9aba4e88c26d98aafaf231163e949b9a53aa9561.zip
hdf5-9aba4e88c26d98aafaf231163e949b9a53aa9561.tar.gz
hdf5-9aba4e88c26d98aafaf231163e949b9a53aa9561.tar.bz2
[svn-r3861]
Purpose: Code maintenance Description: read/write APIs have been changed. Solution: Made necessary changes to the tests. Platforms tested: Windows 98, Linux, Solaris 2.7, O2K, T3E
Diffstat (limited to 'fortran/test/fflush1.f90')
-rw-r--r--fortran/test/fflush1.f905
1 files changed, 4 insertions, 1 deletions
diff --git a/fortran/test/fflush1.f90 b/fortran/test/fflush1.f90
index 89083eb..d71a7c0 100644
--- a/fortran/test/fflush1.f90
+++ b/fortran/test/fflush1.f90
@@ -67,6 +67,9 @@
!data buffers
!
INTEGER, DIMENSION(NX,NY) :: data_in, data_out
+ INTEGER, DIMENSION(7) :: data_dims
+ data_dims(1) = NX
+ data_dims(2) = NY
!
!Initialize FORTRAN predifined datatypes
@@ -111,7 +114,7 @@
!
! Write data_in to the dataset
!
- CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data_in, error)
+ CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, data_in, data_dims, error)
CALL check("h5dwrite_f",error,total_error)
!