3 integer, allocatable
:: c(:)
11 if (minloc (a
, dim
= 1).ne
.1) STOP 1
12 if (minval (a
, dim
= 1).ne
.5) STOP 2
14 if (minloc (a
, dim
= 1).ne
.2) STOP 3
15 if (minval (a
, dim
= 1).ne
.h
) STOP 4
17 if (minloc (a
, dim
= 1).ne
.1) STOP 5
18 if (minval (a
, dim
= 1).ne
.huge(h
)) STOP 6
20 if (minloc (a
, dim
= 1).ne
.3) STOP 7
21 if (minval (a
, dim
= 1).ne
.huge(h
)-1) STOP 8
23 if (minloc (c
, dim
= 1).ne
.1) STOP 9
24 if (minval (c
, dim
= 1).ne
.5) STOP 10
26 if (minloc (c
, dim
= 1).ne
.2) STOP 11
27 if (minval (c
, dim
= 1).ne
.h
) STOP 12
29 if (minloc (c
, dim
= 1).ne
.1) STOP 13
30 if (minval (c
, dim
= 1).ne
.huge(h
)) STOP 14
32 if (minloc (c
, dim
= 1).ne
.3) STOP 15
33 if (minval (c
, dim
= 1).ne
.huge(h
)-1) STOP 16
37 if (minloc (a
, dim
= 1, mask
= l
).ne
.0) STOP 17
38 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 18
39 if (minloc (a
, dim
= 1, mask
= l2
).ne
.0) STOP 19
40 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 20
42 if (minloc (a
, dim
= 1, mask
= l
).ne
.0) STOP 21
43 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 22
44 if (minloc (a
, dim
= 1, mask
= l2
).ne
.0) STOP 23
45 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 24
47 if (minloc (a
, dim
= 1, mask
= l
).ne
.0) STOP 25
48 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 26
49 if (minloc (a
, dim
= 1, mask
= l2
).ne
.0) STOP 27
50 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 28
52 if (minloc (a
, dim
= 1, mask
= l
).ne
.0) STOP 29
53 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 30
54 if (minloc (a
, dim
= 1, mask
= l2
).ne
.0) STOP 31
55 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 32
57 if (minloc (c
, dim
= 1, mask
= l
).ne
.0) STOP 33
58 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 34
59 if (minloc (c
, dim
= 1, mask
= l2
).ne
.0) STOP 35
60 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 36
62 if (minloc (c
, dim
= 1, mask
= l
).ne
.0) STOP 37
63 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 38
64 if (minloc (c
, dim
= 1, mask
= l2
).ne
.0) STOP 39
65 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 40
67 if (minloc (c
, dim
= 1, mask
= l
).ne
.0) STOP 41
68 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 42
69 if (minloc (c
, dim
= 1, mask
= l2
).ne
.0) STOP 43
70 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 44
72 if (minloc (c
, dim
= 1, mask
= l
).ne
.0) STOP 45
73 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 46
74 if (minloc (c
, dim
= 1, mask
= l2
).ne
.0) STOP 47
75 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 48
79 if (minloc (a
, dim
= 1, mask
= l
).ne
.1) STOP 49
80 if (minval (a
, dim
= 1, mask
= l
).ne
.5) STOP 50
81 if (minloc (a
, dim
= 1, mask
= l2
).ne
.1) STOP 51
82 if (minval (a
, dim
= 1, mask
= l2
).ne
.5) STOP 52
84 if (minloc (a
, dim
= 1, mask
= l
).ne
.2) STOP 53
85 if (minval (a
, dim
= 1, mask
= l
).ne
.h
) STOP 54
86 if (minloc (a
, dim
= 1, mask
= l2
).ne
.2) STOP 55
87 if (minval (a
, dim
= 1, mask
= l2
).ne
.h
) STOP 56
89 if (minloc (a
, dim
= 1, mask
= l
).ne
.1) STOP 57
90 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 58
91 if (minloc (a
, dim
= 1, mask
= l2
).ne
.1) STOP 59
92 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 60
94 if (minloc (a
, dim
= 1, mask
= l
).ne
.3) STOP 61
95 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(h
)-1) STOP 62
96 if (minloc (a
, dim
= 1, mask
= l2
).ne
.3) STOP 63
97 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(h
)-1) STOP 64
99 if (minloc (c
, dim
= 1, mask
= l
).ne
.1) STOP 65
100 if (minval (c
, dim
= 1, mask
= l
).ne
.5) STOP 66
101 if (minloc (c
, dim
= 1, mask
= l2
).ne
.1) STOP 67
102 if (minval (c
, dim
= 1, mask
= l2
).ne
.5) STOP 68
104 if (minloc (c
, dim
= 1, mask
= l
).ne
.2) STOP 69
105 if (minval (c
, dim
= 1, mask
= l
).ne
.h
) STOP 70
106 if (minloc (c
, dim
= 1, mask
= l2
).ne
.2) STOP 71
107 if (minval (c
, dim
= 1, mask
= l2
).ne
.h
) STOP 72
109 if (minloc (c
, dim
= 1, mask
= l
).ne
.1) STOP 73
110 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(h
)) STOP 74
111 if (minloc (c
, dim
= 1, mask
= l2
).ne
.1) STOP 75
112 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(h
)) STOP 76
114 if (minloc (c
, dim
= 1, mask
= l
).ne
.3) STOP 77
115 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(h
)-1) STOP 78
116 if (minloc (c
, dim
= 1, mask
= l2
).ne
.3) STOP 79
117 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(h
)-1) STOP 80
120 if (minloc (c
, dim
= 1).ne
.0) STOP 81
121 if (minval (c
, dim
= 1).ne
.huge(h
)) STOP 82