function x = test_sparse38
ar = [0 0 2 0 3 0
      1 0 2 0 0 3
      1 0 4 5 0 3
      0 0 0 2 0 0];

ai = [1 0 1 2 0 0
      1 0 0 3 0 0
      0 0 2 0 0 4
      0 0 0 3 0 0];

br = [1 0 0 0 0 0
      0 1 0 0 0 0 
      0 0 1 0 0 0 
      0 0 0 1 0 0];

bi = [0 0 2 0 3 0
      1 0 2 0 0 3
      1 0 4 5 0 3
      0 0 0 2 0 0];

a = ar+i*ai;
b = br+i*bi;

A = sparse(a);
B = sparse(b);

C = A + B;
c = a + b;
x = testeq(c,C);