3 real, allocatable
:: c(:)
4 integer :: e(30), n
, ia(1)
5 integer, allocatable
:: g(:)
20 if (ia(1).ne
.7) STOP 1
22 if (ia(1).ne
.4) STOP 2
23 if (any (minloc (a
).ne
.(/ 7 /))) STOP 3
24 if (any (minloc (a(::2)).ne
.(/ 4 /))) STOP 4
26 if (ia(1).ne
.7) STOP 5
28 if (ia(1).ne
.4) STOP 6
29 if (any (minloc (c
).ne
.(/ 7 /))) STOP 7
30 if (any (minloc (c(::2)).ne
.(/ 4 /))) STOP 8
32 if (ia(1).ne
.7) STOP 9
34 if (ia(1).ne
.4) STOP 10
35 if (any (minloc (e
).ne
.(/ 7 /))) STOP 11
36 if (any (minloc (e(::2)).ne
.(/ 4 /))) STOP 12
38 if (ia(1).ne
.7) STOP 13
40 if (ia(1).ne
.4) STOP 14
41 if (any (minloc (g
).ne
.(/ 7 /))) STOP 15
42 if (any (minloc (g(::2)).ne
.(/ 4 /))) STOP 16
44 ia
= minloc (a
, mask
= l
)
45 if (ia(1).ne
.7) STOP 17
46 ia
= minloc (a(::2), mask
= l(::2))
47 if (ia(1).ne
.4) STOP 18
48 if (any (minloc (a
, mask
= l
).ne
.(/ 7 /))) STOP 19
49 if (any (minloc (a(::2), mask
= l(::2)).ne
.(/ 4 /))) STOP 20
50 ia
= minloc (c
, mask
= l
)
51 if (ia(1).ne
.7) STOP 21
52 ia
= minloc (c(::2), mask
= l(::2))
53 if (ia(1).ne
.4) STOP 22
54 if (any (minloc (c
, mask
= l
).ne
.(/ 7 /))) STOP 23
55 if (any (minloc (c(::2), mask
= l(::2)).ne
.(/ 4 /))) STOP 24
56 ia
= minloc (e
, mask
= l
)
57 if (ia(1).ne
.7) STOP 25
58 ia
= minloc (e(::2), mask
= l(::2))
59 if (ia(1).ne
.4) STOP 26
60 if (any (minloc (e
, mask
= l
).ne
.(/ 7 /))) STOP 27
61 if (any (minloc (e(::2), mask
= l(::2)).ne
.(/ 4 /))) STOP 28
62 ia
= minloc (g
, mask
= l
)
63 if (ia(1).ne
.7) STOP 29
64 ia
= minloc (g(::2), mask
= l(::2))
65 if (ia(1).ne
.4) STOP 30
66 if (any (minloc (g
, mask
= l
).ne
.(/ 7 /))) STOP 31
67 if (any (minloc (g(::2), mask
= l(::2)).ne
.(/ 4 /))) STOP 32
69 ia
= minloc (a
, mask
= l
)
70 if (ia(1).ne
.0) STOP 33
71 ia
= minloc (a(::2), mask
= l(::2))
72 if (ia(1).ne
.0) STOP 34
73 if (any (minloc (a
, mask
= l
).ne
.(/ 0 /))) STOP 35
74 if (any (minloc (a(::2), mask
= l(::2)).ne
.(/ 0 /))) STOP 36
75 ia
= minloc (c
, mask
= l
)
76 if (ia(1).ne
.0) STOP 37
77 ia
= minloc (c(::2), mask
= l(::2))
78 if (ia(1).ne
.0) STOP 38
79 if (any (minloc (c
, mask
= l
).ne
.(/ 0 /))) STOP 39
80 if (any (minloc (c(::2), mask
= l(::2)).ne
.(/ 0 /))) STOP 40
81 ia
= minloc (e
, mask
= l
)
82 if (ia(1).ne
.0) STOP 41
83 ia
= minloc (e(::2), mask
= l(::2))
84 if (ia(1).ne
.0) STOP 42
85 if (any (minloc (e
, mask
= l
).ne
.(/ 0 /))) STOP 43
86 if (any (minloc (e(::2), mask
= l(::2)).ne
.(/ 0 /))) STOP 44
87 ia
= minloc (g
, mask
= l
)
88 if (ia(1).ne
.0) STOP 45
89 ia
= minloc (g(::2), mask
= l(::2))
90 if (ia(1).ne
.0) STOP 46
91 if (any (minloc (g
, mask
= l
).ne
.(/ 0 /))) STOP 47
92 if (any (minloc (g(::2), mask
= l(::2)).ne
.(/ 0 /))) STOP 48