reworked C formatting string

brtnfld · Mar 18, 2024 · 73d3838 · 73d3838
1 parent 55e0ae2
commit 73d3838
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fortran/test/tH5E_F03.F90 b/fortran/test/tH5E_F03.F90
@@ -292,8 +292,8 @@ SUBROUTINE test_error_stack(total_error)
 
   ! push a custom error message onto the stack
   CALL H5Epush_f(estack_id, file, func, line, &
-       cls_id, major, minor, "%s ERROR TEXT %s %s", error, &
-       arg1=ACHAR(27)//"[31m", arg2=ACHAR(27)//"[0m", arg3=ACHAR(10) )
+       cls_id, major, minor, "%s ERROR TEXT %s %s %s", error, &
+       arg1=ACHAR(27)//"[31m", arg2=ACHAR(27)//"[0m", arg3=ACHAR(0), arg4=ACHAR(10) )
   CALL check("H5Epush_f", error, total_error)
 
   CALL h5eget_num_f(estack_id, count, error)