anchor.diff:  
     TYPE(datetime),DIMENSION(:),ALLOCATABLE :: dtRange
   
  -  REAL(KIND=real64) :: eps = TINY(1d0)
  +  REAL(KIND=KIND(1d0)) :: eps = TINY(1d0)
   
     LOGICAL,DIMENSION(:),ALLOCATABLE :: tests
   
  
positive.code: !
  !=======================================================================
  
    USE iso_fortran_env
    USE iso_c_binding
  
    TYPE(datetime)  :: a
  
negative.code:   output_test_name = test_name
  
    IF(assert)THEN
      WRITE(UNIT=STDOUT,FMT='(A)')'test '//output_test_name//': '//&
        CHAR(27)//'[32mPASS'//CHAR(27)//'[0m'
    ELSE
      WRITE(UNIT=STDOUT,FMT='(A)')'test '//output_test_name//': '//&
        CHAR(27)//'[31mFAIL'//CHAR(27)//'[0m'
    ENDIF
  
  ENDFUNCTION assert
  