2 ! { dg-add-options ieee }
3 real :: a(3), nan
, minf
, pinf
4 real, allocatable
:: c(:)
17 if (minloc (a
, dim
= 1).ne
.1) STOP 1
18 if (.not
.isnan(minval (a
, dim
= 1))) STOP 2
20 if (minloc (a
, dim
= 1).ne
.1) STOP 3
21 if (minval (a
, dim
= 1).ne
.pinf
) STOP 4
23 if (minloc (a
, dim
= 1).ne
.3) STOP 5
24 if (minval (a
, dim
= 1).ne
.pinf
) STOP 6
26 if (minloc (a
, dim
= 1).ne
.2) STOP 7
27 if (minval (a
, dim
= 1).ne
.1) STOP 8
29 if (minloc (a
, dim
= 1).ne
.2) STOP 9
30 if (minval (a
, dim
= 1).ne
.minf
) STOP 10
32 if (minloc (c
, dim
= 1).ne
.1) STOP 11
33 if (.not
.isnan(minval (c
, dim
= 1))) STOP 12
35 if (minloc (c
, dim
= 1).ne
.1) STOP 13
36 if (minval (c
, dim
= 1).ne
.pinf
) STOP 14
38 if (minloc (c
, dim
= 1).ne
.3) STOP 15
39 if (minval (c
, dim
= 1).ne
.pinf
) STOP 16
41 if (minloc (c
, dim
= 1).ne
.2) STOP 17
42 if (minval (c
, dim
= 1).ne
.1) STOP 18
44 if (minloc (c
, dim
= 1).ne
.2) STOP 19
45 if (minval (c
, dim
= 1).ne
.minf
) STOP 20
49 if (minloc (a
, dim
= 1, mask
= l
).ne
.0) STOP 21
50 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 22
51 if (minloc (a
, dim
= 1, mask
= l2
).ne
.0) STOP 23
52 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 24
54 if (minloc (a
, dim
= 1, mask
= l
).ne
.0) STOP 25
55 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 26
56 if (minloc (a
, dim
= 1, mask
= l2
).ne
.0) STOP 27
57 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 28
59 if (minloc (a
, dim
= 1, mask
= l
).ne
.0) STOP 29
60 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 30
61 if (minloc (a
, dim
= 1, mask
= l2
).ne
.0) STOP 31
62 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 32
64 if (minloc (a
, dim
= 1, mask
= l
).ne
.0) STOP 33
65 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 34
66 if (minloc (a
, dim
= 1, mask
= l2
).ne
.0) STOP 35
67 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 36
69 if (minloc (a
, dim
= 1, mask
= l
).ne
.0) STOP 37
70 if (minval (a
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 38
71 if (minloc (a
, dim
= 1, mask
= l2
).ne
.0) STOP 39
72 if (minval (a
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 40
74 if (minloc (c
, dim
= 1, mask
= l
).ne
.0) STOP 41
75 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 42
76 if (minloc (c
, dim
= 1, mask
= l2
).ne
.0) STOP 43
77 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 44
79 if (minloc (c
, dim
= 1, mask
= l
).ne
.0) STOP 45
80 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 46
81 if (minloc (c
, dim
= 1, mask
= l2
).ne
.0) STOP 47
82 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 48
84 if (minloc (c
, dim
= 1, mask
= l
).ne
.0) STOP 49
85 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 50
86 if (minloc (c
, dim
= 1, mask
= l2
).ne
.0) STOP 51
87 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 52
89 if (minloc (c
, dim
= 1, mask
= l
).ne
.0) STOP 53
90 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 54
91 if (minloc (c
, dim
= 1, mask
= l2
).ne
.0) STOP 55
92 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 56
94 if (minloc (c
, dim
= 1, mask
= l
).ne
.0) STOP 57
95 if (minval (c
, dim
= 1, mask
= l
).ne
.huge(pinf
)) STOP 58
96 if (minloc (c
, dim
= 1, mask
= l2
).ne
.0) STOP 59
97 if (minval (c
, dim
= 1, mask
= l2
).ne
.huge(pinf
)) STOP 60
101 if (minloc (a
, dim
= 1, mask
= l
).ne
.1) STOP 61
102 if (.not
.isnan(minval (a
, dim
= 1, mask
= l
))) STOP 62
103 if (minloc (a
, dim
= 1, mask
= l2
).ne
.1) STOP 63
104 if (.not
.isnan(minval (a
, dim
= 1, mask
= l2
))) STOP 64
106 if (minloc (a
, dim
= 1, mask
= l
).ne
.1) STOP 65
107 if (minval (a
, dim
= 1, mask
= l
).ne
.pinf
) STOP 66
108 if (minloc (a
, dim
= 1, mask
= l2
).ne
.1) STOP 67
109 if (minval (a
, dim
= 1, mask
= l2
).ne
.pinf
) STOP 68
111 if (minloc (a
, dim
= 1, mask
= l
).ne
.3) STOP 69
112 if (minval (a
, dim
= 1, mask
= l
).ne
.pinf
) STOP 70
113 if (minloc (a
, dim
= 1, mask
= l2
).ne
.3) STOP 71
114 if (minval (a
, dim
= 1, mask
= l2
).ne
.pinf
) STOP 72
116 if (minloc (a
, dim
= 1, mask
= l
).ne
.2) STOP 73
117 if (minval (a
, dim
= 1, mask
= l
).ne
.1) STOP 74
118 if (minloc (a
, dim
= 1, mask
= l2
).ne
.2) STOP 75
119 if (minval (a
, dim
= 1, mask
= l2
).ne
.1) STOP 76
121 if (minloc (a
, dim
= 1, mask
= l
).ne
.2) STOP 77
122 if (minval (a
, dim
= 1, mask
= l
).ne
.minf
) STOP 78
123 if (minloc (a
, dim
= 1, mask
= l2
).ne
.2) STOP 79
124 if (minval (a
, dim
= 1, mask
= l2
).ne
.minf
) STOP 80
126 if (minloc (c
, dim
= 1, mask
= l
).ne
.1) STOP 81
127 if (.not
.isnan(minval (c
, dim
= 1, mask
= l
))) STOP 82
128 if (minloc (c
, dim
= 1, mask
= l2
).ne
.1) STOP 83
129 if (.not
.isnan(minval (c
, dim
= 1, mask
= l2
))) STOP 84
131 if (minloc (c
, dim
= 1, mask
= l
).ne
.1) STOP 85
132 if (minval (c
, dim
= 1, mask
= l
).ne
.pinf
) STOP 86
133 if (minloc (c
, dim
= 1, mask
= l2
).ne
.1) STOP 87
134 if (minval (c
, dim
= 1, mask
= l2
).ne
.pinf
) STOP 88
136 if (minloc (c
, dim
= 1, mask
= l
).ne
.3) STOP 89
137 if (minval (c
, dim
= 1, mask
= l
).ne
.pinf
) STOP 90
138 if (minloc (c
, dim
= 1, mask
= l2
).ne
.3) STOP 91
139 if (minval (c
, dim
= 1, mask
= l2
).ne
.pinf
) STOP 92
141 if (minloc (c
, dim
= 1, mask
= l
).ne
.2) STOP 93
142 if (minval (c
, dim
= 1, mask
= l
).ne
.1) STOP 94
143 if (minloc (c
, dim
= 1, mask
= l2
).ne
.2) STOP 95
144 if (minval (c
, dim
= 1, mask
= l2
).ne
.1) STOP 96
146 if (minloc (c
, dim
= 1, mask
= l
).ne
.2) STOP 97
147 if (minval (c
, dim
= 1, mask
= l
).ne
.minf
) STOP 98
148 if (minloc (c
, dim
= 1, mask
= l2
).ne
.2) STOP 99
149 if (minval (c
, dim
= 1, mask
= l2
).ne
.minf
) STOP 100
152 if (minloc (c
, dim
= 1).ne
.0) STOP 101
153 if (minval (c
, dim
= 1).ne
.huge(pinf
)) STOP 102