diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2005-04-06 22:53:03 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2005-04-06 22:53:03 (GMT) |
| commit | b72f2c328bfdce27baf0526603a3dcb182b9b24e (patch) | |
| tree | bfa7e93fd090001d9f9cea18add723abfef96b88 /fortran/test | |
| parent | 686e4f35010249e0489b49431836e4d34cfd24bc (diff) | |
| download | hdf5-b72f2c328bfdce27baf0526603a3dcb182b9b24e.zip hdf5-b72f2c328bfdce27baf0526603a3dcb182b9b24e.tar.gz hdf5-b72f2c328bfdce27baf0526603a3dcb182b9b24e.tar.bz2 | |
[svn-r10561] Purpose: Maintenance
Description: Added missing h5get_member_class_f function
Solution:
Platforms tested: heping; it is a simple change. I will
watch daily tests and take care of failures.
Misc. update:
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/tH5T.f90 | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90 index f2dddb4..5056596 100644 --- a/fortran/test/tH5T.f90 +++ b/fortran/test/tH5T.f90 @@ -334,6 +334,12 @@ write(*,*) "Wrong member type returned for character member" total_error = total_error + 1 endif + CALL h5tget_member_class_f(dtype_id, i-1, class, error) + CALL check("h5tget_member_class_f",error, total_error) + if (class .ne. H5T_STRING_F) then + write(*,*) "Wrong class returned for character member" + total_error = total_error + 1 + endif CASE("integer_field") if(offset_out .ne. type_sizec) then write(*,*) "Offset of the integer member is incorrect" @@ -347,6 +353,12 @@ write(*,*) "Wrong member type returned for integer memebr" total_error = total_error + 1 endif + CALL h5tget_member_class_f(dtype_id, i-1, class, error) + CALL check("h5tget_member_class_f",error, total_error) + if (class .ne. H5T_INTEGER_F) then + write(*,*) "Wrong class returned for INTEGER member" + total_error = total_error + 1 + endif CASE("double_field") if(offset_out .ne. (type_sizec+type_sizei)) then write(*,*) "Offset of the double precision member is incorrect" @@ -360,6 +372,12 @@ write(*,*) "Wrong member type returned for double precision memebr" total_error = total_error + 1 endif + CALL h5tget_member_class_f(dtype_id, i-1, class, error) + CALL check("h5tget_member_class_f",error, total_error) + if (class .ne. H5T_FLOAT_F) then + write(*,*) "Wrong class returned for double precision member" + total_error = total_error + 1 + endif CASE("real_field") if(offset_out .ne. (type_sizec+type_sizei+type_sized)) then write(*,*) "Offset of the real member is incorrect" @@ -373,6 +391,12 @@ write(*,*) "Wrong member type returned for real memebr" total_error = total_error + 1 endif + CALL h5tget_member_class_f(dtype_id, i-1, class, error) + CALL check("h5tget_member_class_f",error, total_error) + if (class .ne. H5T_FLOAT_F) then + write(*,*) "Wrong class returned for real member" + total_error = total_error + 1 + endif CASE DEFAULT write(*,*) "Wrong member's name" total_error = total_error + 1 |