diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-03 19:48:15 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-03 19:48:15 (GMT) |
| commit | 39e47fe74d4991ea478ab579387c1860c4f503f1 (patch) | |
| tree | 3f8fe2463ee6dbdfc984f89ed5ff28a896e4d80a /fortran/test/tH5T.f90 | |
| parent | 46f49b84cf37d98fc68d582c857f98345f2e5835 (diff) | |
| download | hdf5-39e47fe74d4991ea478ab579387c1860c4f503f1.zip hdf5-39e47fe74d4991ea478ab579387c1860c4f503f1.tar.gz hdf5-39e47fe74d4991ea478ab579387c1860c4f503f1.tar.bz2 | |
[svn-r2796]
Purpose:
Maintenance
Description:
Updated tests to use new F90 programming model.
Platforms tested:
O2K and Solaris2.7
Diffstat (limited to 'fortran/test/tH5T.f90')
| -rw-r--r-- | fortran/test/tH5T.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90 index 2b6301b..ca2f4ab 100644 --- a/fortran/test/tH5T.f90 +++ b/fortran/test/tH5T.f90 @@ -655,20 +655,20 @@ write (*,*) "got cset is not correct" total_error = total_error + 1 end if - CALL h5tset_strpad_f(dtype5_id, H5T_STR_NULL_F, error) + CALL h5tset_strpad_f(dtype5_id, H5T_STR_NULLPAD_F, error) CALL check("h5tset_strpad_f",error,total_error) CALL h5tget_strpad_f(dtype5_id, strpad, error) CALL check("h5tget_strpad_f",error,total_error) - if(strpad .ne. H5T_STR_NULL_F ) then + if(strpad .ne. H5T_STR_NULLPAD_F ) then write (*,*) "got strpad is not correct" total_error = total_error + 1 end if - CALL h5tset_strpad_f(dtype5_id, H5T_STR_SPACE_F, error) + CALL h5tset_strpad_f(dtype5_id, H5T_STR_SPACEPAD_F, error) CALL check("h5tset_strpad_f",error,total_error) CALL h5tget_strpad_f(dtype5_id, strpad, error) CALL check("h5tget_strpad_f",error,total_error) - if(strpad .ne. H5T_STR_SPACE_F ) then + if(strpad .ne. H5T_STR_SPACEPAD_F ) then write (*,*) "got strpad is not correct" total_error = total_error + 1 end if |