Mercurial > octave-nkf

annotate test/test_logical-wfi-t.m @ 5851:acb4a1e0b311 ss-2-9-6

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