From 337242feeae4517e4ebec867391681471375a1c1 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Thu, 11 Apr 2013 14:40:57 -0500 Subject: [svn-r23576] added missing argument in check call. tested: jam (g95,gcc)) --- fortran/test/tH5O.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/test/tH5O.f90 b/fortran/test/tH5O.f90 index b68e7ca..ea91631 100644 --- a/fortran/test/tH5O.f90 +++ b/fortran/test/tH5O.f90 @@ -535,7 +535,7 @@ SUBROUTINE test_h5o_link(total_error) ! close the datatype CALL h5tclose_f(tid, error) - CALL check("h5tclose_f",error) + CALL check("h5tclose_f",error, total_error) CALL h5ocopy_f(file_id, NAME_DATATYPE_SIMPLE, file_id, NAME_DATATYPE_SIMPLE2, error) CALL check("h5ocopy_f",error,total_error) -- cgit v0.12