diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2024-03-07 11:34:55 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-03-07 11:34:55 (GMT) |
| commit | 9d8e8824964af3137b9e4cd400b9b45304fd86ef (patch) | |
| tree | db1a7d4d52b5bbca7e368356a12c96e0ec454d5c /fortran/test/tH5I.F90 | |
| parent | fe5d0d5c535b34b20171d0d7540b11e11412755c (diff) | |
| download | hdf5-9d8e8824964af3137b9e4cd400b9b45304fd86ef.zip hdf5-9d8e8824964af3137b9e4cd400b9b45304fd86ef.tar.gz hdf5-9d8e8824964af3137b9e4cd400b9b45304fd86ef.tar.bz2 | |
Added new H5E with tests. (#4049)
Added Fortran H5E APIs:
h5eregister_class_f, h5eunregister_class_f, h5ecreate_msg_f, h5eclose_msg_f
h5eget_msg_f, h5epush_f, h5eget_num_f, h5ewalk_f, h5eget_class_name_f,
h5eappend_stack_f, h5eget_current_stack_f, h5eset_current_stack_f, h5ecreate_stack_f,
h5eclose_stack_f, h5epop_f, h5eprint_f (C h5eprint v2 signature)
Addresses Issue #3987
Diffstat (limited to 'fortran/test/tH5I.F90')
| -rw-r--r-- | fortran/test/tH5I.F90 | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fortran/test/tH5I.F90 b/fortran/test/tH5I.F90 index a5fedb9..7d97219 100644 --- a/fortran/test/tH5I.F90 +++ b/fortran/test/tH5I.F90 @@ -308,9 +308,12 @@ CONTAINS ! Clear the error stack from the file close failure CALL h5eset_auto_f(1, error) CALL h5eclear_f(error) + CALL check("h5eclear_f",error,total_error) + CALL h5eclear_f(error, H5P_DEFAULT_F) + CALL check("h5eclear_f",error,total_error) - if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error) - CALL check("h5_cleanup_f", error, total_error) + IF(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) RETURN END SUBROUTINE identifier_test |