anchor.diff:      CLASS(sllist),                 INTENT(in)    :: list
       CHARACTER(len=*),              INTENT(in)    :: key
       INTEGER, ALLOCATABLE, INTENT(out)   :: val(:)
  -    INTEGER                                      :: vallen
  +    !INTEGER                                      :: vallen
   
  -    vallen = 0
  +    !vallen = 0
       IF (ALLOCATED(list%key) .AND. (list%key == key)) THEN
  -       vallen = SIZE(list%val,DIM=1)
  +       !vallen = SIZE(list%val,DIM=1)
          IF (ALLOCATED(val)) DEALLOCATE(val)
          ALLOCATE(val,SOURCE=LIST.VAL)
          val = list%val
  
positive.code:     INTEGER, ALLOCATABLE, INTENT(out)   :: val(:)
      INTEGER                                      :: hash
  
      hash = MOD(sum_string(key),tbl%vec_len)
      CALL tbl%vec(hash)%get(key=key,val=val)
    END SUBROUTINE get_hash_tbl_sll
  
  
negative.code:   TYPE sllist
       TYPE(sllist), POINTER :: child => NULL()
       CHARACTER(len=:), ALLOCATABLE :: key 
       !integer::nval=0
       INTEGER,allocatable::val(:)
     CONTAINS
       PROCEDURE :: put  => put_sll
  