% Test sparse matrix array row deletion
function x = test_sparse72
[yi1,zi1] = sparse_test_mat('int32',300,400);
[yf1,zf1] = sparse_test_mat('float',300,400);
[yd1,zd1] = sparse_test_mat('double',300,400);
[yc1,zc1] = sparse_test_mat('complex',300,400);
[yz1,zz1] = sparse_test_mat('dcomplex',300,400);
ndxr = randi(ones(100,1),300*ones(100,1));
yi1(ndxr,:) = [];
yf1(ndxr,:) = [];
yd1(ndxr,:) = [];
yc1(ndxr,:) = [];
yz1(ndxr,:) = [];
zi1(ndxr,:) = [];
zf1(ndxr,:) = [];
zd1(ndxr,:) = [];
zc1(ndxr,:) = [];
zz1(ndxr,:) = [];
x = testeq(yi1,zi1) & testeq(yf1,zf1) & testeq(yd1,zd1) & testeq(yc1,zc1) & testeq(yz1,zz1);