H5Eprint re-work

brtnfld · Feb 23, 2024 · 8672d31 · 8672d31
1 parent 0ed3b61
commit 8672d31
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/fortran/test/tH5E_F03.F90 b/fortran/test/tH5E_F03.F90
@@ -407,6 +407,8 @@ SUBROUTINE test_error_stack(total_error)
 
   CALL h5eprint_f(H5E_DEFAULT_F, error)
   CALL check("h5eprint_f", error, total_error)
+  CALL h5eprint_f(error)
+  CALL check("h5eprint_f", error, total_error)
 
   INQUIRE(file="H5Etest.txt", EXIST=status)
   IF(status)THEN