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
18 : !> This module contains tests of the module [pm_arrayCompact](@ref pm_arrayCompact).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : module test_pm_arrayCompact
28 :
29 : use pm_arrayCompact
30 : use pm_err, only: err_type
31 : use pm_test, only: test_type, LK
32 : implicit none
33 :
34 : private
35 : public :: setTest
36 : type(test_type) :: test
37 :
38 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 :
40 : interface
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #if SK5_ENABLED
49 : module function test_getCompact_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
50 : #endif
51 : #if SK4_ENABLED
52 : module function test_getCompact_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
53 : #endif
54 : #if SK3_ENABLED
55 : module function test_getCompact_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
56 : #endif
57 : #if SK2_ENABLED
58 : module function test_getCompact_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
59 : #endif
60 : #if SK1_ENABLED
61 : module function test_getCompact_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
62 : #endif
63 :
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 :
66 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
67 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
68 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
69 :
70 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
71 :
72 : #if SK5_ENABLED
73 : module function test_getCompact_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
74 : #endif
75 : #if SK4_ENABLED
76 : module function test_getCompact_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
77 : #endif
78 : #if SK3_ENABLED
79 : module function test_getCompact_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
80 : #endif
81 : #if SK2_ENABLED
82 : module function test_getCompact_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
83 : #endif
84 : #if SK1_ENABLED
85 : module function test_getCompact_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
86 : #endif
87 :
88 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89 :
90 : #if IK5_ENABLED
91 : module function test_getCompact_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
92 : #endif
93 : #if IK4_ENABLED
94 : module function test_getCompact_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
95 : #endif
96 : #if IK3_ENABLED
97 : module function test_getCompact_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
98 : #endif
99 : #if IK2_ENABLED
100 : module function test_getCompact_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
101 : #endif
102 : #if IK1_ENABLED
103 : module function test_getCompact_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
104 : #endif
105 :
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 :
108 : #if LK5_ENABLED
109 : module function test_getCompact_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
110 : #endif
111 : #if LK4_ENABLED
112 : module function test_getCompact_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
113 : #endif
114 : #if LK3_ENABLED
115 : module function test_getCompact_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
116 : #endif
117 : #if LK2_ENABLED
118 : module function test_getCompact_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
119 : #endif
120 : #if LK1_ENABLED
121 : module function test_getCompact_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
122 : #endif
123 :
124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
125 :
126 : #if CK5_ENABLED
127 : module function test_getCompact_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
128 : #endif
129 : #if CK4_ENABLED
130 : module function test_getCompact_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
131 : #endif
132 : #if CK3_ENABLED
133 : module function test_getCompact_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
134 : #endif
135 : #if CK2_ENABLED
136 : module function test_getCompact_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
137 : #endif
138 : #if CK1_ENABLED
139 : module function test_getCompact_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
140 : #endif
141 :
142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143 :
144 : #if RK5_ENABLED
145 : module function test_getCompact_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
146 : #endif
147 : #if RK4_ENABLED
148 : module function test_getCompact_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
149 : #endif
150 : #if RK3_ENABLED
151 : module function test_getCompact_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
152 : #endif
153 : #if RK2_ENABLED
154 : module function test_getCompact_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
155 : #endif
156 : #if RK1_ENABLED
157 : module function test_getCompact_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
158 : #endif
159 :
160 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
161 :
162 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165 :
166 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
167 :
168 : #if SK5_ENABLED
169 : module function test_getCompact_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
170 : #endif
171 : #if SK4_ENABLED
172 : module function test_getCompact_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
173 : #endif
174 : #if SK3_ENABLED
175 : module function test_getCompact_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
176 : #endif
177 : #if SK2_ENABLED
178 : module function test_getCompact_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
179 : #endif
180 : #if SK1_ENABLED
181 : module function test_getCompact_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
182 : #endif
183 :
184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
185 :
186 : #if IK5_ENABLED
187 : module function test_getCompact_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
188 : #endif
189 : #if IK4_ENABLED
190 : module function test_getCompact_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
191 : #endif
192 : #if IK3_ENABLED
193 : module function test_getCompact_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
194 : #endif
195 : #if IK2_ENABLED
196 : module function test_getCompact_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
197 : #endif
198 : #if IK1_ENABLED
199 : module function test_getCompact_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
200 : #endif
201 :
202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 :
204 : #if LK5_ENABLED
205 : module function test_getCompact_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
206 : #endif
207 : #if LK4_ENABLED
208 : module function test_getCompact_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
209 : #endif
210 : #if LK3_ENABLED
211 : module function test_getCompact_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
212 : #endif
213 : #if LK2_ENABLED
214 : module function test_getCompact_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
215 : #endif
216 : #if LK1_ENABLED
217 : module function test_getCompact_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
218 : #endif
219 :
220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
221 :
222 : #if CK5_ENABLED
223 : module function test_getCompact_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
224 : #endif
225 : #if CK4_ENABLED
226 : module function test_getCompact_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
227 : #endif
228 : #if CK3_ENABLED
229 : module function test_getCompact_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
230 : #endif
231 : #if CK2_ENABLED
232 : module function test_getCompact_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
233 : #endif
234 : #if CK1_ENABLED
235 : module function test_getCompact_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
236 : #endif
237 :
238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
239 :
240 : #if RK5_ENABLED
241 : module function test_getCompact_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
242 : #endif
243 : #if RK4_ENABLED
244 : module function test_getCompact_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
245 : #endif
246 : #if RK3_ENABLED
247 : module function test_getCompact_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
248 : #endif
249 : #if RK2_ENABLED
250 : module function test_getCompact_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
251 : #endif
252 : #if RK1_ENABLED
253 : module function test_getCompact_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
254 : #endif
255 :
256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257 :
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261 :
262 : end interface
263 :
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : interface
267 :
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273 :
274 : #if SK5_ENABLED
275 : module function test_setCompact_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
276 : #endif
277 : #if SK4_ENABLED
278 : module function test_setCompact_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
279 : #endif
280 : #if SK3_ENABLED
281 : module function test_setCompact_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
282 : #endif
283 : #if SK2_ENABLED
284 : module function test_setCompact_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
285 : #endif
286 : #if SK1_ENABLED
287 : module function test_setCompact_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
288 : #endif
289 :
290 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
291 :
292 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
293 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295 :
296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297 :
298 : #if SK5_ENABLED
299 : module function test_setCompact_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
300 : #endif
301 : #if SK4_ENABLED
302 : module function test_setCompact_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
303 : #endif
304 : #if SK3_ENABLED
305 : module function test_setCompact_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
306 : #endif
307 : #if SK2_ENABLED
308 : module function test_setCompact_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
309 : #endif
310 : #if SK1_ENABLED
311 : module function test_setCompact_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
312 : #endif
313 :
314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 :
316 : #if IK5_ENABLED
317 : module function test_setCompact_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
318 : #endif
319 : #if IK4_ENABLED
320 : module function test_setCompact_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
321 : #endif
322 : #if IK3_ENABLED
323 : module function test_setCompact_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
324 : #endif
325 : #if IK2_ENABLED
326 : module function test_setCompact_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
327 : #endif
328 : #if IK1_ENABLED
329 : module function test_setCompact_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
330 : #endif
331 :
332 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333 :
334 : #if LK5_ENABLED
335 : module function test_setCompact_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
336 : #endif
337 : #if LK4_ENABLED
338 : module function test_setCompact_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
339 : #endif
340 : #if LK3_ENABLED
341 : module function test_setCompact_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
342 : #endif
343 : #if LK2_ENABLED
344 : module function test_setCompact_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
345 : #endif
346 : #if LK1_ENABLED
347 : module function test_setCompact_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
348 : #endif
349 :
350 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
351 :
352 : #if CK5_ENABLED
353 : module function test_setCompact_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
354 : #endif
355 : #if CK4_ENABLED
356 : module function test_setCompact_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
357 : #endif
358 : #if CK3_ENABLED
359 : module function test_setCompact_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
360 : #endif
361 : #if CK2_ENABLED
362 : module function test_setCompact_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
363 : #endif
364 : #if CK1_ENABLED
365 : module function test_setCompact_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
366 : #endif
367 :
368 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369 :
370 : #if RK5_ENABLED
371 : module function test_setCompact_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
372 : #endif
373 : #if RK4_ENABLED
374 : module function test_setCompact_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
375 : #endif
376 : #if RK3_ENABLED
377 : module function test_setCompact_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
378 : #endif
379 : #if RK2_ENABLED
380 : module function test_setCompact_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
381 : #endif
382 : #if RK1_ENABLED
383 : module function test_setCompact_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
384 : #endif
385 :
386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387 :
388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391 :
392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393 :
394 : #if SK5_ENABLED
395 : module function test_setCompact_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
396 : #endif
397 : #if SK4_ENABLED
398 : module function test_setCompact_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
399 : #endif
400 : #if SK3_ENABLED
401 : module function test_setCompact_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
402 : #endif
403 : #if SK2_ENABLED
404 : module function test_setCompact_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
405 : #endif
406 : #if SK1_ENABLED
407 : module function test_setCompact_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
408 : #endif
409 :
410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411 :
412 : #if IK5_ENABLED
413 : module function test_setCompact_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
414 : #endif
415 : #if IK4_ENABLED
416 : module function test_setCompact_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
417 : #endif
418 : #if IK3_ENABLED
419 : module function test_setCompact_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
420 : #endif
421 : #if IK2_ENABLED
422 : module function test_setCompact_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
423 : #endif
424 : #if IK1_ENABLED
425 : module function test_setCompact_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
426 : #endif
427 :
428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429 :
430 : #if LK5_ENABLED
431 : module function test_setCompact_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
432 : #endif
433 : #if LK4_ENABLED
434 : module function test_setCompact_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
435 : #endif
436 : #if LK3_ENABLED
437 : module function test_setCompact_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
438 : #endif
439 : #if LK2_ENABLED
440 : module function test_setCompact_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
441 : #endif
442 : #if LK1_ENABLED
443 : module function test_setCompact_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
444 : #endif
445 :
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 :
448 : #if CK5_ENABLED
449 : module function test_setCompact_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
450 : #endif
451 : #if CK4_ENABLED
452 : module function test_setCompact_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
453 : #endif
454 : #if CK3_ENABLED
455 : module function test_setCompact_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
456 : #endif
457 : #if CK2_ENABLED
458 : module function test_setCompact_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
459 : #endif
460 : #if CK1_ENABLED
461 : module function test_setCompact_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
462 : #endif
463 :
464 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465 :
466 : #if RK5_ENABLED
467 : module function test_setCompact_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
468 : #endif
469 : #if RK4_ENABLED
470 : module function test_setCompact_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
471 : #endif
472 : #if RK3_ENABLED
473 : module function test_setCompact_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
474 : #endif
475 : #if RK2_ENABLED
476 : module function test_setCompact_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
477 : #endif
478 : #if RK1_ENABLED
479 : module function test_setCompact_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
480 : #endif
481 :
482 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
483 :
484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
486 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
487 :
488 : end interface
489 :
490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491 :
492 : contains
493 :
494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
495 :
496 1 : subroutine setTest()
497 :
498 : implicit none
499 :
500 1 : test = test_type(MODULE_NAME)
501 :
502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
503 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
505 :
506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507 :
508 : #if SK5_ENABLED
509 : call test%run(test_getCompact_D0_SK5_1, SK_"test_getCompact_D0_SK5_1")
510 : #endif
511 : #if SK4_ENABLED
512 : call test%run(test_getCompact_D0_SK4_1, SK_"test_getCompact_D0_SK4_1")
513 : #endif
514 : #if SK3_ENABLED
515 : call test%run(test_getCompact_D0_SK3_1, SK_"test_getCompact_D0_SK3_1")
516 : #endif
517 : #if SK2_ENABLED
518 : call test%run(test_getCompact_D0_SK2_1, SK_"test_getCompact_D0_SK2_1")
519 : #endif
520 : #if SK1_ENABLED
521 1 : call test%run(test_getCompact_D0_SK1_1, SK_"test_getCompact_D0_SK1_1")
522 : #endif
523 :
524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
525 :
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 :
530 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
531 :
532 : #if SK5_ENABLED
533 : call test%run(test_getCompact_D1_SK5_1, SK_"test_getCompact_D1_SK5_1")
534 : #endif
535 : #if SK4_ENABLED
536 : call test%run(test_getCompact_D1_SK4_1, SK_"test_getCompact_D1_SK4_1")
537 : #endif
538 : #if SK3_ENABLED
539 : call test%run(test_getCompact_D1_SK3_1, SK_"test_getCompact_D1_SK3_1")
540 : #endif
541 : #if SK2_ENABLED
542 : call test%run(test_getCompact_D1_SK2_1, SK_"test_getCompact_D1_SK2_1")
543 : #endif
544 : #if SK1_ENABLED
545 1 : call test%run(test_getCompact_D1_SK1_1, SK_"test_getCompact_D1_SK1_1")
546 : #endif
547 :
548 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549 :
550 : #if IK5_ENABLED
551 1 : call test%run(test_getCompact_D1_IK5_1, SK_"test_getCompact_D1_IK5_1")
552 : #endif
553 : #if IK4_ENABLED
554 1 : call test%run(test_getCompact_D1_IK4_1, SK_"test_getCompact_D1_IK4_1")
555 : #endif
556 : #if IK3_ENABLED
557 1 : call test%run(test_getCompact_D1_IK3_1, SK_"test_getCompact_D1_IK3_1")
558 : #endif
559 : #if IK2_ENABLED
560 1 : call test%run(test_getCompact_D1_IK2_1, SK_"test_getCompact_D1_IK2_1")
561 : #endif
562 : #if IK1_ENABLED
563 1 : call test%run(test_getCompact_D1_IK1_1, SK_"test_getCompact_D1_IK1_1")
564 : #endif
565 :
566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
567 :
568 : #if LK5_ENABLED
569 1 : call test%run(test_getCompact_D1_LK5_1, SK_"test_getCompact_D1_LK5_1")
570 : #endif
571 : #if LK4_ENABLED
572 1 : call test%run(test_getCompact_D1_LK4_1, SK_"test_getCompact_D1_LK4_1")
573 : #endif
574 : #if LK3_ENABLED
575 1 : call test%run(test_getCompact_D1_LK3_1, SK_"test_getCompact_D1_LK3_1")
576 : #endif
577 : #if LK2_ENABLED
578 1 : call test%run(test_getCompact_D1_LK2_1, SK_"test_getCompact_D1_LK2_1")
579 : #endif
580 : #if LK1_ENABLED
581 1 : call test%run(test_getCompact_D1_LK1_1, SK_"test_getCompact_D1_LK1_1")
582 : #endif
583 :
584 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
585 :
586 : #if CK5_ENABLED
587 : call test%run(test_getCompact_D1_CK5_1, SK_"test_getCompact_D1_CK5_1")
588 : #endif
589 : #if CK4_ENABLED
590 1 : call test%run(test_getCompact_D1_CK4_1, SK_"test_getCompact_D1_CK4_1")
591 : #endif
592 : #if CK3_ENABLED
593 1 : call test%run(test_getCompact_D1_CK3_1, SK_"test_getCompact_D1_CK3_1")
594 : #endif
595 : #if CK2_ENABLED
596 1 : call test%run(test_getCompact_D1_CK2_1, SK_"test_getCompact_D1_CK2_1")
597 : #endif
598 : #if CK1_ENABLED
599 1 : call test%run(test_getCompact_D1_CK1_1, SK_"test_getCompact_D1_CK1_1")
600 : #endif
601 :
602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
603 :
604 : #if RK5_ENABLED
605 : call test%run(test_getCompact_D1_RK5_1, SK_"test_getCompact_D1_RK5_1")
606 : #endif
607 : #if RK4_ENABLED
608 1 : call test%run(test_getCompact_D1_RK4_1, SK_"test_getCompact_D1_RK4_1")
609 : #endif
610 : #if RK3_ENABLED
611 1 : call test%run(test_getCompact_D1_RK3_1, SK_"test_getCompact_D1_RK3_1")
612 : #endif
613 : #if RK2_ENABLED
614 1 : call test%run(test_getCompact_D1_RK2_1, SK_"test_getCompact_D1_RK2_1")
615 : #endif
616 : #if RK1_ENABLED
617 1 : call test%run(test_getCompact_D1_RK1_1, SK_"test_getCompact_D1_RK1_1")
618 : #endif
619 :
620 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
621 :
622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
625 :
626 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
627 :
628 : #if SK5_ENABLED
629 : call test%run(test_getCompact_D2_SK5_1, SK_"test_getCompact_D2_SK5_1")
630 : #endif
631 : #if SK4_ENABLED
632 : call test%run(test_getCompact_D2_SK4_1, SK_"test_getCompact_D2_SK4_1")
633 : #endif
634 : #if SK3_ENABLED
635 : call test%run(test_getCompact_D2_SK3_1, SK_"test_getCompact_D2_SK3_1")
636 : #endif
637 : #if SK2_ENABLED
638 : call test%run(test_getCompact_D2_SK2_1, SK_"test_getCompact_D2_SK2_1")
639 : #endif
640 : #if SK1_ENABLED
641 1 : call test%run(test_getCompact_D2_SK1_1, SK_"test_getCompact_D2_SK1_1")
642 : #endif
643 :
644 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
645 :
646 : #if IK5_ENABLED
647 1 : call test%run(test_getCompact_D2_IK5_1, SK_"test_getCompact_D2_IK5_1")
648 : #endif
649 : #if IK4_ENABLED
650 1 : call test%run(test_getCompact_D2_IK4_1, SK_"test_getCompact_D2_IK4_1")
651 : #endif
652 : #if IK3_ENABLED
653 1 : call test%run(test_getCompact_D2_IK3_1, SK_"test_getCompact_D2_IK3_1")
654 : #endif
655 : #if IK2_ENABLED
656 1 : call test%run(test_getCompact_D2_IK2_1, SK_"test_getCompact_D2_IK2_1")
657 : #endif
658 : #if IK1_ENABLED
659 1 : call test%run(test_getCompact_D2_IK1_1, SK_"test_getCompact_D2_IK1_1")
660 : #endif
661 :
662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663 :
664 : #if LK5_ENABLED
665 1 : call test%run(test_getCompact_D2_LK5_1, SK_"test_getCompact_D2_LK5_1")
666 : #endif
667 : #if LK4_ENABLED
668 1 : call test%run(test_getCompact_D2_LK4_1, SK_"test_getCompact_D2_LK4_1")
669 : #endif
670 : #if LK3_ENABLED
671 1 : call test%run(test_getCompact_D2_LK3_1, SK_"test_getCompact_D2_LK3_1")
672 : #endif
673 : #if LK2_ENABLED
674 1 : call test%run(test_getCompact_D2_LK2_1, SK_"test_getCompact_D2_LK2_1")
675 : #endif
676 : #if LK1_ENABLED
677 1 : call test%run(test_getCompact_D2_LK1_1, SK_"test_getCompact_D2_LK1_1")
678 : #endif
679 :
680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
681 :
682 : #if CK5_ENABLED
683 : call test%run(test_getCompact_D2_CK5_1, SK_"test_getCompact_D2_CK5_1")
684 : #endif
685 : #if CK4_ENABLED
686 1 : call test%run(test_getCompact_D2_CK4_1, SK_"test_getCompact_D2_CK4_1")
687 : #endif
688 : #if CK3_ENABLED
689 1 : call test%run(test_getCompact_D2_CK3_1, SK_"test_getCompact_D2_CK3_1")
690 : #endif
691 : #if CK2_ENABLED
692 1 : call test%run(test_getCompact_D2_CK2_1, SK_"test_getCompact_D2_CK2_1")
693 : #endif
694 : #if CK1_ENABLED
695 1 : call test%run(test_getCompact_D2_CK1_1, SK_"test_getCompact_D2_CK1_1")
696 : #endif
697 :
698 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
699 :
700 : #if RK5_ENABLED
701 : call test%run(test_getCompact_D2_RK5_1, SK_"test_getCompact_D2_RK5_1")
702 : #endif
703 : #if RK4_ENABLED
704 1 : call test%run(test_getCompact_D2_RK4_1, SK_"test_getCompact_D2_RK4_1")
705 : #endif
706 : #if RK3_ENABLED
707 1 : call test%run(test_getCompact_D2_RK3_1, SK_"test_getCompact_D2_RK3_1")
708 : #endif
709 : #if RK2_ENABLED
710 1 : call test%run(test_getCompact_D2_RK2_1, SK_"test_getCompact_D2_RK2_1")
711 : #endif
712 : #if RK1_ENABLED
713 1 : call test%run(test_getCompact_D2_RK1_1, SK_"test_getCompact_D2_RK1_1")
714 : #endif
715 :
716 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
717 :
718 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721 :
722 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
723 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
724 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725 :
726 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
727 :
728 : #if SK5_ENABLED
729 : call test%run(test_setCompact_D0_SK5_1, SK_"test_setCompact_D0_SK5_1")
730 : #endif
731 : #if SK4_ENABLED
732 : call test%run(test_setCompact_D0_SK4_1, SK_"test_setCompact_D0_SK4_1")
733 : #endif
734 : #if SK3_ENABLED
735 : call test%run(test_setCompact_D0_SK3_1, SK_"test_setCompact_D0_SK3_1")
736 : #endif
737 : #if SK2_ENABLED
738 : call test%run(test_setCompact_D0_SK2_1, SK_"test_setCompact_D0_SK2_1")
739 : #endif
740 : #if SK1_ENABLED
741 1 : call test%run(test_setCompact_D0_SK1_1, SK_"test_setCompact_D0_SK1_1")
742 : #endif
743 :
744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
745 :
746 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
749 :
750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
751 :
752 : #if SK5_ENABLED
753 : call test%run(test_setCompact_D1_SK5_1, SK_"test_setCompact_D1_SK5_1")
754 : #endif
755 : #if SK4_ENABLED
756 : call test%run(test_setCompact_D1_SK4_1, SK_"test_setCompact_D1_SK4_1")
757 : #endif
758 : #if SK3_ENABLED
759 : call test%run(test_setCompact_D1_SK3_1, SK_"test_setCompact_D1_SK3_1")
760 : #endif
761 : #if SK2_ENABLED
762 : call test%run(test_setCompact_D1_SK2_1, SK_"test_setCompact_D1_SK2_1")
763 : #endif
764 : #if SK1_ENABLED
765 1 : call test%run(test_setCompact_D1_SK1_1, SK_"test_setCompact_D1_SK1_1")
766 : #endif
767 :
768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
769 :
770 : #if IK5_ENABLED
771 1 : call test%run(test_setCompact_D1_IK5_1, SK_"test_setCompact_D1_IK5_1")
772 : #endif
773 : #if IK4_ENABLED
774 1 : call test%run(test_setCompact_D1_IK4_1, SK_"test_setCompact_D1_IK4_1")
775 : #endif
776 : #if IK3_ENABLED
777 1 : call test%run(test_setCompact_D1_IK3_1, SK_"test_setCompact_D1_IK3_1")
778 : #endif
779 : #if IK2_ENABLED
780 1 : call test%run(test_setCompact_D1_IK2_1, SK_"test_setCompact_D1_IK2_1")
781 : #endif
782 : #if IK1_ENABLED
783 1 : call test%run(test_setCompact_D1_IK1_1, SK_"test_setCompact_D1_IK1_1")
784 : #endif
785 :
786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
787 :
788 : #if LK5_ENABLED
789 1 : call test%run(test_setCompact_D1_LK5_1, SK_"test_setCompact_D1_LK5_1")
790 : #endif
791 : #if LK4_ENABLED
792 1 : call test%run(test_setCompact_D1_LK4_1, SK_"test_setCompact_D1_LK4_1")
793 : #endif
794 : #if LK3_ENABLED
795 1 : call test%run(test_setCompact_D1_LK3_1, SK_"test_setCompact_D1_LK3_1")
796 : #endif
797 : #if LK2_ENABLED
798 1 : call test%run(test_setCompact_D1_LK2_1, SK_"test_setCompact_D1_LK2_1")
799 : #endif
800 : #if LK1_ENABLED
801 1 : call test%run(test_setCompact_D1_LK1_1, SK_"test_setCompact_D1_LK1_1")
802 : #endif
803 :
804 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
805 :
806 : #if CK5_ENABLED
807 : call test%run(test_setCompact_D1_CK5_1, SK_"test_setCompact_D1_CK5_1")
808 : #endif
809 : #if CK4_ENABLED
810 1 : call test%run(test_setCompact_D1_CK4_1, SK_"test_setCompact_D1_CK4_1")
811 : #endif
812 : #if CK3_ENABLED
813 1 : call test%run(test_setCompact_D1_CK3_1, SK_"test_setCompact_D1_CK3_1")
814 : #endif
815 : #if CK2_ENABLED
816 1 : call test%run(test_setCompact_D1_CK2_1, SK_"test_setCompact_D1_CK2_1")
817 : #endif
818 : #if CK1_ENABLED
819 1 : call test%run(test_setCompact_D1_CK1_1, SK_"test_setCompact_D1_CK1_1")
820 : #endif
821 :
822 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
823 :
824 : #if RK5_ENABLED
825 : call test%run(test_setCompact_D1_RK5_1, SK_"test_setCompact_D1_RK5_1")
826 : #endif
827 : #if RK4_ENABLED
828 1 : call test%run(test_setCompact_D1_RK4_1, SK_"test_setCompact_D1_RK4_1")
829 : #endif
830 : #if RK3_ENABLED
831 1 : call test%run(test_setCompact_D1_RK3_1, SK_"test_setCompact_D1_RK3_1")
832 : #endif
833 : #if RK2_ENABLED
834 1 : call test%run(test_setCompact_D1_RK2_1, SK_"test_setCompact_D1_RK2_1")
835 : #endif
836 : #if RK1_ENABLED
837 1 : call test%run(test_setCompact_D1_RK1_1, SK_"test_setCompact_D1_RK1_1")
838 : #endif
839 :
840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
841 :
842 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
843 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
845 :
846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
847 :
848 : #if SK5_ENABLED
849 : call test%run(test_setCompact_D2_SK5_1, SK_"test_setCompact_D2_SK5_1")
850 : #endif
851 : #if SK4_ENABLED
852 : call test%run(test_setCompact_D2_SK4_1, SK_"test_setCompact_D2_SK4_1")
853 : #endif
854 : #if SK3_ENABLED
855 : call test%run(test_setCompact_D2_SK3_1, SK_"test_setCompact_D2_SK3_1")
856 : #endif
857 : #if SK2_ENABLED
858 : call test%run(test_setCompact_D2_SK2_1, SK_"test_setCompact_D2_SK2_1")
859 : #endif
860 : #if SK1_ENABLED
861 1 : call test%run(test_setCompact_D2_SK1_1, SK_"test_setCompact_D2_SK1_1")
862 : #endif
863 :
864 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
865 :
866 : #if IK5_ENABLED
867 1 : call test%run(test_setCompact_D2_IK5_1, SK_"test_setCompact_D2_IK5_1")
868 : #endif
869 : #if IK4_ENABLED
870 1 : call test%run(test_setCompact_D2_IK4_1, SK_"test_setCompact_D2_IK4_1")
871 : #endif
872 : #if IK3_ENABLED
873 1 : call test%run(test_setCompact_D2_IK3_1, SK_"test_setCompact_D2_IK3_1")
874 : #endif
875 : #if IK2_ENABLED
876 1 : call test%run(test_setCompact_D2_IK2_1, SK_"test_setCompact_D2_IK2_1")
877 : #endif
878 : #if IK1_ENABLED
879 1 : call test%run(test_setCompact_D2_IK1_1, SK_"test_setCompact_D2_IK1_1")
880 : #endif
881 :
882 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
883 :
884 : #if LK5_ENABLED
885 1 : call test%run(test_setCompact_D2_LK5_1, SK_"test_setCompact_D2_LK5_1")
886 : #endif
887 : #if LK4_ENABLED
888 1 : call test%run(test_setCompact_D2_LK4_1, SK_"test_setCompact_D2_LK4_1")
889 : #endif
890 : #if LK3_ENABLED
891 1 : call test%run(test_setCompact_D2_LK3_1, SK_"test_setCompact_D2_LK3_1")
892 : #endif
893 : #if LK2_ENABLED
894 1 : call test%run(test_setCompact_D2_LK2_1, SK_"test_setCompact_D2_LK2_1")
895 : #endif
896 : #if LK1_ENABLED
897 1 : call test%run(test_setCompact_D2_LK1_1, SK_"test_setCompact_D2_LK1_1")
898 : #endif
899 :
900 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
901 :
902 : #if CK5_ENABLED
903 : call test%run(test_setCompact_D2_CK5_1, SK_"test_setCompact_D2_CK5_1")
904 : #endif
905 : #if CK4_ENABLED
906 1 : call test%run(test_setCompact_D2_CK4_1, SK_"test_setCompact_D2_CK4_1")
907 : #endif
908 : #if CK3_ENABLED
909 1 : call test%run(test_setCompact_D2_CK3_1, SK_"test_setCompact_D2_CK3_1")
910 : #endif
911 : #if CK2_ENABLED
912 1 : call test%run(test_setCompact_D2_CK2_1, SK_"test_setCompact_D2_CK2_1")
913 : #endif
914 : #if CK1_ENABLED
915 1 : call test%run(test_setCompact_D2_CK1_1, SK_"test_setCompact_D2_CK1_1")
916 : #endif
917 :
918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
919 :
920 : #if RK5_ENABLED
921 : call test%run(test_setCompact_D2_RK5_1, SK_"test_setCompact_D2_RK5_1")
922 : #endif
923 : #if RK4_ENABLED
924 1 : call test%run(test_setCompact_D2_RK4_1, SK_"test_setCompact_D2_RK4_1")
925 : #endif
926 : #if RK3_ENABLED
927 1 : call test%run(test_setCompact_D2_RK3_1, SK_"test_setCompact_D2_RK3_1")
928 : #endif
929 : #if RK2_ENABLED
930 1 : call test%run(test_setCompact_D2_RK2_1, SK_"test_setCompact_D2_RK2_1")
931 : #endif
932 : #if RK1_ENABLED
933 1 : call test%run(test_setCompact_D2_RK1_1, SK_"test_setCompact_D2_RK1_1")
934 : #endif
935 :
936 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
937 :
938 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
939 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
940 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
941 :
942 1 : call test%summarize()
943 :
944 1 : end subroutine setTest
945 :
946 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
947 :
948 : end module test_pm_arrayCompact ! LCOV_EXCL_LINE
|
