diff options
Diffstat (limited to 'openmp/testsuite/fortran/common_utility.f')
| -rw-r--r-- | openmp/testsuite/fortran/common_utility.f | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/openmp/testsuite/fortran/common_utility.f b/openmp/testsuite/fortran/common_utility.f new file mode 100644 index 00000000000..f6d1078a3c1 --- /dev/null +++ b/openmp/testsuite/fortran/common_utility.f @@ -0,0 +1,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 |
