diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2003-03-19 16:13:57 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2003-03-19 16:13:57 (GMT) |
| commit | e10de8f3d65bd8ad0ef5484a56f1a9807693a967 (patch) | |
| tree | b5de5dabf4968cc34a8dca67bd896ef14728b28a /fortran/test/tH5VL.f90 | |
| parent | 65f5514a4ff647cff51c37e3af30d5e138733d06 (diff) | |
| download | hdf5-e10de8f3d65bd8ad0ef5484a56f1a9807693a967.zip hdf5-e10de8f3d65bd8ad0ef5484a56f1a9807693a967.tar.gz hdf5-e10de8f3d65bd8ad0ef5484a56f1a9807693a967.tar.bz2 | |
[svn-r6495]
Purpose: Catching up with the C library
Description: Added tests for the follwoing new fortran functions
h5iget_name_f
h5tis_variavle_str_f
h5zunregister_f
h5zfilter_avail_f
h5pset_shuffle_f
h5pset_fletcher32
h5pset_edc_check_f
h5pget_edc_check_f
h5dfill_f
Solution:
Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel)
Misc. update:
Diffstat (limited to 'fortran/test/tH5VL.f90')
| -rw-r--r-- | fortran/test/tH5VL.f90 | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/fortran/test/tH5VL.f90 b/fortran/test/tH5VL.f90 index 04de247..0dd909f 100644 --- a/fortran/test/tH5VL.f90 +++ b/fortran/test/tH5VL.f90 @@ -208,6 +208,8 @@ INTEGER :: i, j !general purpose integers INTEGER(HSIZE_T), DIMENSION(2) :: data_dims = (/5,6/) INTEGER(SIZE_T) max_len + INTEGER(HID_T) :: vl_type_id + LOGICAL :: vl_flag ! ! Initialize the vl_int_data array. @@ -257,6 +259,15 @@ CALL h5dcreate_f(file_id, dsetname, vltype_id, dspace_id, & dset_id, error) CALL check("h5dcreate_f", error, total_error) + CALL h5dget_type_f(dset_id, vl_type_id, error) + CALL check("h5dget_type_f", error, total_error) + CALL h5tis_variable_str_f( vl_type_id, vl_flag, error) + CALL check("h5tis_variable_str_f", error, total_error) + if( vl_flag ) then + write(*,*) "type is wrong" + total_error = total_error + 1 + endif + ! ! Write the dataset. @@ -368,6 +379,8 @@ INTEGER :: i, j !general purpose integers INTEGER(HSIZE_T), DIMENSION(2) :: data_dims = (/10,4/) + INTEGER(HID_T) :: vl_type_id + LOGICAL :: vl_flag ! ! Initialize the string_data array. @@ -407,6 +420,17 @@ CALL h5dcreate_f(file_id, dsetname, H5T_STRING, dspace_id, & dset_id, error) CALL check("h5dcreate_f", error, total_error) + ! + ! Check that dataset has a string datatype + ! + CALL h5dget_type_f(dset_id, vl_type_id, error) + CALL check("h5dget_type_f", error, total_error) + CALL h5tis_variable_str_f( vl_type_id, vl_flag, error) + CALL check("h5tis_variable_str_f", error, total_error) + if( .NOT. vl_flag ) then + write(*,*) "type is wrong" + total_error = total_error + 1 + endif ! ! Write the dataset. |