%!testif HAVE_ARPACK
%! A = sparse ([1,0,0,-1;0,1,0,0;0,0,1,0;0,0,2,1]);
%! old_state = rand ("state");
%! unwind_protect
%!   ## Tested setup provokes segfault in ARPACK
%!   rand ("state", 8);
%!   opts.v0 = rand (8, 1);
%!   [vecs,vals,f] = eigs (A,1,0,opts);
%! unwind_protect_cleanup
%!   rand ("state", old_state);
%! end_unwind_protect