blob: 56dd4470617bafd417a3eb1ff4f7c158d49054ea [file] [log] [blame]
! { dg-do run }
real :: a(30), b(10, 10), m
real, allocatable :: c(:), d(:, :)
integer :: e(30), f(10, 10), n
integer, allocatable :: g(:), h(:,:)
logical :: l(30), l2(10, 10)
allocate (c (30))
allocate (d (10, 10))
allocate (g (30))
allocate (h (10, 10))
a = 7.0
b = 7.0
c = 7.0
d = 7.0
e = 7
f = 7
g = 7
h = 7
m = huge(m)
n = huge(n)
a(7) = 6.0
b(5, 5) = 6.0
b(5, 6) = 5.0
b(6, 7) = 4.0
c(7) = 6.0
d(5, 5) = 6.0
d(5, 6) = 5.0
d(6, 7) = 4.0
e(7) = 6
f(5, 5) = 6
f(5, 6) = 5
f(6, 7) = 4
g(7) = 6
h(5, 5) = 6
h(5, 6) = 5
h(6, 7) = 4
if (minloc (a, dim = 1).ne.7) STOP 1
if (minval (a, dim = 1).ne.6.0) STOP 2
if (minloc (a(::2), dim = 1).ne.4) STOP 3
if (minval (a(::2), dim = 1).ne.6.0) STOP 4
if (any (minloc (a).ne.(/ 7 /))) STOP 5
if (minval (a).ne.6.0) STOP 6
if (any (minloc (a(::2)).ne.(/ 4 /))) STOP 7
if (minval (a(::2)).ne.6.0) STOP 8
if (any (minloc (b, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 9
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
if (any (minloc (b(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 11
if (any (minval (b(::2,::2), dim = 1).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 12
if (any (minloc (b, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 13
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
if (any (minloc (b(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 15
if (any (minval (b(::2,::2), dim = 2).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 16
if (any (minloc (b).ne.(/ 6, 7 /))) STOP 17
if (minval (b).ne.4.0) STOP 18
if (any (minloc (b(::2,::2)).ne.(/ 3, 3 /))) STOP 19
if (minval (b(::2,::2)).ne.6.0) STOP 20
if (minloc (c, dim = 1).ne.7) STOP 21
if (minval (c, dim = 1).ne.6.0) STOP 22
if (minloc (c(::2), dim = 1).ne.4) STOP 23
if (minval (c(::2), dim = 1).ne.6.0) STOP 24
if (any (minloc (c).ne.(/ 7 /))) STOP 25
if (minval (c).ne.6.0) STOP 26
if (any (minloc (c(::2)).ne.(/ 4 /))) STOP 27
if (minval (c(::2)).ne.6.0) STOP 28
if (any (minloc (d, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 29
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
if (any (minloc (d(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 31
if (any (minval (d(::2,::2), dim = 1).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 32
if (any (minloc (d, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 33
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
if (any (minloc (d(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 35
if (any (minval (d(::2,::2), dim = 2).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 36
if (any (minloc (d).ne.(/ 6, 7 /))) STOP 37
if (minval (d).ne.4.0) STOP 38
if (any (minloc (d(::2,::2)).ne.(/ 3, 3 /))) STOP 39
if (minval (d(::2,::2)).ne.6.0) STOP 40
if (minloc (e, dim = 1).ne.7) STOP 41
if (minval (e, dim = 1).ne.6) STOP 42
if (minloc (e(::2), dim = 1).ne.4) STOP 43
if (minval (e(::2), dim = 1).ne.6) STOP 44
if (any (minloc (e).ne.(/ 7 /))) STOP 45
if (minval (e).ne.6) STOP 46
if (any (minloc (e(::2)).ne.(/ 4 /))) STOP 47
if (minval (e(::2)).ne.6) STOP 48
if (any (minloc (f, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 49
if (any (minval (f, dim = 1).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 50
if (any (minloc (f(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 51
if (any (minval (f(::2,::2), dim = 1).ne.(/ 7, 7, 6, 7, 7 /))) STOP 52
if (any (minloc (f, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 53
if (any (minval (f, dim = 2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 54
if (any (minloc (f(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 55
if (any (minval (f(::2,::2), dim = 2).ne.(/ 7, 7, 6, 7, 7 /))) STOP 56
if (any (minloc (f).ne.(/ 6, 7 /))) STOP 57
if (minval (f).ne.4) STOP 58
if (any (minloc (f(::2,::2)).ne.(/ 3, 3 /))) STOP 59
if (minval (f(::2,::2)).ne.6) STOP 60
if (minloc (g, dim = 1).ne.7) STOP 61
if (minval (g, dim = 1).ne.6) STOP 62
if (minloc (g(::2), dim = 1).ne.4) STOP 63
if (minval (g(::2), dim = 1).ne.6) STOP 64
if (any (minloc (g).ne.(/ 7 /))) STOP 65
if (minval (g).ne.6) STOP 66
if (any (minloc (g(::2)).ne.(/ 4 /))) STOP 67
if (minval (g(::2)).ne.6) STOP 68
if (any (minloc (h, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 69
if (any (minval (h, dim = 1).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 70
if (any (minloc (h(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 71
if (any (minval (h(::2,::2), dim = 1).ne.(/ 7, 7, 6, 7, 7 /))) STOP 72
if (any (minloc (h, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 73
if (any (minval (h, dim = 2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 74
if (any (minloc (h(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 75
if (any (minval (h(::2,::2), dim = 2).ne.(/ 7, 7, 6, 7, 7 /))) STOP 76
if (any (minloc (h).ne.(/ 6, 7 /))) STOP 77
if (minval (h).ne.4) STOP 78
if (any (minloc (h(::2,::2)).ne.(/ 3, 3 /))) STOP 79
if (minval (h(::2,::2)).ne.6) STOP 80
l = .true.
l2 = .true.
if (minloc (a, dim = 1, mask = l).ne.7) STOP 81
if (minval (a, dim = 1, mask = l).ne.6.0) STOP 82
if (minloc (a(::2), dim = 1, mask = l(::2)).ne.4) STOP 83
if (minval (a(::2), dim = 1, mask = l(::2)).ne.6.0) STOP 84
if (any (minloc (a, mask = l).ne.(/ 7 /))) STOP 85
if (minval (a, mask = l).ne.6.0) STOP 86
if (any (minloc (a(::2), mask = l(::2)).ne.(/ 4 /))) STOP 87
if (minval (a(::2), mask = l(::2)).ne.6.0) STOP 88
if (any (minloc (b, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 89
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
if (any (minloc (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 91
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
if (any (minloc (b, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 93
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
if (any (minloc (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 95
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
if (any (minloc (b, mask = l2).ne.(/ 6, 7 /))) STOP 97
if (minval (b, mask = l2).ne.4.0) STOP 98
if (any (minloc (b(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 99
if (minval (b(::2,::2), mask = l2(::2,::2)).ne.6.0) STOP 100
if (minloc (c, dim = 1, mask = l).ne.7) STOP 101
if (minval (c, dim = 1, mask = l).ne.6.0) STOP 102
if (minloc (c(::2), dim = 1, mask = l(::2)).ne.4) STOP 103
if (minval (c(::2), dim = 1, mask = l(::2)).ne.6.0) STOP 104
if (any (minloc (c, mask = l).ne.(/ 7 /))) STOP 105
if (minval (c, mask = l).ne.6.0) STOP 106
if (any (minloc (c(::2), mask = l(::2)).ne.(/ 4 /))) STOP 107
if (minval (c(::2), mask = l(::2)).ne.6.0) STOP 108
if (any (minloc (d, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 109
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
if (any (minloc (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 111
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
if (any (minloc (d, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 113
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
if (any (minloc (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 115
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
if (any (minloc (d, mask = l2).ne.(/ 6, 7 /))) STOP 117
if (minval (d, mask = l2).ne.4.0) STOP 118
if (any (minloc (d(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 119
if (minval (d(::2,::2), mask = l2(::2,::2)).ne.6.0) STOP 120
if (minloc (e, dim = 1, mask = l).ne.7) STOP 121
if (minval (e, dim = 1, mask = l).ne.6) STOP 122
if (minloc (e(::2), dim = 1, mask = l(::2)).ne.4) STOP 123
if (minval (e(::2), dim = 1, mask = l(::2)).ne.6) STOP 124
if (any (minloc (e, mask = l).ne.(/ 7 /))) STOP 125
if (minval (e, mask = l).ne.6) STOP 126
if (any (minloc (e(::2), mask = l(::2)).ne.(/ 4 /))) STOP 127
if (minval (e(::2), mask = l(::2)).ne.6) STOP 128
if (any (minloc (f, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 129
if (any (minval (f, dim = 1, mask = l2).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 130
if (any (minloc (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 131
if (any (minval (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 132
if (any (minloc (f, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 133
if (any (minval (f, dim = 2, mask = l2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 134
if (any (minloc (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 135
if (any (minval (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 136
if (any (minloc (f, mask = l2).ne.(/ 6, 7 /))) STOP 137
if (minval (f, mask = l2).ne.4) STOP 138
if (any (minloc (f(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 139
if (minval (f(::2,::2), mask = l2(::2,::2)).ne.6) STOP 140
if (minloc (g, dim = 1, mask = l).ne.7) STOP 141
if (minval (g, dim = 1, mask = l).ne.6) STOP 142
if (minloc (g(::2), dim = 1, mask = l(::2)).ne.4) STOP 143
if (minval (g(::2), dim = 1, mask = l(::2)).ne.6) STOP 144
if (any (minloc (g, mask = l).ne.(/ 7 /))) STOP 145
if (minval (g, mask = l).ne.6) STOP 146
if (any (minloc (g(::2), mask = l(::2)).ne.(/ 4 /))) STOP 147
if (minval (g(::2), mask = l(::2)).ne.6) STOP 148
if (any (minloc (h, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 149
if (any (minval (h, dim = 1, mask = l2).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 150
if (any (minloc (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 151
if (any (minval (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 152
if (any (minloc (h, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 153
if (any (minval (h, dim = 2, mask = l2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 154
if (any (minloc (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 155
if (any (minval (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 156
if (any (minloc (h, mask = l2).ne.(/ 6, 7 /))) STOP 157
if (minval (h, mask = l2).ne.4) STOP 158
if (any (minloc (h(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 159
if (minval (h(::2,::2), mask = l2(::2,::2)).ne.6) STOP 160
l = .false.
l2 = .false.
if (minloc (a, dim = 1, mask = l).ne.0) STOP 161
if (minval (a, dim = 1, mask = l).ne.m) STOP 162
if (minloc (a(::2), dim = 1, mask = l(::2)).ne.0) STOP 163
if (minval (a(::2), dim = 1, mask = l(::2)).ne.m) STOP 164
if (any (minloc (a, mask = l).ne.(/ 0 /))) STOP 165
if (minval (a, mask = l).ne.m) STOP 166
if (any (minloc (a(::2), mask = l(::2)).ne.(/ 0 /))) STOP 167
if (minval (a(::2), mask = l(::2)).ne.m) STOP 168
if (any (minloc (b, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 169
if (any (minval (b, dim = 1, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 170
if (any (minloc (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 171
if (any (minval (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 172
if (any (minloc (b, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 173
if (any (minval (b, dim = 2, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 174
if (any (minloc (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 175
if (any (minval (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 176
if (any (minloc (b, mask = l2).ne.(/ 0, 0 /))) STOP 177
if (minval (b, mask = l2).ne.m) STOP 178
if (any (minloc (b(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 179
if (minval (b(::2,::2), mask = l2(::2,::2)).ne.m) STOP 180
if (minloc (c, dim = 1, mask = l).ne.0) STOP 181
if (minval (c, dim = 1, mask = l).ne.m) STOP 182
if (minloc (c(::2), dim = 1, mask = l(::2)).ne.0) STOP 183
if (minval (c(::2), dim = 1, mask = l(::2)).ne.m) STOP 184
if (any (minloc (c, mask = l).ne.(/ 0 /))) STOP 185
if (minval (c, mask = l).ne.m) STOP 186
if (any (minloc (c(::2), mask = l(::2)).ne.(/ 0 /))) STOP 187
if (minval (c(::2), mask = l(::2)).ne.m) STOP 188
if (any (minloc (d, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 189
if (any (minval (d, dim = 1, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 190
if (any (minloc (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 191
if (any (minval (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 192
if (any (minloc (d, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 193
if (any (minval (d, dim = 2, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 194
if (any (minloc (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 195
if (any (minval (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 196
if (any (minloc (d, mask = l2).ne.(/ 0, 0 /))) STOP 197
if (minval (d, mask = l2).ne.m) STOP 198
if (any (minloc (d(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 199
if (minval (d(::2,::2), mask = l2(::2,::2)).ne.m) STOP 200
if (minloc (e, dim = 1, mask = l).ne.0) STOP 201
if (minval (e, dim = 1, mask = l).ne.n) STOP 202
if (minloc (e(::2), dim = 1, mask = l(::2)).ne.0) STOP 203
if (minval (e(::2), dim = 1, mask = l(::2)).ne.n) STOP 204
if (any (minloc (e, mask = l).ne.(/ 0 /))) STOP 205
if (minval (e, mask = l).ne.n) STOP 206
if (any (minloc (e(::2), mask = l(::2)).ne.(/ 0 /))) STOP 207
if (minval (e(::2), mask = l(::2)).ne.n) STOP 208
if (any (minloc (f, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 209
if (any (minval (f, dim = 1, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 210
if (any (minloc (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 211
if (any (minval (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 212
if (any (minloc (f, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 213
if (any (minval (f, dim = 2, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 214
if (any (minloc (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 215
if (any (minval (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 216
if (any (minloc (f, mask = l2).ne.(/ 0, 0 /))) STOP 217
if (minval (f, mask = l2).ne.n) STOP 218
if (any (minloc (f(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 219
if (minval (f(::2,::2), mask = l2(::2,::2)).ne.n) STOP 220
if (minloc (g, dim = 1, mask = l).ne.0) STOP 221
if (minval (g, dim = 1, mask = l).ne.n) STOP 222
if (minloc (g(::2), dim = 1, mask = l(::2)).ne.0) STOP 223
if (minval (g(::2), dim = 1, mask = l(::2)).ne.n) STOP 224
if (any (minloc (g, mask = l).ne.(/ 0 /))) STOP 225
if (minval (g, mask = l).ne.n) STOP 226
if (any (minloc (g(::2), mask = l(::2)).ne.(/ 0 /))) STOP 227
if (minval (g(::2), mask = l(::2)).ne.n) STOP 228
if (any (minloc (h, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 229
if (any (minval (h, dim = 1, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 230
if (any (minloc (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 231
if (any (minval (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 232
if (any (minloc (h, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 233
if (any (minval (h, dim = 2, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 234
if (any (minloc (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 235
if (any (minval (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 236
if (any (minloc (h, mask = l2).ne.(/ 0, 0 /))) STOP 237
if (minval (h, mask = l2).ne.n) STOP 238
if (any (minloc (h(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 239
if (minval (h(::2,::2), mask = l2(::2,::2)).ne.n) STOP 240
a = 7.0
b = 7.0
c = 7.0
d = 7.0
end