5590
|
1 %% Automatically generated from DejaGNU files |
|
2 |
|
3 %% test/octave.test/logical-wfi-t/s-1.m |
|
4 %!test |
5781
|
5 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
6 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
7 %! a = []; |
|
8 %! fail("a(0);"); |
5781
|
9 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
10 |
|
11 %% test/octave.test/logical-wfi-t/s-2.m |
|
12 %!test |
5781
|
13 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
14 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
15 %! a = 2; |
|
16 %! assert(a(1) == 2); |
5781
|
17 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
18 |
|
19 %% test/octave.test/logical-wfi-t/s-3.m |
|
20 %!test |
5781
|
21 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
22 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
23 %! a = 2; |
|
24 %! assert(a(1) == 2); |
5781
|
25 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
26 |
|
27 %% test/octave.test/logical-wfi-t/s-4.m |
|
28 %!test |
5781
|
29 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
30 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
31 %! a = 2; |
|
32 %! assert(all (a(logical ([1,1])) == [2,2])); |
5781
|
33 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
34 |
|
35 %% test/octave.test/logical-wfi-t/v-1.m |
|
36 %!test |
5781
|
37 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
38 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
39 %! a = [9,8,7,6]; |
|
40 %! assert(isempty (a(logical ([0,0,0,0])))); |
5781
|
41 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
42 |
|
43 %% test/octave.test/logical-wfi-t/v-2.m |
|
44 %!test |
5781
|
45 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
46 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
47 %! a = [9,8,7,6]; |
|
48 %! assert(all (a(logical ([1,1,1,1])) == [9,8,7,6])); |
5781
|
49 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
50 |
|
51 %% test/octave.test/logical-wfi-t/v-3.m |
|
52 %!test |
5781
|
53 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
54 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
55 %! a = [9,8,7,6]; |
|
56 %! assert(all (a(logical ([0,1,1,0])) == [8,7])); |
5781
|
57 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
58 |
|
59 %% test/octave.test/logical-wfi-t/v-4.m |
|
60 %!test |
5781
|
61 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
62 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
63 %! a = [9,8,7,6]; |
|
64 %! assert(all (a(logical ([1,1])) == [9,9])); |
5781
|
65 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
66 |
|
67 %% test/octave.test/logical-wfi-t/m-1.m |
|
68 %!test |
5781
|
69 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
70 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
71 %! a = [9,8;7,6]; |
|
72 %! isempty (a(logical ([0,0,0,0]))); |
5781
|
73 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
74 |
|
75 %% test/octave.test/logical-wfi-t/m-2.m |
|
76 %!test |
5781
|
77 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
78 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
79 %! a = [9,8;7,6]; |
|
80 %! all (a(logical ([1,1,1,1])) == [9;7;8;6]); |
5781
|
81 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
82 |
|
83 %% test/octave.test/logical-wfi-t/m-3.m |
|
84 %!test |
5781
|
85 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
86 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
87 %! a = [9,8;7,6]; |
|
88 %! all (a(logical ([0,1,1,0])) == [7;8]); |
5781
|
89 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
90 |
|
91 %% test/octave.test/logical-wfi-t/m-4.m |
|
92 %!test |
5781
|
93 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
94 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
95 %! a = [9,8;7,6]; |
|
96 %! assert(a(logical (0:1),logical (0:1)) == 6); |
5781
|
97 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
98 |
|
99 %% test/octave.test/logical-wfi-t/m-5.m |
|
100 %!test |
5781
|
101 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
102 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
103 %! a = [9,8;7,6]; |
|
104 %! assert(all (a(logical (0:1),2:-1:1) == [6,7])); |
5781
|
105 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
106 |
|
107 %% test/octave.test/logical-wfi-t/m-6.m |
|
108 %!test |
5781
|
109 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
110 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
111 %! a = [9,8;7,6]; |
|
112 %! assert(a(logical (0:1),logical ([0,1])) == 6); |
5781
|
113 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
114 |
|
115 %% test/octave.test/logical-wfi-t/m-7.m |
|
116 %!test |
5781
|
117 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
118 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
119 %! a = [9,8;7,6]; |
|
120 %! assert(all (a(logical (0:1),[2,1]) == [6,7])); |
5781
|
121 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
122 |
|
123 %% test/octave.test/logical-wfi-t/m-8.m |
|
124 %!test |
5781
|
125 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
126 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
127 %! a = [9,8;7,6]; |
|
128 %! assert(all (a(logical (0:1),:) == [7,6])); |
5781
|
129 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
130 |
|
131 %% test/octave.test/logical-wfi-t/m-9.m |
|
132 %!test |
5781
|
133 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
134 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
135 %! a = [9,8;7,6]; |
|
136 %! assert(a(logical (0:1),1) == 7); |
5781
|
137 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
138 |
|
139 %% test/octave.test/logical-wfi-t/m-10.m |
|
140 %!test |
5781
|
141 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
142 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
143 %! a = [9,8;7,6]; |
|
144 %! assert(all (a(logical (0:1),logical ([1,1])) == [7,6])); |
5781
|
145 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
146 |
|
147 %% test/octave.test/logical-wfi-t/m-11.m |
|
148 %!test |
5781
|
149 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
150 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
151 %! a = [9,8;7,6]; |
|
152 %! assert(all (a(2:-1:1,logical (0:1)) == [6;8])); |
5781
|
153 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
154 |
|
155 %% test/octave.test/logical-wfi-t/m-12.m |
|
156 %!test |
5781
|
157 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
158 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
159 %! a = [9,8;7,6]; |
|
160 %! assert(all (a(2:-1:1,logical ([0,1])) == [6;8])); |
5781
|
161 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
162 |
|
163 %% test/octave.test/logical-wfi-t/m-13.m |
|
164 %!test |
5781
|
165 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
166 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
167 %! a = [9,8;7,6]; |
|
168 %! assert(all (all (a(2:-1:1,logical ([1,1])) == [7,6;9,8]))); |
5781
|
169 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
170 |
|
171 %% test/octave.test/logical-wfi-t/m-14.m |
|
172 %!test |
5781
|
173 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
174 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
175 %! a = [9,8;7,6]; |
|
176 %! assert(a(logical ([0,1]),logical (0:1)) == 6); |
5781
|
177 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
178 |
|
179 %% test/octave.test/logical-wfi-t/m-15.m |
|
180 %!test |
5781
|
181 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
182 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
183 %! a = [9,8;7,6]; |
|
184 %! assert(all (a(logical ([0,1]),2:-1:1) == [6,7])); |
5781
|
185 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
186 |
|
187 %% test/octave.test/logical-wfi-t/m-16.m |
|
188 %!test |
5781
|
189 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
190 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
191 %! a = [9,8;7,6]; |
|
192 %! assert(a(logical ([0,1]),logical ([0,1])) == 6); |
5781
|
193 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
194 |
|
195 %% test/octave.test/logical-wfi-t/m-17.m |
|
196 %!test |
5781
|
197 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
198 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
199 %! a = [9,8;7,6]; |
|
200 %! assert(all (a(logical ([0,1]),[2,1]) == [6,7])); |
5781
|
201 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
202 |
|
203 %% test/octave.test/logical-wfi-t/m-18.m |
|
204 %!test |
5781
|
205 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
206 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
207 %! a = [9,8;7,6]; |
|
208 %! assert(all (a(logical ([0,1]),:) == [7,6])); |
5781
|
209 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
210 |
|
211 %% test/octave.test/logical-wfi-t/m-19.m |
|
212 %!test |
5781
|
213 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
214 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
215 %! a = [9,8;7,6]; |
|
216 %! assert(a(logical ([0,1]),1) == 7); |
5781
|
217 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
218 |
|
219 %% test/octave.test/logical-wfi-t/m-20.m |
|
220 %!test |
5781
|
221 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
222 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
223 %! a = [9,8;7,6]; |
|
224 %! assert(all (a(logical ([0,1]),logical ([1,1])) == [7,6])); |
5781
|
225 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
226 |
|
227 %% test/octave.test/logical-wfi-t/m-21.m |
|
228 %!test |
5781
|
229 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
230 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
231 %! a = [9,8;7,6]; |
|
232 %! assert(all (a([2,1],logical (0:1)) == [6;8])); |
5781
|
233 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
234 |
|
235 %% test/octave.test/logical-wfi-t/m-22.m |
|
236 %!test |
5781
|
237 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
238 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
239 %! a = [9,8;7,6]; |
|
240 %! assert(all (a([2,1],logical ([0,1])) == [6;8])); |
5781
|
241 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
242 |
|
243 %% test/octave.test/logical-wfi-t/m-23.m |
|
244 %!test |
5781
|
245 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
246 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
247 %! a = [9,8;7,6]; |
|
248 %! assert(all (all (a([2,1],logical ([1,1])) == [7,6;9,8]))); |
5781
|
249 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
250 |
|
251 %% test/octave.test/logical-wfi-t/m-24.m |
|
252 %!test |
5781
|
253 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
254 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
255 %! a = [9,8;7,6]; |
|
256 %! assert(all (a(:,logical (0:1)) == [8;6])); |
5781
|
257 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
258 |
|
259 %% test/octave.test/logical-wfi-t/m-25.m |
|
260 %!test |
5781
|
261 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
262 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
263 %! a = [9,8;7,6]; |
|
264 %! assert(all (a(:,logical ([0,1])) == [8;6])); |
5781
|
265 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
266 |
|
267 %% test/octave.test/logical-wfi-t/m-26.m |
|
268 %!test |
5781
|
269 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
270 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
271 %! a = [9,8;7,6]; |
|
272 %! assert(all (all (a(:,logical ([1,1])) == [9,8;7,6]))); |
5781
|
273 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
274 |
|
275 %% test/octave.test/logical-wfi-t/m-27.m |
|
276 %!test |
5781
|
277 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
278 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
279 %! a = [9,8;7,6]; |
|
280 %! assert(a(1,logical (0:1)) == 8); |
5781
|
281 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
282 |
|
283 %% test/octave.test/logical-wfi-t/m-28.m |
|
284 %!test |
5781
|
285 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
286 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
287 %! a = [9,8;7,6]; |
|
288 %! assert(a(1,logical ([0,1])) == 8); |
5781
|
289 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
290 |
|
291 %% test/octave.test/logical-wfi-t/m-29.m |
|
292 %!test |
5781
|
293 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
294 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
295 %! a = [9,8;7,6]; |
|
296 %! assert(all (a(1,logical ([1,1])) == [9,8])); |
5781
|
297 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
298 |
|
299 %% test/octave.test/logical-wfi-t/m-30.m |
|
300 %!test |
5781
|
301 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
302 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
303 %! a = [9,8;7,6]; |
|
304 %! assert(all (a(logical ([1,1]),logical (0:1)) == [8;6])); |
5781
|
305 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
306 |
|
307 %% test/octave.test/logical-wfi-t/m-31.m |
|
308 %!test |
5781
|
309 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
310 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
311 %! a = [9,8;7,6]; |
|
312 %! assert(all (all (a(logical ([1,1]),2:-1:1) == [8,9;6,7]))); |
5781
|
313 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
314 |
|
315 %% test/octave.test/logical-wfi-t/m-32.m |
|
316 %!test |
5781
|
317 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
318 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
319 %! a = [9,8;7,6]; |
|
320 %! assert(all (a(logical ([1,1]),logical ([0,1])) == [8;6])); |
5781
|
321 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
322 |
|
323 %% test/octave.test/logical-wfi-t/m-33.m |
|
324 %!test |
5781
|
325 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
326 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
327 %! a = [9,8;7,6]; |
|
328 %! assert(all (all (a(logical ([1,1]),[2,1]) == [8,9;6,7]))); |
5781
|
329 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
330 |
|
331 %% test/octave.test/logical-wfi-t/m-34.m |
|
332 %!test |
5781
|
333 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
334 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
335 %! a = [9,8;7,6]; |
|
336 %! assert(all (all (a(logical ([1,1]),:) == [9,8;7,6]))); |
5781
|
337 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
338 |
|
339 %% test/octave.test/logical-wfi-t/m-35.m |
|
340 %!test |
5781
|
341 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
342 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
343 %! a = [9,8;7,6]; |
|
344 %! assert(all (a(logical ([1,1]),1) == [9;7])); |
5781
|
345 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
346 |
|
347 %% test/octave.test/logical-wfi-t/m-36.m |
|
348 %!test |
5781
|
349 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
350 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
351 %! a = [9,8;7,6]; |
|
352 %! assert(all (all (a(logical ([1,1]),logical ([1,1])) == [9,8;7,6]))); |
5781
|
353 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
354 |