diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2010-04-15 14:49:08 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2010-04-15 14:49:08 (GMT) |
| commit | fee129b9c2ad2b841ebe26294cf1b27182d24d17 (patch) | |
| tree | 5991176c60c43f2098ea7fc1fda53844e680924b /fortran/test | |
| parent | fcff5fc0f8a9b1a75a924c339a3a03fa40595cb8 (diff) | |
| download | hdf5-fee129b9c2ad2b841ebe26294cf1b27182d24d17.zip hdf5-fee129b9c2ad2b841ebe26294cf1b27182d24d17.tar.gz hdf5-fee129b9c2ad2b841ebe26294cf1b27182d24d17.tar.bz2 | |
[svn-r18557] Description:
Merged Fortran changes from the trunk into the branch
svn merge -r 18098:18556 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran
Tested: jam (intel)
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/tH5R.f90 | 2 | ||||
| -rw-r--r-- | fortran/test/tH5Sselect.f90 | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/fortran/test/tH5R.f90 b/fortran/test/tH5R.f90 index 1e57eb3..0289465 100644 --- a/fortran/test/tH5R.f90 +++ b/fortran/test/tH5R.f90 @@ -147,6 +147,8 @@ SUBROUTINE refobjtest(cleanup, total_error) CALL H5Rget_name_f(dsetr_id, ref(1), buf, error, buf_size ) CALL check("H5Rget_name_f", error, total_error) + + CALL VERIFY("H5Rget_name_f", INT(buf_size),7, total_error) CALL VerifyString("H5Rget_name_f", buf, "/GROUP1", total_error) diff --git a/fortran/test/tH5Sselect.f90 b/fortran/test/tH5Sselect.f90 index 437c530..f7fd8af 100644 --- a/fortran/test/tH5Sselect.f90 +++ b/fortran/test/tH5Sselect.f90 @@ -921,6 +921,7 @@ ! write(*,*) (blocklist(i), i =1, num_blocks*RANK*2) !result of blocklist selected is: !1, 1, 2, 2, 4, 1, 5, 2, 1, 4, 2, 5, 4, 4, 5, 5 + ! !deallocate the blocklist array ! |