test_unista Subroutine

subroutine test_unista()
integer,allocatable :: xdont(:)
integer :: nuni
   call unit_check_start('unista', '-library orderpack') ! start tests
   xdont=[44,33,33,33,22,11,33,44,55,33]
   call unista(xdont,nuni)
   call unit_check('unista',nuni.eq.5,'number of indices. got',nuni,'expected',5)
   call unit_check('unista',all(xdont(:nuni) .eq.  [ 44,33,22,11,55 ]) ,'unique values')
   call unit_check_done('unista',msg='test completed')
end subroutine test_unista