diff options
| author | Jonathan Peyton <jonathan.l.peyton@intel.com> | 2017-11-13 17:44:48 +0000 |
|---|---|---|
| committer | Jonathan Peyton <jonathan.l.peyton@intel.com> | 2017-11-13 17:44:48 +0000 |
| commit | f902e467b75671d06d1e9ad3663b8aa9366bc14b (patch) | |
| tree | d6de4407663a1054506cd8b97d8a047f411e8cd8 /openmp/testsuite/fortran/common_utility.f | |
| parent | 9e3d8f4b39e29e4616e8addb1240530dbdfab2c4 (diff) | |
| download | bcm5719-llvm-f902e467b75671d06d1e9ad3663b8aa9366bc14b.tar.gz bcm5719-llvm-f902e467b75671d06d1e9ad3663b8aa9366bc14b.zip | |
[OpenMP] Remove the unused testsuite/ directory
The testsuite directory is not used or updated and confuses new users to the
OpenMP project. These tests were rewritten using the lit format and put under
the runtime/test directory. This patch removes the entire testsuite/ directory.
Differential Revision: https://reviews.llvm.org/D39767
llvm-svn: 318056
Diffstat (limited to 'openmp/testsuite/fortran/common_utility.f')
| -rw-r--r-- | openmp/testsuite/fortran/common_utility.f | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/openmp/testsuite/fortran/common_utility.f b/openmp/testsuite/fortran/common_utility.f deleted file mode 100644 index f6d1078a3c1..00000000000 --- a/openmp/testsuite/fortran/common_utility.f +++ /dev/null @@ -1,57 +0,0 @@ - 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 |
