anchor.diff:    REAL(KIND=KIND(1d0)) :: eps = TINY(1d0)
   
     LOGICAL,DIMENSION(:),ALLOCATABLE :: tests
  +  LOGICAL :: test_failed
   
     INTEGER :: ntests
     INTEGER :: i,n
  
positive.code:   WRITE(UNIT=STDOUT,FMT='(A,I3,A)')'Ran a total of ',ntests,' tests.'
    WRITE(UNIT=STDOUT,FMT='(I3,A,I3,A)')nsuccess,' tests PASSED, ',nfailure,' tests FAILED.'
  
  ENDSUBROUTINE report_tests
  !=======================================================================
  
  
negative.code: !=======================================================================
  
    LOGICAL,DIMENSION(:),INTENT(IN) :: tests
    LOGICAL,OPTIONAL,INTENT(OUT)    :: test_failed
  
    INTEGER :: n,ntests,nsuccess,nfailure
  
  