summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2005-04-06 22:53:03 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2005-04-06 22:53:03 (GMT)
commitb72f2c328bfdce27baf0526603a3dcb182b9b24e (patch)
treebfa7e93fd090001d9f9cea18add723abfef96b88 /fortran/test
parent686e4f35010249e0489b49431836e4d34cfd24bc (diff)
downloadhdf5-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.f9024
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