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 285end 286