anchor.diff:  
     ! Container's type
     integer, allocatable :: cType(:)
  +  !Container's id
  +  integer, allocatable :: cId_(:)
     ! Container's dimensions
     real(8), target, allocatable :: cLength_(:)
     real(8), target, allocatable :: cWidth_(:)
  
positive.code: 
      ! TODO: test allocation error
      allocate(types(nTypes), tL(nTypes), tW(nTypes), maxItems(nTypes), &
               contType(nTypes), iId(nTypes))
  
      ! Load items sizes and initializes the maximum number of items in
      ! the largest container
  
negative.code: 
      read(99, *) nContainers
  
      allocate(clength_(nContainers), cWidth_(nContainers),cId_(nContainers))
  
      do i = 1, nContainers
  
         read(99, *) cLength_(i), cWidth_(i), cId_(i)
  
      end do
  
  