! { 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