OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [minlocval_3.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn 
  real :: a(30), b(10, 10), m
2 
  real, allocatable :: c(:), d(:, :)
3 
  integer :: e(30), f(10, 10), n
4 
  integer, allocatable :: g(:), h(:,:)
5 
  logical :: l(30), l2(10, 10)
6 
  allocate (c (30))
7 
  allocate (d (10, 10))
8 
  allocate (g (30))
9 
  allocate (h (10, 10))
10 
  a = 7.0
11 
  b = 7.0
12 
  c = 7.0
13 
  d = 7.0
14 
  e = 7
15 
  f = 7
16 
  g = 7
17 
  h = 7
18 
  m = huge(m)
19 
  n = huge(n)
20 
  a(7) = 6.0
21 
  b(5, 5) = 6.0
22 
  b(5, 6) = 5.0
23 
  b(6, 7) = 4.0
24 
  c(7) = 6.0
25 
  d(5, 5) = 6.0
26 
  d(5, 6) = 5.0
27 
  d(6, 7) = 4.0
28 
  e(7) = 6
29 
  f(5, 5) = 6
30 
  f(5, 6) = 5
31 
  f(6, 7) = 4
32 
  g(7) = 6
33 
  h(5, 5) = 6
34 
  h(5, 6) = 5
35 
  h(6, 7) = 4
36 
  if (minloc (a, dim = 1).ne.7) call abort
37 
  if (minval (a, dim = 1).ne.6.0) call abort
38 
  if (minloc (a(::2), dim = 1).ne.4) call abort
39 
  if (minval (a(::2), dim = 1).ne.6.0) call abort
40 
  if (any (minloc (a).ne.(/ 7 /))) call abort
41 
  if (minval (a).ne.6.0) call abort
42 
  if (any (minloc (a(::2)).ne.(/ 4 /))) call abort
43 
  if (minval (a(::2)).ne.6.0) call abort
44 
  if (any (minloc (b, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) call abort
45 
  if (any (minval (b, dim = 1).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) call abort
46 
  if (any (minloc (b(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) call abort
47 
  if (any (minval (b(::2,::2), dim = 1).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) call abort
48 
  if (any (minloc (b, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) call abort
49 
  if (any (minval (b, dim = 2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) call abort
50 
  if (any (minloc (b(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) call abort
51 
  if (any (minval (b(::2,::2), dim = 2).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) call abort
52 
  if (any (minloc (b).ne.(/ 6, 7 /))) call abort
53 
  if (minval (b).ne.4.0) call abort
54 
  if (any (minloc (b(::2,::2)).ne.(/ 3, 3 /))) call abort
55 
  if (minval (b(::2,::2)).ne.6.0) call abort
56 
  if (minloc (c, dim = 1).ne.7) call abort
57 
  if (minval (c, dim = 1).ne.6.0) call abort
58 
  if (minloc (c(::2), dim = 1).ne.4) call abort
59 
  if (minval (c(::2), dim = 1).ne.6.0) call abort
60 
  if (any (minloc (c).ne.(/ 7 /))) call abort
61 
  if (minval (c).ne.6.0) call abort
62 
  if (any (minloc (c(::2)).ne.(/ 4 /))) call abort
63 
  if (minval (c(::2)).ne.6.0) call abort
64 
  if (any (minloc (d, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) call abort
65 
  if (any (minval (d, dim = 1).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) call abort
66 
  if (any (minloc (d(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) call abort
67 
  if (any (minval (d(::2,::2), dim = 1).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) call abort
68 
  if (any (minloc (d, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) call abort
69 
  if (any (minval (d, dim = 2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) call abort
70 
  if (any (minloc (d(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) call abort
71 
  if (any (minval (d(::2,::2), dim = 2).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) call abort
72 
  if (any (minloc (d).ne.(/ 6, 7 /))) call abort
73 
  if (minval (d).ne.4.0) call abort
74 
  if (any (minloc (d(::2,::2)).ne.(/ 3, 3 /))) call abort
75 
  if (minval (d(::2,::2)).ne.6.0) call abort
76 
  if (minloc (e, dim = 1).ne.7) call abort
77 
  if (minval (e, dim = 1).ne.6) call abort
78 
  if (minloc (e(::2), dim = 1).ne.4) call abort
79 
  if (minval (e(::2), dim = 1).ne.6) call abort
80 
  if (any (minloc (e).ne.(/ 7 /))) call abort
81 
  if (minval (e).ne.6) call abort
82 
  if (any (minloc (e(::2)).ne.(/ 4 /))) call abort
83 
  if (minval (e(::2)).ne.6) call abort
84 
  if (any (minloc (f, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) call abort
85 
  if (any (minval (f, dim = 1).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) call abort
86 
  if (any (minloc (f(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) call abort
87 
  if (any (minval (f(::2,::2), dim = 1).ne.(/ 7, 7, 6, 7, 7 /))) call abort
88 
  if (any (minloc (f, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) call abort
89 
  if (any (minval (f, dim = 2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) call abort
90 
  if (any (minloc (f(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) call abort
91 
  if (any (minval (f(::2,::2), dim = 2).ne.(/ 7, 7, 6, 7, 7 /))) call abort
92 
  if (any (minloc (f).ne.(/ 6, 7 /))) call abort
93 
  if (minval (f).ne.4) call abort
94 
  if (any (minloc (f(::2,::2)).ne.(/ 3, 3 /))) call abort
95 
  if (minval (f(::2,::2)).ne.6) call abort
96 
  if (minloc (g, dim = 1).ne.7) call abort
97 
  if (minval (g, dim = 1).ne.6) call abort
98 
  if (minloc (g(::2), dim = 1).ne.4) call abort
99 
  if (minval (g(::2), dim = 1).ne.6) call abort
100 
  if (any (minloc (g).ne.(/ 7 /))) call abort
101 
  if (minval (g).ne.6) call abort
102 
  if (any (minloc (g(::2)).ne.(/ 4 /))) call abort
103 
  if (minval (g(::2)).ne.6) call abort
104 
  if (any (minloc (h, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) call abort
105 
  if (any (minval (h, dim = 1).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) call abort
106 
  if (any (minloc (h(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) call abort
107 
  if (any (minval (h(::2,::2), dim = 1).ne.(/ 7, 7, 6, 7, 7 /))) call abort
108 
  if (any (minloc (h, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) call abort
109 
  if (any (minval (h, dim = 2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) call abort
110 
  if (any (minloc (h(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) call abort
111 
  if (any (minval (h(::2,::2), dim = 2).ne.(/ 7, 7, 6, 7, 7 /))) call abort
112 
  if (any (minloc (h).ne.(/ 6, 7 /))) call abort
113 
  if (minval (h).ne.4) call abort
114 
  if (any (minloc (h(::2,::2)).ne.(/ 3, 3 /))) call abort
115 
  if (minval (h(::2,::2)).ne.6) call abort
116 
  l = .true.
117 
  l2 = .true.
118 
  if (minloc (a, dim = 1, mask = l).ne.7) call abort
119 
  if (minval (a, dim = 1, mask = l).ne.6.0) call abort
120 
  if (minloc (a(::2), dim = 1, mask = l(::2)).ne.4) call abort
121 
  if (minval (a(::2), dim = 1, mask = l(::2)).ne.6.0) call abort
122 
  if (any (minloc (a, mask = l).ne.(/ 7 /))) call abort
123 
  if (minval (a, mask = l).ne.6.0) call abort
124 
  if (any (minloc (a(::2), mask = l(::2)).ne.(/ 4 /))) call abort
125 
  if (minval (a(::2), mask = l(::2)).ne.6.0) call abort
126 
  if (any (minloc (b, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) call abort
127 
  if (any (minval (b, dim = 1, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) call abort
128 
  if (any (minloc (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) call abort
129 
  if (any (minval (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) call abort
130 
  if (any (minloc (b, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) call abort
131 
  if (any (minval (b, dim = 2, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) call abort
132 
  if (any (minloc (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) call abort
133 
  if (any (minval (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) call abort
134 
  if (any (minloc (b, mask = l2).ne.(/ 6, 7 /))) call abort
135 
  if (minval (b, mask = l2).ne.4.0) call abort
136 
  if (any (minloc (b(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) call abort
137 
  if (minval (b(::2,::2), mask = l2(::2,::2)).ne.6.0) call abort
138 
  if (minloc (c, dim = 1, mask = l).ne.7) call abort
139 
  if (minval (c, dim = 1, mask = l).ne.6.0) call abort
140 
  if (minloc (c(::2), dim = 1, mask = l(::2)).ne.4) call abort
141 
  if (minval (c(::2), dim = 1, mask = l(::2)).ne.6.0) call abort
142 
  if (any (minloc (c, mask = l).ne.(/ 7 /))) call abort
143 
  if (minval (c, mask = l).ne.6.0) call abort
144 
  if (any (minloc (c(::2), mask = l(::2)).ne.(/ 4 /))) call abort
145 
  if (minval (c(::2), mask = l(::2)).ne.6.0) call abort
146 
  if (any (minloc (d, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) call abort
147 
  if (any (minval (d, dim = 1, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) call abort
148 
  if (any (minloc (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) call abort
149 
  if (any (minval (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) call abort
150 
  if (any (minloc (d, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) call abort
151 
  if (any (minval (d, dim = 2, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) call abort
152 
  if (any (minloc (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) call abort
153 
  if (any (minval (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) call abort
154 
  if (any (minloc (d, mask = l2).ne.(/ 6, 7 /))) call abort
155 
  if (minval (d, mask = l2).ne.4.0) call abort
156 
  if (any (minloc (d(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) call abort
157 
  if (minval (d(::2,::2), mask = l2(::2,::2)).ne.6.0) call abort
158 
  if (minloc (e, dim = 1, mask = l).ne.7) call abort
159 
  if (minval (e, dim = 1, mask = l).ne.6) call abort
160 
  if (minloc (e(::2), dim = 1, mask = l(::2)).ne.4) call abort
161 
  if (minval (e(::2), dim = 1, mask = l(::2)).ne.6) call abort
162 
  if (any (minloc (e, mask = l).ne.(/ 7 /))) call abort
163 
  if (minval (e, mask = l).ne.6) call abort
164 
  if (any (minloc (e(::2), mask = l(::2)).ne.(/ 4 /))) call abort
165 
  if (minval (e(::2), mask = l(::2)).ne.6) call abort
166 
  if (any (minloc (f, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) call abort
167 
  if (any (minval (f, dim = 1, mask = l2).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) call abort
168 
  if (any (minloc (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) call abort
169 
  if (any (minval (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) call abort
170 
  if (any (minloc (f, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) call abort
171 
  if (any (minval (f, dim = 2, mask = l2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) call abort
172 
  if (any (minloc (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) call abort
173 
  if (any (minval (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) call abort
174 
  if (any (minloc (f, mask = l2).ne.(/ 6, 7 /))) call abort
175 
  if (minval (f, mask = l2).ne.4) call abort
176 
  if (any (minloc (f(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) call abort
177 
  if (minval (f(::2,::2), mask = l2(::2,::2)).ne.6) call abort
178 
  if (minloc (g, dim = 1, mask = l).ne.7) call abort
179 
  if (minval (g, dim = 1, mask = l).ne.6) call abort
180 
  if (minloc (g(::2), dim = 1, mask = l(::2)).ne.4) call abort
181 
  if (minval (g(::2), dim = 1, mask = l(::2)).ne.6) call abort
182 
  if (any (minloc (g, mask = l).ne.(/ 7 /))) call abort
183 
  if (minval (g, mask = l).ne.6) call abort
184 
  if (any (minloc (g(::2), mask = l(::2)).ne.(/ 4 /))) call abort
185 
  if (minval (g(::2), mask = l(::2)).ne.6) call abort
186 
  if (any (minloc (h, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) call abort
187 
  if (any (minval (h, dim = 1, mask = l2).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) call abort
188 
  if (any (minloc (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) call abort
189 
  if (any (minval (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) call abort
190 
  if (any (minloc (h, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) call abort
191 
  if (any (minval (h, dim = 2, mask = l2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) call abort
192 
  if (any (minloc (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) call abort
193 
  if (any (minval (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) call abort
194 
  if (any (minloc (h, mask = l2).ne.(/ 6, 7 /))) call abort
195 
  if (minval (h, mask = l2).ne.4) call abort
196 
  if (any (minloc (h(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) call abort
197 
  if (minval (h(::2,::2), mask = l2(::2,::2)).ne.6) call abort
198 
  l = .false.
199 
  l2 = .false.
200 
  if (minloc (a, dim = 1, mask = l).ne.0) call abort
201 
  if (minval (a, dim = 1, mask = l).ne.m) call abort
202 
  if (minloc (a(::2), dim = 1, mask = l(::2)).ne.0) call abort
203 
  if (minval (a(::2), dim = 1, mask = l(::2)).ne.m) call abort
204 
  if (any (minloc (a, mask = l).ne.(/ 0 /))) call abort
205 
  if (minval (a, mask = l).ne.m) call abort
206 
  if (any (minloc (a(::2), mask = l(::2)).ne.(/ 0 /))) call abort
207 
  if (minval (a(::2), mask = l(::2)).ne.m) call abort
208 
  if (any (minloc (b, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) call abort
209 
  if (any (minval (b, dim = 1, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) call abort
210 
  if (any (minloc (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) call abort
211 
  if (any (minval (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) call abort
212 
  if (any (minloc (b, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) call abort
213 
  if (any (minval (b, dim = 2, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) call abort
214 
  if (any (minloc (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) call abort
215 
  if (any (minval (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) call abort
216 
  if (any (minloc (b, mask = l2).ne.(/ 0, 0 /))) call abort
217 
  if (minval (b, mask = l2).ne.m) call abort
218 
  if (any (minloc (b(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) call abort
219 
  if (minval (b(::2,::2), mask = l2(::2,::2)).ne.m) call abort
220 
  if (minloc (c, dim = 1, mask = l).ne.0) call abort
221 
  if (minval (c, dim = 1, mask = l).ne.m) call abort
222 
  if (minloc (c(::2), dim = 1, mask = l(::2)).ne.0) call abort
223 
  if (minval (c(::2), dim = 1, mask = l(::2)).ne.m) call abort
224 
  if (any (minloc (c, mask = l).ne.(/ 0 /))) call abort
225 
  if (minval (c, mask = l).ne.m) call abort
226 
  if (any (minloc (c(::2), mask = l(::2)).ne.(/ 0 /))) call abort
227 
  if (minval (c(::2), mask = l(::2)).ne.m) call abort
228 
  if (any (minloc (d, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) call abort
229 
  if (any (minval (d, dim = 1, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) call abort
230 
  if (any (minloc (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) call abort
231 
  if (any (minval (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) call abort
232 
  if (any (minloc (d, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) call abort
233 
  if (any (minval (d, dim = 2, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) call abort
234 
  if (any (minloc (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) call abort
235 
  if (any (minval (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) call abort
236 
  if (any (minloc (d, mask = l2).ne.(/ 0, 0 /))) call abort
237 
  if (minval (d, mask = l2).ne.m) call abort
238 
  if (any (minloc (d(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) call abort
239 
  if (minval (d(::2,::2), mask = l2(::2,::2)).ne.m) call abort
240 
  if (minloc (e, dim = 1, mask = l).ne.0) call abort
241 
  if (minval (e, dim = 1, mask = l).ne.n) call abort
242 
  if (minloc (e(::2), dim = 1, mask = l(::2)).ne.0) call abort
243 
  if (minval (e(::2), dim = 1, mask = l(::2)).ne.n) call abort
244 
  if (any (minloc (e, mask = l).ne.(/ 0 /))) call abort
245 
  if (minval (e, mask = l).ne.n) call abort
246 
  if (any (minloc (e(::2), mask = l(::2)).ne.(/ 0 /))) call abort
247 
  if (minval (e(::2), mask = l(::2)).ne.n) call abort
248 
  if (any (minloc (f, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) call abort
249 
  if (any (minval (f, dim = 1, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) call abort
250 
  if (any (minloc (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) call abort
251 
  if (any (minval (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) call abort
252 
  if (any (minloc (f, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) call abort
253 
  if (any (minval (f, dim = 2, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) call abort
254 
  if (any (minloc (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) call abort
255 
  if (any (minval (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) call abort
256 
  if (any (minloc (f, mask = l2).ne.(/ 0, 0 /))) call abort
257 
  if (minval (f, mask = l2).ne.n) call abort
258 
  if (any (minloc (f(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) call abort
259 
  if (minval (f(::2,::2), mask = l2(::2,::2)).ne.n) call abort
260 
  if (minloc (g, dim = 1, mask = l).ne.0) call abort
261 
  if (minval (g, dim = 1, mask = l).ne.n) call abort
262 
  if (minloc (g(::2), dim = 1, mask = l(::2)).ne.0) call abort
263 
  if (minval (g(::2), dim = 1, mask = l(::2)).ne.n) call abort
264 
  if (any (minloc (g, mask = l).ne.(/ 0 /))) call abort
265 
  if (minval (g, mask = l).ne.n) call abort
266 
  if (any (minloc (g(::2), mask = l(::2)).ne.(/ 0 /))) call abort
267 
  if (minval (g(::2), mask = l(::2)).ne.n) call abort
268 
  if (any (minloc (h, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) call abort
269 
  if (any (minval (h, dim = 1, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) call abort
270 
  if (any (minloc (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) call abort
271 
  if (any (minval (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) call abort
272 
  if (any (minloc (h, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) call abort
273 
  if (any (minval (h, dim = 2, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) call abort
274 
  if (any (minloc (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) call abort
275 
  if (any (minval (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) call abort
276 
  if (any (minloc (h, mask = l2).ne.(/ 0, 0 /))) call abort
277 
  if (minval (h, mask = l2).ne.n) call abort
278 
  if (any (minloc (h(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) call abort
279 
  if (minval (h(::2,::2), mask = l2(::2,::2)).ne.n) call abort
280 
  a = 7.0
281 
  b = 7.0
282 
  c = 7.0
283 
  d = 7.0
284 
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.