anchor.diff:  
     a = a % now()
     tests(n) = assert(a == num2date(date2num(a)),&
  -                    'datetime = num2date(date2num(datetime))')
  -  n = n+1
  +                    'datetime = num2date(date2num(datetime)) (now)')
  +  n = n+1
  +
  +  ! Test for overflowing month
  +  a = datetime(2014,11,30,1)
  +  tests(n) = assert(a == num2date(date2num(a)),&
  +                    'datetime = num2date(date2num(datetime)) (overflowing month)')
  +  n = n+1
  +
  +  ! Test for overflowing year
  +  a = datetime(2014,12,31,1)
  +  tests(n) = assert(a == num2date(date2num(a)),&
  +                    'datetime = num2date(date2num(datetime)) (overflowing year)')
  +  n = n+1
  +
     !---------------------------------------------------------------------
       
     WRITE(UNIT=STDOUT,FMT='(71("-"))')
  
positive.code:   output_test_name = test_name
  
    IF(assert)THEN
      WRITE(UNIT=STDOUT,FMT='(A)')'test '//output_test_name//&
        CHAR(27)//'[32m: PASS'//CHAR(27)//'[0m'
    ELSE
      WRITE(UNIT=STDOUT,FMT='(A)')'test '//output_test_name//&
        CHAR(27)//'[31m: FAIL'//CHAR(27)//'[0m'
    ENDIF
  
  ENDFUNCTION assert
  
negative.code: 
    ! Test counter; 
    ! modify if adding new tests
    ntests = 161
  
    CALL initialize_tests(tests,ntests)
  
  