?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
reflect: canonicalize types returned by StructOf() and friends
[official-gcc.git] / gcc / testsuite / gfortran.dg / minlocval_3.f90
blob56dd4470617bafd417a3eb1ff4f7c158d49054ea
1 ! { dg-do run }
2 real :: a(30), b(10, 10), m
3 real, allocatable :: c(:), d(:, :)
4 integer :: e(30), f(10, 10), n
5 integer, allocatable :: g(:), h(:,:)
6 logical :: l(30), l2(10, 10)
7 allocate (c (30))
8 allocate (d (10, 10))
9 allocate (g (30))
10 allocate (h (10, 10))
11 a = 7.0
12 b = 7.0
13 c = 7.0
14 d = 7.0
15 e = 7
16 f = 7
17 g = 7
18 h = 7
19 m = huge(m)
20 n = huge(n)
21 a(7) = 6.0
22 b(5, 5) = 6.0
23 b(5, 6) = 5.0
24 b(6, 7) = 4.0
25 c(7) = 6.0
26 d(5, 5) = 6.0
27 d(5, 6) = 5.0
28 d(6, 7) = 4.0
29 e(7) = 6
30 f(5, 5) = 6
31 f(5, 6) = 5
32 f(6, 7) = 4
33 g(7) = 6
34 h(5, 5) = 6
35 h(5, 6) = 5
36 h(6, 7) = 4
37 if (minloc (a, dim = 1).ne.7) STOP 1
38 if (minval (a, dim = 1).ne.6.0) STOP 2
39 if (minloc (a(::2), dim = 1).ne.4) STOP 3
40 if (minval (a(::2), dim = 1).ne.6.0) STOP 4
41 if (any (minloc (a).ne.(/ 7 /))) STOP 5
42 if (minval (a).ne.6.0) STOP 6
43 if (any (minloc (a(::2)).ne.(/ 4 /))) STOP 7
44 if (minval (a(::2)).ne.6.0) STOP 8
45 if (any (minloc (b, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 9
46 if (any (minval (b, dim = 1).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) STOP 10
47 if (any (minloc (b(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 11
48 if (any (minval (b(::2,::2), dim = 1).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 12
49 if (any (minloc (b, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 13
50 if (any (minval (b, dim = 2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) STOP 14
51 if (any (minloc (b(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 15
52 if (any (minval (b(::2,::2), dim = 2).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 16
53 if (any (minloc (b).ne.(/ 6, 7 /))) STOP 17
54 if (minval (b).ne.4.0) STOP 18
55 if (any (minloc (b(::2,::2)).ne.(/ 3, 3 /))) STOP 19
56 if (minval (b(::2,::2)).ne.6.0) STOP 20
57 if (minloc (c, dim = 1).ne.7) STOP 21
58 if (minval (c, dim = 1).ne.6.0) STOP 22
59 if (minloc (c(::2), dim = 1).ne.4) STOP 23
60 if (minval (c(::2), dim = 1).ne.6.0) STOP 24
61 if (any (minloc (c).ne.(/ 7 /))) STOP 25
62 if (minval (c).ne.6.0) STOP 26
63 if (any (minloc (c(::2)).ne.(/ 4 /))) STOP 27
64 if (minval (c(::2)).ne.6.0) STOP 28
65 if (any (minloc (d, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 29
66 if (any (minval (d, dim = 1).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) STOP 30
67 if (any (minloc (d(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 31
68 if (any (minval (d(::2,::2), dim = 1).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 32
69 if (any (minloc (d, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 33
70 if (any (minval (d, dim = 2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) STOP 34
71 if (any (minloc (d(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 35
72 if (any (minval (d(::2,::2), dim = 2).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 36
73 if (any (minloc (d).ne.(/ 6, 7 /))) STOP 37
74 if (minval (d).ne.4.0) STOP 38
75 if (any (minloc (d(::2,::2)).ne.(/ 3, 3 /))) STOP 39
76 if (minval (d(::2,::2)).ne.6.0) STOP 40
77 if (minloc (e, dim = 1).ne.7) STOP 41
78 if (minval (e, dim = 1).ne.6) STOP 42
79 if (minloc (e(::2), dim = 1).ne.4) STOP 43
80 if (minval (e(::2), dim = 1).ne.6) STOP 44
81 if (any (minloc (e).ne.(/ 7 /))) STOP 45
82 if (minval (e).ne.6) STOP 46
83 if (any (minloc (e(::2)).ne.(/ 4 /))) STOP 47
84 if (minval (e(::2)).ne.6) STOP 48
85 if (any (minloc (f, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 49
86 if (any (minval (f, dim = 1).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 50
87 if (any (minloc (f(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 51
88 if (any (minval (f(::2,::2), dim = 1).ne.(/ 7, 7, 6, 7, 7 /))) STOP 52
89 if (any (minloc (f, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 53
90 if (any (minval (f, dim = 2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 54
91 if (any (minloc (f(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 55
92 if (any (minval (f(::2,::2), dim = 2).ne.(/ 7, 7, 6, 7, 7 /))) STOP 56
93 if (any (minloc (f).ne.(/ 6, 7 /))) STOP 57
94 if (minval (f).ne.4) STOP 58
95 if (any (minloc (f(::2,::2)).ne.(/ 3, 3 /))) STOP 59
96 if (minval (f(::2,::2)).ne.6) STOP 60
97 if (minloc (g, dim = 1).ne.7) STOP 61
98 if (minval (g, dim = 1).ne.6) STOP 62
99 if (minloc (g(::2), dim = 1).ne.4) STOP 63
100 if (minval (g(::2), dim = 1).ne.6) STOP 64
101 if (any (minloc (g).ne.(/ 7 /))) STOP 65
102 if (minval (g).ne.6) STOP 66
103 if (any (minloc (g(::2)).ne.(/ 4 /))) STOP 67
104 if (minval (g(::2)).ne.6) STOP 68
105 if (any (minloc (h, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 69
106 if (any (minval (h, dim = 1).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 70
107 if (any (minloc (h(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 71
108 if (any (minval (h(::2,::2), dim = 1).ne.(/ 7, 7, 6, 7, 7 /))) STOP 72
109 if (any (minloc (h, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 73
110 if (any (minval (h, dim = 2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 74
111 if (any (minloc (h(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 75
112 if (any (minval (h(::2,::2), dim = 2).ne.(/ 7, 7, 6, 7, 7 /))) STOP 76
113 if (any (minloc (h).ne.(/ 6, 7 /))) STOP 77
114 if (minval (h).ne.4) STOP 78
115 if (any (minloc (h(::2,::2)).ne.(/ 3, 3 /))) STOP 79
116 if (minval (h(::2,::2)).ne.6) STOP 80
117 l = .true.
118 l2 = .true.
119 if (minloc (a, dim = 1, mask = l).ne.7) STOP 81
120 if (minval (a, dim = 1, mask = l).ne.6.0) STOP 82
121 if (minloc (a(::2), dim = 1, mask = l(::2)).ne.4) STOP 83
122 if (minval (a(::2), dim = 1, mask = l(::2)).ne.6.0) STOP 84
123 if (any (minloc (a, mask = l).ne.(/ 7 /))) STOP 85
124 if (minval (a, mask = l).ne.6.0) STOP 86
125 if (any (minloc (a(::2), mask = l(::2)).ne.(/ 4 /))) STOP 87
126 if (minval (a(::2), mask = l(::2)).ne.6.0) STOP 88
127 if (any (minloc (b, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 89
128 if (any (minval (b, dim = 1, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) STOP 90
129 if (any (minloc (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 91
130 if (any (minval (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 92
131 if (any (minloc (b, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 93
132 if (any (minval (b, dim = 2, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) STOP 94
133 if (any (minloc (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 95
134 if (any (minval (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 96
135 if (any (minloc (b, mask = l2).ne.(/ 6, 7 /))) STOP 97
136 if (minval (b, mask = l2).ne.4.0) STOP 98
137 if (any (minloc (b(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 99
138 if (minval (b(::2,::2), mask = l2(::2,::2)).ne.6.0) STOP 100
139 if (minloc (c, dim = 1, mask = l).ne.7) STOP 101
140 if (minval (c, dim = 1, mask = l).ne.6.0) STOP 102
141 if (minloc (c(::2), dim = 1, mask = l(::2)).ne.4) STOP 103
142 if (minval (c(::2), dim = 1, mask = l(::2)).ne.6.0) STOP 104
143 if (any (minloc (c, mask = l).ne.(/ 7 /))) STOP 105
144 if (minval (c, mask = l).ne.6.0) STOP 106
145 if (any (minloc (c(::2), mask = l(::2)).ne.(/ 4 /))) STOP 107
146 if (minval (c(::2), mask = l(::2)).ne.6.0) STOP 108
147 if (any (minloc (d, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 109
148 if (any (minval (d, dim = 1, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) STOP 110
149 if (any (minloc (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 111
150 if (any (minval (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 112
151 if (any (minloc (d, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 113
152 if (any (minval (d, dim = 2, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) STOP 114
153 if (any (minloc (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 115
154 if (any (minval (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 116
155 if (any (minloc (d, mask = l2).ne.(/ 6, 7 /))) STOP 117
156 if (minval (d, mask = l2).ne.4.0) STOP 118
157 if (any (minloc (d(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 119
158 if (minval (d(::2,::2), mask = l2(::2,::2)).ne.6.0) STOP 120
159 if (minloc (e, dim = 1, mask = l).ne.7) STOP 121
160 if (minval (e, dim = 1, mask = l).ne.6) STOP 122
161 if (minloc (e(::2), dim = 1, mask = l(::2)).ne.4) STOP 123
162 if (minval (e(::2), dim = 1, mask = l(::2)).ne.6) STOP 124
163 if (any (minloc (e, mask = l).ne.(/ 7 /))) STOP 125
164 if (minval (e, mask = l).ne.6) STOP 126
165 if (any (minloc (e(::2), mask = l(::2)).ne.(/ 4 /))) STOP 127
166 if (minval (e(::2), mask = l(::2)).ne.6) STOP 128
167 if (any (minloc (f, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 129
168 if (any (minval (f, dim = 1, mask = l2).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 130
169 if (any (minloc (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 131
170 if (any (minval (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 132
171 if (any (minloc (f, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 133
172 if (any (minval (f, dim = 2, mask = l2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 134
173 if (any (minloc (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 135
174 if (any (minval (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 136
175 if (any (minloc (f, mask = l2).ne.(/ 6, 7 /))) STOP 137
176 if (minval (f, mask = l2).ne.4) STOP 138
177 if (any (minloc (f(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 139
178 if (minval (f(::2,::2), mask = l2(::2,::2)).ne.6) STOP 140
179 if (minloc (g, dim = 1, mask = l).ne.7) STOP 141
180 if (minval (g, dim = 1, mask = l).ne.6) STOP 142
181 if (minloc (g(::2), dim = 1, mask = l(::2)).ne.4) STOP 143
182 if (minval (g(::2), dim = 1, mask = l(::2)).ne.6) STOP 144
183 if (any (minloc (g, mask = l).ne.(/ 7 /))) STOP 145
184 if (minval (g, mask = l).ne.6) STOP 146
185 if (any (minloc (g(::2), mask = l(::2)).ne.(/ 4 /))) STOP 147
186 if (minval (g(::2), mask = l(::2)).ne.6) STOP 148
187 if (any (minloc (h, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 149
188 if (any (minval (h, dim = 1, mask = l2).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 150
189 if (any (minloc (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 151
190 if (any (minval (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 152
191 if (any (minloc (h, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 153
192 if (any (minval (h, dim = 2, mask = l2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 154
193 if (any (minloc (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 155
194 if (any (minval (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 156
195 if (any (minloc (h, mask = l2).ne.(/ 6, 7 /))) STOP 157
196 if (minval (h, mask = l2).ne.4) STOP 158
197 if (any (minloc (h(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 159
198 if (minval (h(::2,::2), mask = l2(::2,::2)).ne.6) STOP 160
199 l = .false.
200 l2 = .false.
201 if (minloc (a, dim = 1, mask = l).ne.0) STOP 161
202 if (minval (a, dim = 1, mask = l).ne.m) STOP 162
203 if (minloc (a(::2), dim = 1, mask = l(::2)).ne.0) STOP 163
204 if (minval (a(::2), dim = 1, mask = l(::2)).ne.m) STOP 164
205 if (any (minloc (a, mask = l).ne.(/ 0 /))) STOP 165
206 if (minval (a, mask = l).ne.m) STOP 166
207 if (any (minloc (a(::2), mask = l(::2)).ne.(/ 0 /))) STOP 167
208 if (minval (a(::2), mask = l(::2)).ne.m) STOP 168
209 if (any (minloc (b, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 169
210 if (any (minval (b, dim = 1, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 170
211 if (any (minloc (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 171
212 if (any (minval (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 172
213 if (any (minloc (b, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 173
214 if (any (minval (b, dim = 2, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 174
215 if (any (minloc (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 175
216 if (any (minval (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 176
217 if (any (minloc (b, mask = l2).ne.(/ 0, 0 /))) STOP 177
218 if (minval (b, mask = l2).ne.m) STOP 178
219 if (any (minloc (b(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 179
220 if (minval (b(::2,::2), mask = l2(::2,::2)).ne.m) STOP 180
221 if (minloc (c, dim = 1, mask = l).ne.0) STOP 181
222 if (minval (c, dim = 1, mask = l).ne.m) STOP 182
223 if (minloc (c(::2), dim = 1, mask = l(::2)).ne.0) STOP 183
224 if (minval (c(::2), dim = 1, mask = l(::2)).ne.m) STOP 184
225 if (any (minloc (c, mask = l).ne.(/ 0 /))) STOP 185
226 if (minval (c, mask = l).ne.m) STOP 186
227 if (any (minloc (c(::2), mask = l(::2)).ne.(/ 0 /))) STOP 187
228 if (minval (c(::2), mask = l(::2)).ne.m) STOP 188
229 if (any (minloc (d, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 189
230 if (any (minval (d, dim = 1, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 190
231 if (any (minloc (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 191
232 if (any (minval (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 192
233 if (any (minloc (d, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 193
234 if (any (minval (d, dim = 2, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 194
235 if (any (minloc (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 195
236 if (any (minval (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 196
237 if (any (minloc (d, mask = l2).ne.(/ 0, 0 /))) STOP 197
238 if (minval (d, mask = l2).ne.m) STOP 198
239 if (any (minloc (d(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 199
240 if (minval (d(::2,::2), mask = l2(::2,::2)).ne.m) STOP 200
241 if (minloc (e, dim = 1, mask = l).ne.0) STOP 201
242 if (minval (e, dim = 1, mask = l).ne.n) STOP 202
243 if (minloc (e(::2), dim = 1, mask = l(::2)).ne.0) STOP 203
244 if (minval (e(::2), dim = 1, mask = l(::2)).ne.n) STOP 204
245 if (any (minloc (e, mask = l).ne.(/ 0 /))) STOP 205
246 if (minval (e, mask = l).ne.n) STOP 206
247 if (any (minloc (e(::2), mask = l(::2)).ne.(/ 0 /))) STOP 207
248 if (minval (e(::2), mask = l(::2)).ne.n) STOP 208
249 if (any (minloc (f, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 209
250 if (any (minval (f, dim = 1, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 210
251 if (any (minloc (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 211
252 if (any (minval (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 212
253 if (any (minloc (f, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 213
254 if (any (minval (f, dim = 2, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 214
255 if (any (minloc (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 215
256 if (any (minval (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 216
257 if (any (minloc (f, mask = l2).ne.(/ 0, 0 /))) STOP 217
258 if (minval (f, mask = l2).ne.n) STOP 218
259 if (any (minloc (f(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 219
260 if (minval (f(::2,::2), mask = l2(::2,::2)).ne.n) STOP 220
261 if (minloc (g, dim = 1, mask = l).ne.0) STOP 221
262 if (minval (g, dim = 1, mask = l).ne.n) STOP 222
263 if (minloc (g(::2), dim = 1, mask = l(::2)).ne.0) STOP 223
264 if (minval (g(::2), dim = 1, mask = l(::2)).ne.n) STOP 224
265 if (any (minloc (g, mask = l).ne.(/ 0 /))) STOP 225
266 if (minval (g, mask = l).ne.n) STOP 226
267 if (any (minloc (g(::2), mask = l(::2)).ne.(/ 0 /))) STOP 227
268 if (minval (g(::2), mask = l(::2)).ne.n) STOP 228
269 if (any (minloc (h, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 229
270 if (any (minval (h, dim = 1, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 230
271 if (any (minloc (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 231
272 if (any (minval (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 232
273 if (any (minloc (h, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 233
274 if (any (minval (h, dim = 2, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 234
275 if (any (minloc (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 235
276 if (any (minval (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 236
277 if (any (minloc (h, mask = l2).ne.(/ 0, 0 /))) STOP 237
278 if (minval (h, mask = l2).ne.n) STOP 238
279 if (any (minloc (h(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 239
280 if (minval (h(::2,::2), mask = l2(::2,::2)).ne.n) STOP 240
281 a = 7.0
282 b = 7.0
283 c = 7.0
284 d = 7.0
285 end
Mirror of the offical gcc git repository hosted at gcc.gnu.org