diff options
Diffstat (limited to 'fortran/test/tH5R.f90')
| -rw-r--r-- | fortran/test/tH5R.f90 | 2 |
1 files changed, 2 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) |