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