blob: f6d1078a3c18c7b11e16d8739684d3a1eafd5e74 [file] [log] [blame]
subroutine print_result(s,crossfailed,M,name)
implicit none
character (len=*)::name
real cert
integer M,crossfailed
integer s
character (len=11) :: c
character (len=18) :: c2
cert=100.0*crossfailed/M
! print *, "cert", cert, "cross ", crossfailed
! test1=hundred*crossfailed
c="% certainty"
c2=" ... verified with "
if(s.eq.1) then
write (*,"(A, A, F7.2, A)") name, c2, cert, c
else
write (*,"(A,A)") name," ... FAILED"
endif
end
subroutine do_test(test_func,cross_test_func,name,N,failed,
x num_tests,crosschecked)
implicit none
integer succeed
integer crossfail
integer failed
integer, external::test_func
integer, external::cross_test_func
character (len=*)::name
integer fail
integer N,i
integer num_tests,crosschecked
num_tests=num_tests+1
succeed=1
crossfail=0
fail=0
do i=1,N
if(test_func().eq.0) then
succeed=0
fail=fail+1
exit
end if
if(cross_test_func().eq.0) then
! print *, crossfail
crossfail=crossfail+1.0
end if
enddo
if (fail .ne. 0) then
failed=failed+1
else
if(crossfail .ne. 0) then
crosschecked=crosschecked+1
end if
endif
call print_result(succeed,crossfail,N,name)
end