1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
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
|
