anchor.diff:      class(*), pointer :: St, P(:)
   
       call this%Clear()
  -    this%OwnsObjects = .true.
  +    this%OwnsObjects = .false.
       read (fid) num
       call this%SetCapacity(num)
       do i=1,num
  
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:         end if
      end do
      this%Count = num
      this%OwnsObjects = .true.
  
      end subroutine ReadBinary
  
  