Fix localization
[scilab.git] / scilab / modules / umfpack / tests / nonreg_tests / bug_8824.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Charlotte HECQUET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 //
10 // <-- LONG TIME EXECUTION -->
11 //
12 // <-- Non-regression test for bug 8824 -->
13 //
14 // <-- Bugzilla URL -->
15 // http://bugzilla.scilab.org/show_bug.cgi?id=8824
16 //
17 // <-- Short Description -->
18 // taucs_chfact returns a segfault (not the case in mode nwni)
19
20 stacksize("max");
21 N=512;
22 h = 1/(N+1);
23 x = h:h:1-h;
24 y = x;
25 [X,Y] = ndgrid(x,y);
26 F = (-2*(%pi^2))*(cos((2*%pi)*X) .*(sin(%pi*Y) .^2) + (sin(%pi*X).^2).*cos((2*%pi)*Y));
27 b = (h^2)*F(:);
28 s = [-1*ones(1,N-1) 2*ones(1,N) -1*ones(1,N-1)]';
29 i = [2:N 1:N 1:N-1]';
30 j = [1:N-1 1:N 2:N ]';
31 ij = [i j];
32 T = sparse(ij,s);
33 I = speye(N,N);
34 A = I .*. T + T .*. I;
35
36 assert_checktrue(execstr("hchol=taucs_chfact(A)","errcatch")==0);
37 assert_checktrue(execstr("taucs_chsolve(hchol,b)","errcatch")==0);
38 assert_checktrue(execstr("taucs_chdel(hchol)","errcatch")==0);