3 integer, allocatable :: c(:)
11 if (minloc (a, dim = 1).ne.1) call abort
12 if (minval (a, dim = 1).ne.5) call abort
14 if (minloc (a, dim = 1).ne.2) call abort
15 if (minval (a, dim = 1).ne.h) call abort
17 if (minloc (a, dim = 1).ne.1) call abort
18 if (minval (a, dim = 1).ne.huge(h)) call abort
20 if (minloc (a, dim = 1).ne.3) call abort
21 if (minval (a, dim = 1).ne.huge(h)-1) call abort
23 if (minloc (c, dim = 1).ne.1) call abort
24 if (minval (c, dim = 1).ne.5) call abort
26 if (minloc (c, dim = 1).ne.2) call abort
27 if (minval (c, dim = 1).ne.h) call abort
29 if (minloc (c, dim = 1).ne.1) call abort
30 if (minval (c, dim = 1).ne.huge(h)) call abort
32 if (minloc (c, dim = 1).ne.3) call abort
33 if (minval (c, dim = 1).ne.huge(h)-1) call abort
37 if (minloc (a, dim = 1, mask = l).ne.0) call abort
38 if (minval (a, dim = 1, mask = l).ne.huge(h)) call abort
39 if (minloc (a, dim = 1, mask = l2).ne.0) call abort
40 if (minval (a, dim = 1, mask = l2).ne.huge(h)) call abort
42 if (minloc (a, dim = 1, mask = l).ne.0) call abort
43 if (minval (a, dim = 1, mask = l).ne.huge(h)) call abort
44 if (minloc (a, dim = 1, mask = l2).ne.0) call abort
45 if (minval (a, dim = 1, mask = l2).ne.huge(h)) call abort
47 if (minloc (a, dim = 1, mask = l).ne.0) call abort
48 if (minval (a, dim = 1, mask = l).ne.huge(h)) call abort
49 if (minloc (a, dim = 1, mask = l2).ne.0) call abort
50 if (minval (a, dim = 1, mask = l2).ne.huge(h)) call abort
52 if (minloc (a, dim = 1, mask = l).ne.0) call abort
53 if (minval (a, dim = 1, mask = l).ne.huge(h)) call abort
54 if (minloc (a, dim = 1, mask = l2).ne.0) call abort
55 if (minval (a, dim = 1, mask = l2).ne.huge(h)) call abort
57 if (minloc (c, dim = 1, mask = l).ne.0) call abort
58 if (minval (c, dim = 1, mask = l).ne.huge(h)) call abort
59 if (minloc (c, dim = 1, mask = l2).ne.0) call abort
60 if (minval (c, dim = 1, mask = l2).ne.huge(h)) call abort
62 if (minloc (c, dim = 1, mask = l).ne.0) call abort
63 if (minval (c, dim = 1, mask = l).ne.huge(h)) call abort
64 if (minloc (c, dim = 1, mask = l2).ne.0) call abort
65 if (minval (c, dim = 1, mask = l2).ne.huge(h)) call abort
67 if (minloc (c, dim = 1, mask = l).ne.0) call abort
68 if (minval (c, dim = 1, mask = l).ne.huge(h)) call abort
69 if (minloc (c, dim = 1, mask = l2).ne.0) call abort
70 if (minval (c, dim = 1, mask = l2).ne.huge(h)) call abort
72 if (minloc (c, dim = 1, mask = l).ne.0) call abort
73 if (minval (c, dim = 1, mask = l).ne.huge(h)) call abort
74 if (minloc (c, dim = 1, mask = l2).ne.0) call abort
75 if (minval (c, dim = 1, mask = l2).ne.huge(h)) call abort
79 if (minloc (a, dim = 1, mask = l).ne.1) call abort
80 if (minval (a, dim = 1, mask = l).ne.5) call abort
81 if (minloc (a, dim = 1, mask = l2).ne.1) call abort
82 if (minval (a, dim = 1, mask = l2).ne.5) call abort
84 if (minloc (a, dim = 1, mask = l).ne.2) call abort
85 if (minval (a, dim = 1, mask = l).ne.h) call abort
86 if (minloc (a, dim = 1, mask = l2).ne.2) call abort
87 if (minval (a, dim = 1, mask = l2).ne.h) call abort
89 if (minloc (a, dim = 1, mask = l).ne.1) call abort
90 if (minval (a, dim = 1, mask = l).ne.huge(h)) call abort
91 if (minloc (a, dim = 1, mask = l2).ne.1) call abort
92 if (minval (a, dim = 1, mask = l2).ne.huge(h)) call abort
94 if (minloc (a, dim = 1, mask = l).ne.3) call abort
95 if (minval (a, dim = 1, mask = l).ne.huge(h)-1) call abort
96 if (minloc (a, dim = 1, mask = l2).ne.3) call abort
97 if (minval (a, dim = 1, mask = l2).ne.huge(h)-1) call abort
99 if (minloc (c, dim = 1, mask = l).ne.1) call abort
100 if (minval (c, dim = 1, mask = l).ne.5) call abort
101 if (minloc (c, dim = 1, mask = l2).ne.1) call abort
102 if (minval (c, dim = 1, mask = l2).ne.5) call abort
104 if (minloc (c, dim = 1, mask = l).ne.2) call abort
105 if (minval (c, dim = 1, mask = l).ne.h) call abort
106 if (minloc (c, dim = 1, mask = l2).ne.2) call abort
107 if (minval (c, dim = 1, mask = l2).ne.h) call abort
109 if (minloc (c, dim = 1, mask = l).ne.1) call abort
110 if (minval (c, dim = 1, mask = l).ne.huge(h)) call abort
111 if (minloc (c, dim = 1, mask = l2).ne.1) call abort
112 if (minval (c, dim = 1, mask = l2).ne.huge(h)) call abort
114 if (minloc (c, dim = 1, mask = l).ne.3) call abort
115 if (minval (c, dim = 1, mask = l).ne.huge(h)-1) call abort
116 if (minloc (c, dim = 1, mask = l2).ne.3) call abort
117 if (minval (c, dim = 1, mask = l2).ne.huge(h)-1) call abort
120 if (minloc (c, dim = 1).ne.0) call abort
121 if (minval (c, dim = 1).ne.huge(h)) call abort