testsuite/gfortran.dg/minlocval_3.f90

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 /))…
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 …
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 /))…
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 …
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 /))…
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 …
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 /))…
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 …
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
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