anchor.diff:    !---------------------------------------------------------------------
     WRITE(UNIT=STDOUT,FMT='(71("-"))')
   
  -  CALL report_tests(tests)
  -
  +  test_failed = .FALSE.
  +
  +  CALL report_tests(tests,test_failed)
  +
  +  IF ( test_failed ) STOP 1
     !---------------------------------------------------------------------
   
   ENDSUBROUTINE test_datetime
  
positive.code: 
  
  
  SUBROUTINE report_tests(tests)
  !=======================================================================
  !
  ! Takes the test counter as input and reports the total number of test 
  
negative.code:   REAL(KIND=KIND(1d0)) :: eps = TINY(1d0)
  
    LOGICAL,DIMENSION(:),ALLOCATABLE :: tests
    LOGICAL :: test_failed
  
    INTEGER :: ntests
    INTEGER :: i,n
  