ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayCompact.F90
Go to the documentation of this file.
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
24
25!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26
27module 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
492contains
493
494!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
495
496 subroutine setTest()
497
498 implicit none
499
500 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 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 call test%run(test_getCompact_D1_SK1_1, SK_"test_getCompact_D1_SK1_1")
546#endif
547
548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
549
550#if IK5_ENABLED
551 call test%run(test_getCompact_D1_IK5_1, SK_"test_getCompact_D1_IK5_1")
552#endif
553#if IK4_ENABLED
554 call test%run(test_getCompact_D1_IK4_1, SK_"test_getCompact_D1_IK4_1")
555#endif
556#if IK3_ENABLED
557 call test%run(test_getCompact_D1_IK3_1, SK_"test_getCompact_D1_IK3_1")
558#endif
559#if IK2_ENABLED
560 call test%run(test_getCompact_D1_IK2_1, SK_"test_getCompact_D1_IK2_1")
561#endif
562#if IK1_ENABLED
563 call test%run(test_getCompact_D1_IK1_1, SK_"test_getCompact_D1_IK1_1")
564#endif
565
566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
567
568#if LK5_ENABLED
569 call test%run(test_getCompact_D1_LK5_1, SK_"test_getCompact_D1_LK5_1")
570#endif
571#if LK4_ENABLED
572 call test%run(test_getCompact_D1_LK4_1, SK_"test_getCompact_D1_LK4_1")
573#endif
574#if LK3_ENABLED
575 call test%run(test_getCompact_D1_LK3_1, SK_"test_getCompact_D1_LK3_1")
576#endif
577#if LK2_ENABLED
578 call test%run(test_getCompact_D1_LK2_1, SK_"test_getCompact_D1_LK2_1")
579#endif
580#if LK1_ENABLED
581 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 call test%run(test_getCompact_D1_CK4_1, SK_"test_getCompact_D1_CK4_1")
591#endif
592#if CK3_ENABLED
593 call test%run(test_getCompact_D1_CK3_1, SK_"test_getCompact_D1_CK3_1")
594#endif
595#if CK2_ENABLED
596 call test%run(test_getCompact_D1_CK2_1, SK_"test_getCompact_D1_CK2_1")
597#endif
598#if CK1_ENABLED
599 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 call test%run(test_getCompact_D1_RK4_1, SK_"test_getCompact_D1_RK4_1")
609#endif
610#if RK3_ENABLED
611 call test%run(test_getCompact_D1_RK3_1, SK_"test_getCompact_D1_RK3_1")
612#endif
613#if RK2_ENABLED
614 call test%run(test_getCompact_D1_RK2_1, SK_"test_getCompact_D1_RK2_1")
615#endif
616#if RK1_ENABLED
617 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 call test%run(test_getCompact_D2_SK1_1, SK_"test_getCompact_D2_SK1_1")
642#endif
643
644 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
645
646#if IK5_ENABLED
647 call test%run(test_getCompact_D2_IK5_1, SK_"test_getCompact_D2_IK5_1")
648#endif
649#if IK4_ENABLED
650 call test%run(test_getCompact_D2_IK4_1, SK_"test_getCompact_D2_IK4_1")
651#endif
652#if IK3_ENABLED
653 call test%run(test_getCompact_D2_IK3_1, SK_"test_getCompact_D2_IK3_1")
654#endif
655#if IK2_ENABLED
656 call test%run(test_getCompact_D2_IK2_1, SK_"test_getCompact_D2_IK2_1")
657#endif
658#if IK1_ENABLED
659 call test%run(test_getCompact_D2_IK1_1, SK_"test_getCompact_D2_IK1_1")
660#endif
661
662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663
664#if LK5_ENABLED
665 call test%run(test_getCompact_D2_LK5_1, SK_"test_getCompact_D2_LK5_1")
666#endif
667#if LK4_ENABLED
668 call test%run(test_getCompact_D2_LK4_1, SK_"test_getCompact_D2_LK4_1")
669#endif
670#if LK3_ENABLED
671 call test%run(test_getCompact_D2_LK3_1, SK_"test_getCompact_D2_LK3_1")
672#endif
673#if LK2_ENABLED
674 call test%run(test_getCompact_D2_LK2_1, SK_"test_getCompact_D2_LK2_1")
675#endif
676#if LK1_ENABLED
677 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 call test%run(test_getCompact_D2_CK4_1, SK_"test_getCompact_D2_CK4_1")
687#endif
688#if CK3_ENABLED
689 call test%run(test_getCompact_D2_CK3_1, SK_"test_getCompact_D2_CK3_1")
690#endif
691#if CK2_ENABLED
692 call test%run(test_getCompact_D2_CK2_1, SK_"test_getCompact_D2_CK2_1")
693#endif
694#if CK1_ENABLED
695 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 call test%run(test_getCompact_D2_RK4_1, SK_"test_getCompact_D2_RK4_1")
705#endif
706#if RK3_ENABLED
707 call test%run(test_getCompact_D2_RK3_1, SK_"test_getCompact_D2_RK3_1")
708#endif
709#if RK2_ENABLED
710 call test%run(test_getCompact_D2_RK2_1, SK_"test_getCompact_D2_RK2_1")
711#endif
712#if RK1_ENABLED
713 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 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 call test%run(test_setCompact_D1_SK1_1, SK_"test_setCompact_D1_SK1_1")
766#endif
767
768 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
769
770#if IK5_ENABLED
771 call test%run(test_setCompact_D1_IK5_1, SK_"test_setCompact_D1_IK5_1")
772#endif
773#if IK4_ENABLED
774 call test%run(test_setCompact_D1_IK4_1, SK_"test_setCompact_D1_IK4_1")
775#endif
776#if IK3_ENABLED
777 call test%run(test_setCompact_D1_IK3_1, SK_"test_setCompact_D1_IK3_1")
778#endif
779#if IK2_ENABLED
780 call test%run(test_setCompact_D1_IK2_1, SK_"test_setCompact_D1_IK2_1")
781#endif
782#if IK1_ENABLED
783 call test%run(test_setCompact_D1_IK1_1, SK_"test_setCompact_D1_IK1_1")
784#endif
785
786 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
787
788#if LK5_ENABLED
789 call test%run(test_setCompact_D1_LK5_1, SK_"test_setCompact_D1_LK5_1")
790#endif
791#if LK4_ENABLED
792 call test%run(test_setCompact_D1_LK4_1, SK_"test_setCompact_D1_LK4_1")
793#endif
794#if LK3_ENABLED
795 call test%run(test_setCompact_D1_LK3_1, SK_"test_setCompact_D1_LK3_1")
796#endif
797#if LK2_ENABLED
798 call test%run(test_setCompact_D1_LK2_1, SK_"test_setCompact_D1_LK2_1")
799#endif
800#if LK1_ENABLED
801 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 call test%run(test_setCompact_D1_CK4_1, SK_"test_setCompact_D1_CK4_1")
811#endif
812#if CK3_ENABLED
813 call test%run(test_setCompact_D1_CK3_1, SK_"test_setCompact_D1_CK3_1")
814#endif
815#if CK2_ENABLED
816 call test%run(test_setCompact_D1_CK2_1, SK_"test_setCompact_D1_CK2_1")
817#endif
818#if CK1_ENABLED
819 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 call test%run(test_setCompact_D1_RK4_1, SK_"test_setCompact_D1_RK4_1")
829#endif
830#if RK3_ENABLED
831 call test%run(test_setCompact_D1_RK3_1, SK_"test_setCompact_D1_RK3_1")
832#endif
833#if RK2_ENABLED
834 call test%run(test_setCompact_D1_RK2_1, SK_"test_setCompact_D1_RK2_1")
835#endif
836#if RK1_ENABLED
837 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 call test%run(test_setCompact_D2_SK1_1, SK_"test_setCompact_D2_SK1_1")
862#endif
863
864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
865
866#if IK5_ENABLED
867 call test%run(test_setCompact_D2_IK5_1, SK_"test_setCompact_D2_IK5_1")
868#endif
869#if IK4_ENABLED
870 call test%run(test_setCompact_D2_IK4_1, SK_"test_setCompact_D2_IK4_1")
871#endif
872#if IK3_ENABLED
873 call test%run(test_setCompact_D2_IK3_1, SK_"test_setCompact_D2_IK3_1")
874#endif
875#if IK2_ENABLED
876 call test%run(test_setCompact_D2_IK2_1, SK_"test_setCompact_D2_IK2_1")
877#endif
878#if IK1_ENABLED
879 call test%run(test_setCompact_D2_IK1_1, SK_"test_setCompact_D2_IK1_1")
880#endif
881
882 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
883
884#if LK5_ENABLED
885 call test%run(test_setCompact_D2_LK5_1, SK_"test_setCompact_D2_LK5_1")
886#endif
887#if LK4_ENABLED
888 call test%run(test_setCompact_D2_LK4_1, SK_"test_setCompact_D2_LK4_1")
889#endif
890#if LK3_ENABLED
891 call test%run(test_setCompact_D2_LK3_1, SK_"test_setCompact_D2_LK3_1")
892#endif
893#if LK2_ENABLED
894 call test%run(test_setCompact_D2_LK2_1, SK_"test_setCompact_D2_LK2_1")
895#endif
896#if LK1_ENABLED
897 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 call test%run(test_setCompact_D2_CK4_1, SK_"test_setCompact_D2_CK4_1")
907#endif
908#if CK3_ENABLED
909 call test%run(test_setCompact_D2_CK3_1, SK_"test_setCompact_D2_CK3_1")
910#endif
911#if CK2_ENABLED
912 call test%run(test_setCompact_D2_CK2_1, SK_"test_setCompact_D2_CK2_1")
913#endif
914#if CK1_ENABLED
915 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 call test%run(test_setCompact_D2_RK4_1, SK_"test_setCompact_D2_RK4_1")
925#endif
926#if RK3_ENABLED
927 call test%run(test_setCompact_D2_RK3_1, SK_"test_setCompact_D2_RK3_1")
928#endif
929#if RK2_ENABLED
930 call test%run(test_setCompact_D2_RK2_1, SK_"test_setCompact_D2_RK2_1")
931#endif
932#if RK1_ENABLED
933 call test%run(test_setCompact_D2_RK1_1, SK_"test_setCompact_D2_RK1_1")
934#endif
935
936 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
937
938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
939 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
940 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
941
942 call test%summarize()
943
944 end subroutine setTest
945
946!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
947
948end module test_pm_arrayCompact ! LCOV_EXCL_LINE
pm_arrayCompact
This module contains procedures and generic interfaces for condensing (removing duplicate sequential ...
Definition: pm_arrayCompact.F90:44
pm_arrayCompact::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayCompact.F90:50
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arrayCompact
This module contains tests of the module pm_arrayCompact.
Definition: test_pm_arrayCompact.F90:27
test_pm_arrayCompact::setTest
subroutine setTest()
Definition: test_pm_arrayCompact.F90:497
test_pm_arrayCompact::test
type(test_type) test
Definition: test_pm_arrayCompact.F90:36
pm_err::err_type
This is the derived type for generating objects to gracefully and verbosely handle runtime unexpected...
Definition: pm_err.F90:157
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209