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