anchor.diff:    ! Test date2num and num2date
   
     a = a % now()
  -  tests(n) = assert(a == num2date(date2num(a)),&
  -                    'datetime = num2date(date2num(datetime)) (now)')
  +  tests(n) = assert(a % utc() == num2date(date2num(a)),&
  +                    'datetime % utc() == 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)')
  +                    '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)')
  +                    'datetime == num2date(date2num(datetime)) (overflowing year)')
     n = n+1
   
     !---------------------------------------------------------------------
  
positive.code: 
    USE iso_c_binding
  
    TYPE(datetime)  :: a
    TYPE(timedelta) :: td
    TYPE(clock)     :: c
  
  
negative.code:                  'datetime == datetime')
    n = n+1
  
    tests(n) = assert(datetime(2014,1,2,9,4,5,6,tz=6) &
                   == datetime(2014,1,2,3,4,5,6,tz=0),&
                   'datetime == datetime, timezone test 1')
    n = n+1
  
    tests(n) = assert(datetime(2014,1,2,3,4,5,6,tz=-6) &
                   == datetime(2014,1,2,9,4,5,6,tz= 0),&
                   'datetime == datetime, timezone test 2')
    n = n+1
  
    tests(n) = assert(datetime(2013,1,2,3,4,5,6) &
                   /= datetime(2014,1,2,3,4,5,6),&
                   'datetime /= datetime')
  