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: 
    ! Test counter; 
    ! modify if adding new tests
    ntests = 159
  
    CALL initialize_tests(tests,ntests)
  
  
negative.code: 
    TYPE(datetime),DIMENSION(:),ALLOCATABLE :: dtRange
  
    REAL(KIND=KIND(1d0)) :: eps = TINY(1d0)
  
    LOGICAL,DIMENSION(:),ALLOCATABLE :: tests
  
  