anchor.diff:      call assert_equals(totalIt, size(iWidth))
   
       call assert_equals(totalIt, size(iId))
  -    
  -    do i = 1, totalIt
  -
  -       call assert_equals(it(1)%length, iLength(i))
  -
  -       call assert_equals(it(1)%width, iWidth(i))
  -
  -       call assert_equals(it(1)%class, iId(i))
  -
  -    end do
  +
  +    do i = 1, nit
  +
  +       countType = 0
  +       
  +       do j = 1, totalIt
  +
  +          if ( iLength(j) .eq. it(i)%length .and. &
  +               iWidth(j) .eq. it(i)%width ) countType = countType + 1
  +
  +       end do
  +
  +       call assert_equals(qIt(i), countType)
  +
  +    end do
  +          
   
     end subroutine test_load_data
   
  
positive.code: 
      do i = 1, ncont
  
         cont(i) = emptyContainer(i, 100.0D0 + i, 200.0D0 - i)
  
      end do
  
      filename = "data.txt"
  
      qIt = (/10, 0, 0, 0/)
      
      call createFiles(it, nit, cont, ncont, qIt)
      
      call loadData(filename)
  
      totalIt = sum(qIt)
      
      call assert_equals(totalIt, nTItems)
  
      call assert_equals(nItems, nTItems)
  
negative.code: 
      type(Container) :: cont(ncont)
      
      do i = 1, nit
  
         it(i) = ItemType(i, 17, 10.0D0 + i, 20.0D0 + i)
  