anchor.diff:  <ompts:testcode>
           INTEGER FUNCTION <ompts:testcode:functionname>single_private</ompts:testcode:functionname>()
           IMPLICIT NONE
  -        INTEGER result
           INTEGER nr_iterations, i
   		<ompts:orphan:vars>
  +        INTEGER result
           INTEGER nr_threads_in_single, myresult, myit
           COMMON /orphvars/ result,nr_iterations
   		</ompts:orphan:vars>
  
positive.code:           nr_threads_in_single = nr_threads_in_single + 1
  !$omp flush
            myit = myit + 1
  !          nr_threads_in_single = nr_threads_in_single - 1
            myresult = myresult + nr_threads_in_single
  !$omp end single nowait
          END DO
  !$omp critical
  !        result = result + myresult
          result = result + nr_threads_in_single
          nr_iterations = nr_iterations + myit
  !$omp end critical
  </ompts:orphan>
  !$omp end parallel
  !        WRITE(1,*) "result is",result,"nr_it is",nr_iterations
          IF ( result .EQ. 0 .AND. nr_iterations .EQ. LOOPCOUNT) THEN
            <testfunctionname></testfunctionname> = 1
          ELSE
  
negative.code: <ompts:orphan>
          myresult = 0
          myit = 0
          nr_threads_in_single=0
  !$omp barrier
          DO i=0, LOOPCOUNT -1
  !$omp single <ompts:check>private(nr_threads_in_single)</ompts:check>
            nr_threads_in_single = 0
  