Add testsuite from OpenUH
llvm-svn: 208472
diff --git a/openmp/testsuite/fortran/do_schedule_static.f b/openmp/testsuite/fortran/do_schedule_static.f
new file mode 100644
index 0000000..7ab02f8
--- /dev/null
+++ b/openmp/testsuite/fortran/do_schedule_static.f
@@ -0,0 +1,70 @@
+<ompts:test>
+<ompts:testdescription>Test which checks the static option of the omp do schedule directive.</ompts:testdescription>
+<ompts:ompversion>2.0</ompts:ompversion>
+<ompts:directive>omp do schedule(static)</ompts:directive>
+<ompts:dependences>omp do nowait,omp flush,omp critical,omp single</ompts:dependences>
+<ompts:testcode>
+
+ INTEGER FUNCTION <ompts:testcode:functionname>do_schedule_static</ompts:testcode:functionname>()
+ IMPLICIT NONE
+ INTEGER omp_get_thread_num,omp_get_num_threads
+ CHARACTER*30 logfile
+ INTEGER threads
+ INTEGER count
+ INTEGER ii
+ INTEGER result
+<ompts:orphan:vars>
+ INTEGER CFSMAX_SIZE
+ PARAMETER (CFSMAX_SIZE = 1000)
+ INTEGER i,tids(0:CFSMAX_SIZE-1), tid, chunk_size
+ COMMON /orphvars/ i,tid,tids,chunk_size
+</ompts:orphan:vars>
+
+ chunk_size = 7
+ result = 0
+ ii = 0
+
+!$omp parallel
+!$omp single
+ threads = omp_get_num_threads()
+!$omp end single
+!$omp end parallel
+
+ IF ( threads .LT. 2) THEN
+ PRINT *,"This test only works with at least two threads"
+ WRITE(1,*) "This test only works with at least two threads"
+ <testfunctionname></testfunctionname> = 0
+ STOP
+ ELSE
+ WRITE(1,*) "Using an internal count of ",CFSMAX_SIZE
+ WRITE(1,*) "Using a specified chunksize of ",chunk_size
+
+!$omp parallel private(tid) shared(tids)
+ tid = omp_get_thread_num()
+<ompts:orphan>
+!$omp do <ompts:check>schedule(static,chunk_size)</ompts:check>
+ DO i = 0 ,CFSMAX_SIZE -1
+ tids(i) = tid
+ END DO
+!$omp end do
+</ompts:orphan>
+!$omp end parallel
+
+ DO i = 0, CFSMAX_SIZE-1
+!... round-robin for static chunk
+ ii = mod( i/chunk_size,threads)
+ IF (tids(i) .NE. ii ) THEN
+ result = result + 1
+ WRITE(1,*)"Iteration ",i,"should be assigned to ",
+ & ii,"instead of ",tids(i)
+ END IF
+ END DO
+ IF ( result .EQ. 0 )THEN
+ <testfunctionname></testfunctionname> = 1
+ ELSE
+ <testfunctionname></testfunctionname> = 0
+ END IF
+ END IF
+ END FUNCTION
+</ompts:testcode>
+</ompts:test>