gcc/testsuite/gfortran.dg/minlocval_3.f90

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