Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief This module contains tests of the module [pm_arraySelect](@ref pm_arraySelect).
18 : !> \author Amir Shahmoradi
19 :
20 : module test_pm_arraySelect
21 :
22 : use pm_arraySelect
23 : use pm_test, only: test_type, LK
24 : use pm_kind, only: IK, RK
25 : implicit none
26 :
27 : private
28 : public :: setTest
29 : type(test_type) :: test
30 :
31 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
32 :
33 : interface
34 :
35 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
36 :
37 : #if SK5_ENABLED
38 : module function test_getSelected_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
39 : #endif
40 : #if SK4_ENABLED
41 : module function test_getSelected_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
42 : #endif
43 : #if SK3_ENABLED
44 : module function test_getSelected_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
45 : #endif
46 : #if SK2_ENABLED
47 : module function test_getSelected_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
48 : #endif
49 : #if SK1_ENABLED
50 : module function test_getSelected_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
51 : #endif
52 :
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #if SK5_ENABLED
56 : module function test_getSelected_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
57 : #endif
58 : #if SK4_ENABLED
59 : module function test_getSelected_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
60 : #endif
61 : #if SK3_ENABLED
62 : module function test_getSelected_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
63 : #endif
64 : #if SK2_ENABLED
65 : module function test_getSelected_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
66 : #endif
67 : #if SK1_ENABLED
68 : module function test_getSelected_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
69 : #endif
70 :
71 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
72 :
73 : #if IK5_ENABLED
74 : module function test_getSelected_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
75 : #endif
76 : #if IK4_ENABLED
77 : module function test_getSelected_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
78 : #endif
79 : #if IK3_ENABLED
80 : module function test_getSelected_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
81 : #endif
82 : #if IK2_ENABLED
83 : module function test_getSelected_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
84 : #endif
85 : #if IK1_ENABLED
86 : module function test_getSelected_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
87 : #endif
88 :
89 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90 :
91 : #if LK5_ENABLED
92 : module function test_getSelected_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
93 : #endif
94 : #if LK4_ENABLED
95 : module function test_getSelected_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
96 : #endif
97 : #if LK3_ENABLED
98 : module function test_getSelected_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
99 : #endif
100 : #if LK2_ENABLED
101 : module function test_getSelected_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
102 : #endif
103 : #if LK1_ENABLED
104 : module function test_getSelected_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
105 : #endif
106 :
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 :
109 : #if CK5_ENABLED
110 : module function test_getSelected_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
111 : #endif
112 : #if CK4_ENABLED
113 : module function test_getSelected_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
114 : #endif
115 : #if CK3_ENABLED
116 : module function test_getSelected_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
117 : #endif
118 : #if CK2_ENABLED
119 : module function test_getSelected_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
120 : #endif
121 : #if CK1_ENABLED
122 : module function test_getSelected_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
123 : #endif
124 :
125 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
126 :
127 : #if RK5_ENABLED
128 : module function test_getSelected_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
129 : #endif
130 : #if RK4_ENABLED
131 : module function test_getSelected_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
132 : #endif
133 : #if RK3_ENABLED
134 : module function test_getSelected_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
135 : #endif
136 : #if RK2_ENABLED
137 : module function test_getSelected_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
138 : #endif
139 : #if RK1_ENABLED
140 : module function test_getSelected_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
141 : #endif
142 :
143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144 :
145 : #if SK5_ENABLED
146 : module function test_getSelected_D1_PSSK5_1 () result(assertion); logical(LK) :: assertion; end function
147 : #endif
148 : #if SK4_ENABLED
149 : module function test_getSelected_D1_PSSK4_1 () result(assertion); logical(LK) :: assertion; end function
150 : #endif
151 : #if SK3_ENABLED
152 : module function test_getSelected_D1_PSSK3_1 () result(assertion); logical(LK) :: assertion; end function
153 : #endif
154 : #if SK2_ENABLED
155 : module function test_getSelected_D1_PSSK2_1 () result(assertion); logical(LK) :: assertion; end function
156 : #endif
157 : #if SK1_ENABLED
158 : module function test_getSelected_D1_PSSK1_1 () result(assertion); logical(LK) :: assertion; end function
159 : #endif
160 :
161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162 :
163 : end interface
164 :
165 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 :
167 : interface
168 :
169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170 :
171 : #if SK5_ENABLED
172 : module function test_setSelected_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
173 : #endif
174 : #if SK4_ENABLED
175 : module function test_setSelected_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
176 : #endif
177 : #if SK3_ENABLED
178 : module function test_setSelected_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
179 : #endif
180 : #if SK2_ENABLED
181 : module function test_setSelected_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
182 : #endif
183 : #if SK1_ENABLED
184 : module function test_setSelected_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
185 : #endif
186 :
187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
188 :
189 : #if SK5_ENABLED
190 : module function test_setSelected_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
191 : #endif
192 : #if SK4_ENABLED
193 : module function test_setSelected_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
194 : #endif
195 : #if SK3_ENABLED
196 : module function test_setSelected_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
197 : #endif
198 : #if SK2_ENABLED
199 : module function test_setSelected_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
200 : #endif
201 : #if SK1_ENABLED
202 : module function test_setSelected_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
203 : #endif
204 :
205 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
206 :
207 : #if IK5_ENABLED
208 : module function test_setSelected_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
209 : #endif
210 : #if IK4_ENABLED
211 : module function test_setSelected_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
212 : #endif
213 : #if IK3_ENABLED
214 : module function test_setSelected_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
215 : #endif
216 : #if IK2_ENABLED
217 : module function test_setSelected_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
218 : #endif
219 : #if IK1_ENABLED
220 : module function test_setSelected_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
221 : #endif
222 :
223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
224 :
225 : #if LK5_ENABLED
226 : module function test_setSelected_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
227 : #endif
228 : #if LK4_ENABLED
229 : module function test_setSelected_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
230 : #endif
231 : #if LK3_ENABLED
232 : module function test_setSelected_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
233 : #endif
234 : #if LK2_ENABLED
235 : module function test_setSelected_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
236 : #endif
237 : #if LK1_ENABLED
238 : module function test_setSelected_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
239 : #endif
240 :
241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
242 :
243 : #if CK5_ENABLED
244 : module function test_setSelected_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
245 : #endif
246 : #if CK4_ENABLED
247 : module function test_setSelected_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
248 : #endif
249 : #if CK3_ENABLED
250 : module function test_setSelected_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
251 : #endif
252 : #if CK2_ENABLED
253 : module function test_setSelected_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
254 : #endif
255 : #if CK1_ENABLED
256 : module function test_setSelected_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
257 : #endif
258 :
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 :
261 : #if RK5_ENABLED
262 : module function test_setSelected_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
263 : #endif
264 : #if RK4_ENABLED
265 : module function test_setSelected_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
266 : #endif
267 : #if RK3_ENABLED
268 : module function test_setSelected_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
269 : #endif
270 : #if RK2_ENABLED
271 : module function test_setSelected_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
272 : #endif
273 : #if RK1_ENABLED
274 : module function test_setSelected_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
275 : #endif
276 :
277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
278 :
279 : #if SK5_ENABLED
280 : module function test_setSelected_D1_PSSK5_1 () result(assertion); logical(LK) :: assertion; end function
281 : #endif
282 : #if SK4_ENABLED
283 : module function test_setSelected_D1_PSSK4_1 () result(assertion); logical(LK) :: assertion; end function
284 : #endif
285 : #if SK3_ENABLED
286 : module function test_setSelected_D1_PSSK3_1 () result(assertion); logical(LK) :: assertion; end function
287 : #endif
288 : #if SK2_ENABLED
289 : module function test_setSelected_D1_PSSK2_1 () result(assertion); logical(LK) :: assertion; end function
290 : #endif
291 : #if SK1_ENABLED
292 : module function test_setSelected_D1_PSSK1_1 () result(assertion); logical(LK) :: assertion; end function
293 : #endif
294 :
295 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
296 :
297 : end interface
298 :
299 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
300 :
301 : contains
302 :
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 :
305 1 : subroutine setTest()
306 :
307 1 : test = test_type(MODULE_NAME)
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 :
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 :
315 : #if SK5_ENABLED
316 : call test%run(test_getSelected_D0_SK5_1, SK_"test_getSelected_D0_SK5_1")
317 : #endif
318 : #if SK4_ENABLED
319 : call test%run(test_getSelected_D0_SK4_1, SK_"test_getSelected_D0_SK4_1")
320 : #endif
321 : #if SK3_ENABLED
322 : call test%run(test_getSelected_D0_SK3_1, SK_"test_getSelected_D0_SK3_1")
323 : #endif
324 : #if SK2_ENABLED
325 : call test%run(test_getSelected_D0_SK2_1, SK_"test_getSelected_D0_SK2_1")
326 : #endif
327 : #if SK1_ENABLED
328 1 : call test%run(test_getSelected_D0_SK1_1, SK_"test_getSelected_D0_SK1_1")
329 : #endif
330 :
331 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
332 :
333 : #if SK5_ENABLED
334 : call test%run(test_getSelected_D1_SK5_1, SK_"test_getSelected_D1_SK5_1")
335 : #endif
336 : #if SK4_ENABLED
337 : call test%run(test_getSelected_D1_SK4_1, SK_"test_getSelected_D1_SK4_1")
338 : #endif
339 : #if SK3_ENABLED
340 : call test%run(test_getSelected_D1_SK3_1, SK_"test_getSelected_D1_SK3_1")
341 : #endif
342 : #if SK2_ENABLED
343 : call test%run(test_getSelected_D1_SK2_1, SK_"test_getSelected_D1_SK2_1")
344 : #endif
345 : #if SK1_ENABLED
346 1 : call test%run(test_getSelected_D1_SK1_1, SK_"test_getSelected_D1_SK1_1")
347 : #endif
348 :
349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
350 :
351 : #if IK5_ENABLED
352 1 : call test%run(test_getSelected_D1_IK5_1, SK_"test_getSelected_D1_IK5_1")
353 : #endif
354 : #if IK4_ENABLED
355 1 : call test%run(test_getSelected_D1_IK4_1, SK_"test_getSelected_D1_IK4_1")
356 : #endif
357 : #if IK3_ENABLED
358 1 : call test%run(test_getSelected_D1_IK3_1, SK_"test_getSelected_D1_IK3_1")
359 : #endif
360 : #if IK2_ENABLED
361 1 : call test%run(test_getSelected_D1_IK2_1, SK_"test_getSelected_D1_IK2_1")
362 : #endif
363 : #if IK1_ENABLED
364 1 : call test%run(test_getSelected_D1_IK1_1, SK_"test_getSelected_D1_IK1_1")
365 : #endif
366 :
367 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
368 :
369 : #if LK5_ENABLED
370 1 : call test%run(test_getSelected_D1_LK5_1, SK_"test_getSelected_D1_LK5_1")
371 : #endif
372 : #if LK4_ENABLED
373 1 : call test%run(test_getSelected_D1_LK4_1, SK_"test_getSelected_D1_LK4_1")
374 : #endif
375 : #if LK3_ENABLED
376 1 : call test%run(test_getSelected_D1_LK3_1, SK_"test_getSelected_D1_LK3_1")
377 : #endif
378 : #if LK2_ENABLED
379 1 : call test%run(test_getSelected_D1_LK2_1, SK_"test_getSelected_D1_LK2_1")
380 : #endif
381 : #if LK1_ENABLED
382 1 : call test%run(test_getSelected_D1_LK1_1, SK_"test_getSelected_D1_LK1_1")
383 : #endif
384 :
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 :
387 : #if CK5_ENABLED
388 : call test%run(test_getSelected_D1_CK5_1, SK_"test_getSelected_D1_CK5_1")
389 : #endif
390 : #if CK4_ENABLED
391 1 : call test%run(test_getSelected_D1_CK4_1, SK_"test_getSelected_D1_CK4_1")
392 : #endif
393 : #if CK3_ENABLED
394 1 : call test%run(test_getSelected_D1_CK3_1, SK_"test_getSelected_D1_CK3_1")
395 : #endif
396 : #if CK2_ENABLED
397 1 : call test%run(test_getSelected_D1_CK2_1, SK_"test_getSelected_D1_CK2_1")
398 : #endif
399 : #if CK1_ENABLED
400 1 : call test%run(test_getSelected_D1_CK1_1, SK_"test_getSelected_D1_CK1_1")
401 : #endif
402 :
403 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404 :
405 : #if RK5_ENABLED
406 : call test%run(test_getSelected_D1_RK5_1, SK_"test_getSelected_D1_RK5_1")
407 : #endif
408 : #if RK4_ENABLED
409 1 : call test%run(test_getSelected_D1_RK4_1, SK_"test_getSelected_D1_RK4_1")
410 : #endif
411 : #if RK3_ENABLED
412 1 : call test%run(test_getSelected_D1_RK3_1, SK_"test_getSelected_D1_RK3_1")
413 : #endif
414 : #if RK2_ENABLED
415 1 : call test%run(test_getSelected_D1_RK2_1, SK_"test_getSelected_D1_RK2_1")
416 : #endif
417 : #if RK1_ENABLED
418 1 : call test%run(test_getSelected_D1_RK1_1, SK_"test_getSelected_D1_RK1_1")
419 : #endif
420 :
421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
422 : #if 0
423 : #if SK5_ENABLED
424 : call test%run(test_getSelected_D1_PSSK5_1, SK_"test_getSelected_D1_PSSK5_1")
425 : #endif
426 : #if SK4_ENABLED
427 : call test%run(test_getSelected_D1_PSSK4_1, SK_"test_getSelected_D1_PSSK4_1")
428 : #endif
429 : #if SK3_ENABLED
430 : call test%run(test_getSelected_D1_PSSK3_1, SK_"test_getSelected_D1_PSSK3_1")
431 : #endif
432 : #if SK2_ENABLED
433 : call test%run(test_getSelected_D1_PSSK2_1, SK_"test_getSelected_D1_PSSK2_1")
434 : #endif
435 : #if SK1_ENABLED
436 : call test%run(test_getSelected_D1_PSSK1_1, SK_"test_getSelected_D1_PSSK1_1")
437 : #endif
438 : #endif
439 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440 :
441 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
444 :
445 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446 :
447 : #if SK5_ENABLED
448 : call test%run(test_setSelected_D0_SK5_1, SK_"test_setSelected_D0_SK5_1")
449 : #endif
450 : #if SK4_ENABLED
451 : call test%run(test_setSelected_D0_SK4_1, SK_"test_setSelected_D0_SK4_1")
452 : #endif
453 : #if SK3_ENABLED
454 : call test%run(test_setSelected_D0_SK3_1, SK_"test_setSelected_D0_SK3_1")
455 : #endif
456 : #if SK2_ENABLED
457 : call test%run(test_setSelected_D0_SK2_1, SK_"test_setSelected_D0_SK2_1")
458 : #endif
459 : #if SK1_ENABLED
460 1 : call test%run(test_setSelected_D0_SK1_1, SK_"test_setSelected_D0_SK1_1")
461 : #endif
462 :
463 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
464 :
465 : #if SK5_ENABLED
466 : call test%run(test_setSelected_D1_SK5_1, SK_"test_setSelected_D1_SK5_1")
467 : #endif
468 : #if SK4_ENABLED
469 : call test%run(test_setSelected_D1_SK4_1, SK_"test_setSelected_D1_SK4_1")
470 : #endif
471 : #if SK3_ENABLED
472 : call test%run(test_setSelected_D1_SK3_1, SK_"test_setSelected_D1_SK3_1")
473 : #endif
474 : #if SK2_ENABLED
475 : call test%run(test_setSelected_D1_SK2_1, SK_"test_setSelected_D1_SK2_1")
476 : #endif
477 : #if SK1_ENABLED
478 1 : call test%run(test_setSelected_D1_SK1_1, SK_"test_setSelected_D1_SK1_1")
479 : #endif
480 :
481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
482 :
483 : #if IK5_ENABLED
484 1 : call test%run(test_setSelected_D1_IK5_1, SK_"test_setSelected_D1_IK5_1")
485 : #endif
486 : #if IK4_ENABLED
487 1 : call test%run(test_setSelected_D1_IK4_1, SK_"test_setSelected_D1_IK4_1")
488 : #endif
489 : #if IK3_ENABLED
490 1 : call test%run(test_setSelected_D1_IK3_1, SK_"test_setSelected_D1_IK3_1")
491 : #endif
492 : #if IK2_ENABLED
493 1 : call test%run(test_setSelected_D1_IK2_1, SK_"test_setSelected_D1_IK2_1")
494 : #endif
495 : #if IK1_ENABLED
496 1 : call test%run(test_setSelected_D1_IK1_1, SK_"test_setSelected_D1_IK1_1")
497 : #endif
498 :
499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
500 :
501 : #if LK5_ENABLED
502 1 : call test%run(test_setSelected_D1_LK5_1, SK_"test_setSelected_D1_LK5_1")
503 : #endif
504 : #if LK4_ENABLED
505 1 : call test%run(test_setSelected_D1_LK4_1, SK_"test_setSelected_D1_LK4_1")
506 : #endif
507 : #if LK3_ENABLED
508 1 : call test%run(test_setSelected_D1_LK3_1, SK_"test_setSelected_D1_LK3_1")
509 : #endif
510 : #if LK2_ENABLED
511 1 : call test%run(test_setSelected_D1_LK2_1, SK_"test_setSelected_D1_LK2_1")
512 : #endif
513 : #if LK1_ENABLED
514 1 : call test%run(test_setSelected_D1_LK1_1, SK_"test_setSelected_D1_LK1_1")
515 : #endif
516 :
517 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
518 :
519 : #if CK5_ENABLED
520 : call test%run(test_setSelected_D1_CK5_1, SK_"test_setSelected_D1_CK5_1")
521 : #endif
522 : #if CK4_ENABLED
523 1 : call test%run(test_setSelected_D1_CK4_1, SK_"test_setSelected_D1_CK4_1")
524 : #endif
525 : #if CK3_ENABLED
526 1 : call test%run(test_setSelected_D1_CK3_1, SK_"test_setSelected_D1_CK3_1")
527 : #endif
528 : #if CK2_ENABLED
529 1 : call test%run(test_setSelected_D1_CK2_1, SK_"test_setSelected_D1_CK2_1")
530 : #endif
531 : #if CK1_ENABLED
532 1 : call test%run(test_setSelected_D1_CK1_1, SK_"test_setSelected_D1_CK1_1")
533 : #endif
534 :
535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
536 :
537 : #if RK5_ENABLED
538 : call test%run(test_setSelected_D1_RK5_1, SK_"test_setSelected_D1_RK5_1")
539 : #endif
540 : #if RK4_ENABLED
541 1 : call test%run(test_setSelected_D1_RK4_1, SK_"test_setSelected_D1_RK4_1")
542 : #endif
543 : #if RK3_ENABLED
544 1 : call test%run(test_setSelected_D1_RK3_1, SK_"test_setSelected_D1_RK3_1")
545 : #endif
546 : #if RK2_ENABLED
547 1 : call test%run(test_setSelected_D1_RK2_1, SK_"test_setSelected_D1_RK2_1")
548 : #endif
549 : #if RK1_ENABLED
550 1 : call test%run(test_setSelected_D1_RK1_1, SK_"test_setSelected_D1_RK1_1")
551 : #endif
552 :
553 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
554 : #if 0
555 : #if SK5_ENABLED
556 : call test%run(test_setSelected_D1_PSSK5_1, SK_"test_setSelected_D1_PSSK5_1")
557 : #endif
558 : #if SK4_ENABLED
559 : call test%run(test_setSelected_D1_PSSK4_1, SK_"test_setSelected_D1_PSSK4_1")
560 : #endif
561 : #if SK3_ENABLED
562 : call test%run(test_setSelected_D1_PSSK3_1, SK_"test_setSelected_D1_PSSK3_1")
563 : #endif
564 : #if SK2_ENABLED
565 : call test%run(test_setSelected_D1_PSSK2_1, SK_"test_setSelected_D1_PSSK2_1")
566 : #endif
567 : #if SK1_ENABLED
568 : call test%run(test_setSelected_D1_PSSK1_1, SK_"test_setSelected_D1_PSSK1_1")
569 : #endif
570 : #endif
571 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
572 :
573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
574 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
575 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
576 1 : call test%summarize()
577 :
578 1 : end subroutine setTest
579 :
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 :
582 : end module test_pm_arraySelect
|
