diff options
Diffstat (limited to 'openmp/testsuite/fortran/omp_wtime.f')
| -rw-r--r-- | openmp/testsuite/fortran/omp_wtime.f | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/openmp/testsuite/fortran/omp_wtime.f b/openmp/testsuite/fortran/omp_wtime.f deleted file mode 100644 index 557334fea86..00000000000 --- a/openmp/testsuite/fortran/omp_wtime.f +++ /dev/null @@ -1,43 +0,0 @@ -<ompts:test> -<ompts:testdescription>Test which checks the omp_get_wtime function. It compares the time with which is called a sleep function with the time it took by messuring the difference between the call of the sleep function and its end.</ompts:testdescription> -<ompts:ompversion>2.0</ompts:ompversion> -<ompts:directive>omp_get_wtime</ompts:directive> -<ompts:testcode> - INTEGER FUNCTION <ompts:testcode:functionname>omp_wtime</ompts:testcode:functionname>() - IMPLICIT NONE - <ompts:orphan:vars> - DOUBLE PRECISION start - DOUBLE PRECISION endtime - COMMON start, endtime - include "omp_lib.h" - </ompts:orphan:vars> - INTEGER wait_time - DOUBLE PRECISION measured_time - INTEGER fileunit - wait_time=1 - - start = 0; - endtime = 0; - - <ompts:orphan> - <ompts:check> - start=omp_get_wtime() - </ompts:check> - </ompts:orphan> - CALL sleep(wait_time) - <ompts:orphan> - <ompts:check> - endtime=omp_get_wtime() - </ompts:check> - </ompts:orphan> - measured_time=endtime-start - WRITE(1,*) "work took",measured_time,"sec. time." - IF(measured_time.GT.0.99*wait_time .AND. - & measured_time .LT. 1.01*wait_time) THEN - <testfunctionname></testfunctionname>=1 - ELSE - <testfunctionname></testfunctionname>=0 - END IF - END -</ompts:testcode> -</ompts:test> |
