anchor.diff:          end if
       end do
       this%Count = num
  +    this%OwnsObjects = .true.
   
       end subroutine ReadBinary
   
  
positive.code:             P => arrR
              call this%AddArrayPointer(P)
          else if (k==5) then
              allocate(character(sz)::St) !Ifort required class(*) pointer
              select type (St)
              type is (character(LEN=*))
                  read(fid) St
  
negative.code:     class(*), pointer :: St, P(:)
  
      call this%Clear()
      this%OwnsObjects = .false.
      read (fid) num
      call this%SetCapacity(num)
      do i=1,num
  