diff --git a/src/tests/jf_test_26.F90 b/src/tests/jf_test_26.F90 index 721be7da99..f15b76af79 100644 --- a/src/tests/jf_test_26.F90 +++ b/src/tests/jf_test_26.F90 @@ -22,6 +22,8 @@ subroutine test_26(error_cnt) logical(lk) :: is_valid character(kind=CK,len=:),allocatable :: error_msg + error_cnt = 0 + call f%initialize() ! specify whatever init options you want. write(error_unit,'(A)') 'adding data to json_file...' @@ -76,7 +78,7 @@ program jf_test_26 use jf_test_26_mod , only: test_26 implicit none integer :: n_errors - n_errors = 0 + call test_26(n_errors) if (n_errors /= 0) stop 1