anchor.diff:  
   integer, parameter :: stdout = 6
   
  -contains
  +  contains
   
   logical function assert(condition, test_name)
    ! asserts if the condition is true/false and returns the status of the tests
  
positive.code:   tests(n) = assert(drh_qc(1)==0, 'get_default_littler: default relative humidity_qc')
    n=n+1
    tests(n) = assert(dthickness_qc(1)==0, 'get_default_littler: default thickness_qc')
  end subroutine test_get_default_littler
  
  end module convert_littler_tests
negative.code:   logical,dimension(:),allocatable :: tests  ! logical array with test results
    INTEGER :: ntests  ! total number of tests
    INTEGER :: n=1  ! test counter
    ntests = 32  ! modify if adding new tests
    call initialize_tests(tests,ntests)
    call test_dateint(tests, n)
    call test_get_default_littler(tests, n)
    call test_readtimedim(tests, n)
    call test_readstepnc_single(tests, n)
    call report_tests(tests)
    ! remove this statement later, used for keeping track of ntests
    if ( n/=ntests ) then
      print *, 'WARNING'
      print *, 'Total number of actual tests performed was: ', n
      print *, 'Total number of tests set (ntests) was: ', ntests
    end if
  end subroutine main
  
  
  