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