mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-18 15:15:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r5321]

Browse Source 
Purpose:
    Bug#670 fix
Description:
    Added tests to use overloaded subroutines.
Platforms tested:
    Windows, Solaris 2.7, IRIX64-6.5
This commit is contained in:
Elena Pourmal 2002-05-01 19:25:38 -05:00
parent 9cd1488287
commit 6e2be40f8d
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fortran/test/tH5A.f90
View File

@ -70,6 +70,7 @@
DOUBLE PRECISION, DIMENSION(1) :: attr_double_data = 3.459
REAL, DIMENSION(1) :: attr_real_data = 4.0
INTEGER, DIMENSION(1) :: attr_integer_data = 5
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims_b
INTEGER, DIMENSION(7) :: data_dims
@ -234,8 +235,8 @@
!
! Write the Real attribute data.
!
data_dims(1) = 1
CALL h5awrite_f(attr4_id, atype4_id, attr_real_data, data_dims, error)
data_dims_b(1) = 1
CALL h5awrite_f(attr4_id, atype4_id, attr_real_data, data_dims_b, error)
CALL check("h5awrite_f",error,total_error)
!

7
fortran/test/tH5D.f90
View File

@ -35,6 +35,7 @@
INTEGER :: error ! Error flag
INTEGER :: i, j !general purpose integers
INTEGER(HSIZE_T), DIMENSION(7) :: data_dims_b
INTEGER, DIMENSION(7) :: data_dims
!
@ -76,9 +77,9 @@
!
! Write the dataset.
!
data_dims(1) = 4
data_dims(2) = 6
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims, error)
data_dims_b(1) = 4
data_dims_b(2) = 6
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims_b, error)
CALL check("h5dwrite_f", error, total_error)