anchor.diff:          ! F2003 standards! :-(
           key = c_loc(f(1))
   
  -        hash = MurmurHash2(key, tmp, seed)
  +        hash = MurmurHash2(key, nbytes, seed)
   
       end function murmurhash_bit_string
   
  
positive.code:         ! Returns:
          !    32-bit hash of data.
          use, intrinsic:: iso_c_binding
          use const
          integer(c_i0) :: hash
          type(c_ptr), value :: key
          integer(c_int), value :: N
          integer(c_int), value :: seed
      end function MurmurHash2
  end interface
  
  
negative.code:         !    Hash of f using the MurmurHash2 algorithm.
  
          use, intrinsic:: iso_c_binding
          use const, only: i0, i0_length
  
          integer(i0) :: hash
          integer(i0), intent(in), target :: f(N)
  