anchor.diff:  
   
   
  -
     
   END PROGRAM HASHTEST
   
  
positive.code:                                               !  |  14  |  87  |
                                                !  |  18  |  85  |
                                                !  |  42  |  78  |
    CALL HASHLIST_SORT(HL,ASC)                  !  |  44  |  72  |        
    CALL HASHLIST_SORT(HL,DESC,.FALSE.)         !  |  60  |  64  |
    DO I = 1, 10                                !  |  64  |  60  |
      WRITE(6,'(2I8)') ASC(I),DESC(I)           !  |  72  |  44  |
    END DO                                      !  |  78  |  42  |
  
negative.code: CHARACTER(LEN=16)         :: STR16 = '   Some String  '
  CHARACTER(LEN=20)         :: STR20 = '1 34 tmp xyz  t '
  CHARACTER(LEN=24)         :: STR24 = '  ABCDEFGHIJKLMNO       '
  TYPE(HASH)                :: H
  INTEGER(KIND=4)           :: ASC(10),DESC(10)
    WRITE(6,'("0*** HASHTEST - INTEGER ********")')
    WRITE(6,'("     HASH VALUE OF INT1  ",I20,    " = ",I11)')  INT1, HASHCODE( INT1)
  