4e839c6cfaa40c5f2066684bbf4cf9e0bcfc4d76
[scilab.git] / scilab / modules / core / tests / nonreg_tests / bug_3407.dia.ref
1 //<-- CLI SHELL MODE -->
2 // =============================================================================
3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 // Copyright (C) 2005-2009 - INRIA - Serge.Steer@inria.fr
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 //
9 // <-- Non-regression test for bug 3407 -->
10 //
11 // <-- Bugzilla URL -->
12 // http://bugzilla.scilab.org/show_bug.cgi?id=3407
13 //
14 // <-- Short Description -->
15 //Invalid line numbering in compiled functions
16 fprot=funcprot();
17 funcprot(0);
18 function l=myfun()
19     a=1
20     a=1
21     a=[1;..
22     1;..
23     1;..
24     1;..
25     1;..
26     1;..
27     2]
28     a=1
29     a=1
30     [l,w]=where()
31 endfunction
32 l=myfun();if l(1)<>13 then bugmes();quit;end
33 //If
34 function l=myfun2(),if  %t then [l,w]=where(),end,endfunction
35 l=myfun2();if l(1)<>1 then bugmes();quit;end
36 function l=myfun2()
37     if  %t then [l,w]=where(),end
38 endfunction
39 l=myfun2();if l(1)<>2 then bugmes();quit;end
40 function l=myfun2()
41     if  %t then
42         [l,w]=where()
43     end
44 endfunction
45 l=myfun2();if l(1)<>3 then bugmes();quit;end
46 function l=myfun2()
47     if  [%t
48         %t] then
49         [l,w]=where()
50     end
51 endfunction
52 l=myfun2();if l(1)<>4 then bugmes();quit;end
53 function l=myfun2()
54     if  [%t,..
55         %t] then
56         [l,w]=where()
57     end
58 endfunction
59 l=myfun2();if l(1)<>4 then bugmes();quit;end
60 function l=myfun2()
61     if  %f then
62         l=0,
63     else
64         [l,w]=where()
65     end
66 endfunction
67 l=myfun2();if l(1)<>5 then bugmes();quit;end
68 function l=myfun2()
69     if  %f then
70         l=0,
71     else
72         l=0
73     end
74     [l,w]=where()
75 endfunction
76 l=myfun2();if l(1)<>7 then bugmes();quit;end
77 //for
78 function l=myfun2(),for k=1, [l,w]=where(),end,endfunction
79 l=myfun2();if l(1)<>1 then bugmes();quit;end
80 function l=myfun2(),
81     for k=1, [l,w]=where(),end,
82 endfunction
83 l=myfun2();if l(1)<>2 then bugmes();quit;end
84 function l=myfun2(),
85     for k=1,..
86         [l,w]=where(),
87     end,
88 endfunction
89 l=myfun2();if l(1)<>3 then bugmes();quit;end
90 function l=myfun2(),
91     for k=1,
92         [l,w]=where(),
93     end,
94 endfunction
95 l=myfun2();if l(1)<>3 then bugmes();quit;end
96 function l=myfun2(),
97     for k=1,
98         l=0
99     end,
100     [l,w]=where(),
101 endfunction
102 l=myfun2();if l(1)<>5 then bugmes();quit;end
103 function l=myfun2(),
104     for k=1,
105         l=0
106     end,
107     x=[1;
108     2];
109     [l,w]=where(),
110 endfunction
111 l=myfun2();if l(1)<>7 then bugmes();quit;end
112 function l=myfun2(),
113     for k=1,
114         l=0
115     end,
116     x=[1,..
117     2];
118     [l,w]=where(),
119 endfunction
120 l=myfun2();if l(1)<>7 then bugmes();quit;end
121 //while
122 function l=myfun2(),while  %t then [l,w]=where(),break,end,endfunction
123 l=myfun2();if l(1)<>1 then bugmes();quit;end
124 function l=myfun2()
125     while  %t then [l,w]=where(),break,end
126 endfunction
127 l=myfun2();if l(1)<>2 then bugmes();quit;end
128 function l=myfun2()
129     while  %t then
130         [l,w]=where(),break
131     end
132 endfunction
133 l=myfun2();if l(1)<>3 then bugmes();quit;end
134 function l=myfun2()
135     while  %f then
136         l=0,
137     end
138     [l,w]=where()
139 endfunction
140 l=myfun2();if l(1)<>5 then bugmes();quit;end
141 //Select
142 function l=myfun2(),select 1,case 1 then [l,w]=where(),end,endfunction
143 l=myfun2();if l(1)<>1 then bugmes();quit;end
144 function l=myfun2()
145     select 1,case 1 then [l,w]=where(),end
146 endfunction
147 l=myfun2();if l(1)<>2 then bugmes();quit;end
148 function l=myfun2()
149     select 1,case 1
150         [l,w]=where()
151     end
152 endfunction
153 l=myfun2();if l(1)<>3 then bugmes();quit;end
154 function l=myfun2()
155     select 1,..
156     case 1
157         [l,w]=where()
158     end
159 endfunction
160 l=myfun2();if l(1)<>4 then bugmes();quit;end
161 function l=myfun2()
162     select 1,
163     case 1
164         [l,w]=where()
165     end
166 endfunction
167 l=myfun2();if l(1)<>4 then bugmes();quit;end
168 function l=myfun2()
169     select 1,
170     case 0
171         l=0
172     case 1
173         [l,w]=where()
174     end
175 endfunction
176 l=myfun2();if l(1)<>6 then bugmes();quit;end
177 function l=myfun2()
178     select 1,
179     case 0
180         l=0
181     case 2
182         l=3
183     else
184         [l,w]=where()
185     end
186 endfunction
187 l=myfun2();if l(1)<>8 then bugmes();quit;end
188 function l=myfun2()
189     select 1,
190     case 0
191         l=0
192     case 2
193         l=3
194     else
195         l=-1
196     end
197     [l,w]=where()
198 endfunction
199 l=myfun2();if l(1)<>10 then bugmes();quit;end
200 //try
201 function l=myfun2(),try, [l,w]=where(),end,endfunction
202 l=myfun2();if l(1)<>1 then bugmes();quit;end
203 function l=myfun2()
204     try [l,w]=where(),end
205 endfunction
206 l=myfun2();if l(1)<>2 then bugmes();quit;end
207 function l=myfun2()
208     try
209         [l,w]=where()
210     end
211 endfunction
212 l=myfun2();if l(1)<>3 then bugmes();quit;end
213 function l=myfun2()
214     try ..
215         [l,w]=where()
216     end
217 endfunction
218 l=myfun2();if l(1)<>3 then bugmes();quit;end
219 function l=myfun2()
220     try
221         error(999)
222     catch
223         [l,w]=where()
224     end
225 endfunction
226 l=myfun2();if l(1)<>5 then bugmes();quit;end
227 function l=myfun2()
228     try
229         error(999)
230     catch
231         l=0
232     end
233     [l,w]=where()
234 endfunction
235 l=myfun2();if l(1)<>7 then bugmes();quit;end
236 function l=myfun2()
237     try
238         l=0
239     catch
240         l=0
241     end
242     [l,w]=where()
243 endfunction
244 l=myfun2();if l(1)<>7 then bugmes();quit;end
245 funcprot(fprot);