anchor.diff:    integer*8, pointer             :: consolidated_idx(:)
     logical                        :: sorted
     logical                        :: consolidated
  -  integer(kind=map_size_kind)         :: map_size
  -  integer(kind=map_size_kind)         :: n_elements
  -
  -  integer(kind=int16)         :: map_size
  -  integer(kind=int16)         :: n_elements
  -
  -
  +  integer(map_size_kind)         :: map_size
  +  integer(map_size_kind)         :: n_elements
     integer(omp_lock_kind)         :: lock
    end type map_type
   
  
positive.code:  integer, parameter             :: map_size_kind = 8
   
   integer,   parameter           :: map_shift = -15
  integer*8, parameter           :: map_mask  = ibset(0_8,15)-1_8
  
    integer(kind=int16), parameter :: z_kind = 0
    integer(kind=int16), parameter :: o_kind = 1
    integer(kind=int16), parameter           :: map_mask  = ibset(z_kind,15)-o_kind
  
   type cache_map_type
    real(integral_kind), pointer   :: value(:)
  
negative.code: ! should be called before getting data from the map.
  
   use omp_lib
   
   integer, parameter             :: integral_kind = 8
   
  