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_arrayRefill](@ref pm_arrayRefill).
19 : !>
20 : !> \bug
21 : !> \status \unresolved
22 : !> \source \ifort{2022}
23 : !> \desc
24 : !> There is a viscous \ifort{2022} bug where the appearance of the following `use` statements
25 : !> in the body of the implementation include file `test_pm_arrayRebill@routines.inc.F90` leads to various
26 : !> mistakes in parsing and preprocessing the contents of the include file.<br>
27 : !> The threshold for the maximum number of `use` statements within the entire submodule appears to be
28 : !> about `55`, because activating more than 55 procedures of the submodule
29 : !> leads to compilation failures due syntax parsing mistakes by the Intel compiler.<br>
30 : !> \remedy
31 : !> For now, all `use` statements are moved to the declaration body of the submodules.<br>
32 : !> This causes non-locality of the statements, but is the only solution as of today.<br>
33 : !>
34 : !> \fintest
35 : !>
36 : !> \author
37 : !> \FatemehBagheri, Wednesday 12:20 AM, October 13, 2021, Dallas, TX
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : module test_pm_arrayRefill
42 :
43 : use pm_arrayRefill
44 : use pm_test, only: test_type, LK
45 :
46 : implicit none
47 :
48 : private
49 : public :: setTest
50 : type(test_type) :: test
51 :
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : interface
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 :
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 :
62 : #if SK5_ENABLED
63 : module function test_setRefilled_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
64 : #endif
65 : #if SK4_ENABLED
66 : module function test_setRefilled_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
67 : #endif
68 : #if SK3_ENABLED
69 : module function test_setRefilled_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
70 : #endif
71 : #if SK2_ENABLED
72 : module function test_setRefilled_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
73 : #endif
74 : #if SK1_ENABLED
75 : module function test_setRefilled_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
76 : #endif
77 :
78 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79 :
80 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
81 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
82 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83 :
84 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
85 :
86 : #if SK5_ENABLED
87 : module function test_setRefilled_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
88 : #endif
89 : #if SK4_ENABLED
90 : module function test_setRefilled_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
91 : #endif
92 : #if SK3_ENABLED
93 : module function test_setRefilled_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
94 : #endif
95 : #if SK2_ENABLED
96 : module function test_setRefilled_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
97 : #endif
98 : #if SK1_ENABLED
99 : module function test_setRefilled_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
100 : #endif
101 :
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #if IK5_ENABLED
105 : module function test_setRefilled_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
106 : #endif
107 : #if IK4_ENABLED
108 : module function test_setRefilled_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
109 : #endif
110 : #if IK3_ENABLED
111 : module function test_setRefilled_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
112 : #endif
113 : #if IK2_ENABLED
114 : module function test_setRefilled_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
115 : #endif
116 : #if IK1_ENABLED
117 : module function test_setRefilled_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
118 : #endif
119 :
120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
121 :
122 : #if LK5_ENABLED
123 : module function test_setRefilled_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
124 : #endif
125 : #if LK4_ENABLED
126 : module function test_setRefilled_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
127 : #endif
128 : #if LK3_ENABLED
129 : module function test_setRefilled_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
130 : #endif
131 : #if LK2_ENABLED
132 : module function test_setRefilled_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
133 : #endif
134 : #if LK1_ENABLED
135 : module function test_setRefilled_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
136 : #endif
137 :
138 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
139 :
140 : #if CK5_ENABLED
141 : module function test_setRefilled_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
142 : #endif
143 : #if CK4_ENABLED
144 : module function test_setRefilled_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
145 : #endif
146 : #if CK3_ENABLED
147 : module function test_setRefilled_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
148 : #endif
149 : #if CK2_ENABLED
150 : module function test_setRefilled_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
151 : #endif
152 : #if CK1_ENABLED
153 : module function test_setRefilled_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
154 : #endif
155 :
156 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
157 :
158 : #if RK5_ENABLED
159 : module function test_setRefilled_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
160 : #endif
161 : #if RK4_ENABLED
162 : module function test_setRefilled_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
163 : #endif
164 : #if RK3_ENABLED
165 : module function test_setRefilled_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
166 : #endif
167 : #if RK2_ENABLED
168 : module function test_setRefilled_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
169 : #endif
170 : #if RK1_ENABLED
171 : module function test_setRefilled_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
172 : #endif
173 :
174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
179 :
180 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
181 :
182 : #if SK5_ENABLED
183 : module function test_setRefilled_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
184 : #endif
185 : #if SK4_ENABLED
186 : module function test_setRefilled_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
187 : #endif
188 : #if SK3_ENABLED
189 : module function test_setRefilled_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
190 : #endif
191 : #if SK2_ENABLED
192 : module function test_setRefilled_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
193 : #endif
194 : #if SK1_ENABLED
195 : module function test_setRefilled_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
196 : #endif
197 :
198 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
199 :
200 : #if IK5_ENABLED
201 : module function test_setRefilled_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
202 : #endif
203 : #if IK4_ENABLED
204 : module function test_setRefilled_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
205 : #endif
206 : #if IK3_ENABLED
207 : module function test_setRefilled_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
208 : #endif
209 : #if IK2_ENABLED
210 : module function test_setRefilled_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
211 : #endif
212 : #if IK1_ENABLED
213 : module function test_setRefilled_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
214 : #endif
215 :
216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
217 :
218 : #if LK5_ENABLED
219 : module function test_setRefilled_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
220 : #endif
221 : #if LK4_ENABLED
222 : module function test_setRefilled_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
223 : #endif
224 : #if LK3_ENABLED
225 : module function test_setRefilled_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
226 : #endif
227 : #if LK2_ENABLED
228 : module function test_setRefilled_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
229 : #endif
230 : #if LK1_ENABLED
231 : module function test_setRefilled_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
232 : #endif
233 :
234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
235 :
236 : #if CK5_ENABLED
237 : module function test_setRefilled_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
238 : #endif
239 : #if CK4_ENABLED
240 : module function test_setRefilled_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
241 : #endif
242 : #if CK3_ENABLED
243 : module function test_setRefilled_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
244 : #endif
245 : #if CK2_ENABLED
246 : module function test_setRefilled_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
247 : #endif
248 : #if CK1_ENABLED
249 : module function test_setRefilled_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
250 : #endif
251 :
252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 :
254 : #if RK5_ENABLED
255 : module function test_setRefilled_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
256 : #endif
257 : #if RK4_ENABLED
258 : module function test_setRefilled_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
259 : #endif
260 : #if RK3_ENABLED
261 : module function test_setRefilled_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
262 : #endif
263 : #if RK2_ENABLED
264 : module function test_setRefilled_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
265 : #endif
266 : #if RK1_ENABLED
267 : module function test_setRefilled_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
268 : #endif
269 :
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
273 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275 :
276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
277 :
278 : #if SK5_ENABLED
279 : module function test_setRefilled_D3_SK5_1 () result(assertion); logical(LK) :: assertion; end function
280 : #endif
281 : #if SK4_ENABLED
282 : module function test_setRefilled_D3_SK4_1 () result(assertion); logical(LK) :: assertion; end function
283 : #endif
284 : #if SK3_ENABLED
285 : module function test_setRefilled_D3_SK3_1 () result(assertion); logical(LK) :: assertion; end function
286 : #endif
287 : #if SK2_ENABLED
288 : module function test_setRefilled_D3_SK2_1 () result(assertion); logical(LK) :: assertion; end function
289 : #endif
290 : #if SK1_ENABLED
291 : module function test_setRefilled_D3_SK1_1 () result(assertion); logical(LK) :: assertion; end function
292 : #endif
293 :
294 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
295 :
296 : #if IK5_ENABLED
297 : module function test_setRefilled_D3_IK5_1 () result(assertion); logical(LK) :: assertion; end function
298 : #endif
299 : #if IK4_ENABLED
300 : module function test_setRefilled_D3_IK4_1 () result(assertion); logical(LK) :: assertion; end function
301 : #endif
302 : #if IK3_ENABLED
303 : module function test_setRefilled_D3_IK3_1 () result(assertion); logical(LK) :: assertion; end function
304 : #endif
305 : #if IK2_ENABLED
306 : module function test_setRefilled_D3_IK2_1 () result(assertion); logical(LK) :: assertion; end function
307 : #endif
308 : #if IK1_ENABLED
309 : module function test_setRefilled_D3_IK1_1 () result(assertion); logical(LK) :: assertion; end function
310 : #endif
311 :
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 :
314 : #if LK5_ENABLED
315 : module function test_setRefilled_D3_LK5_1 () result(assertion); logical(LK) :: assertion; end function
316 : #endif
317 : #if LK4_ENABLED
318 : module function test_setRefilled_D3_LK4_1 () result(assertion); logical(LK) :: assertion; end function
319 : #endif
320 : #if LK3_ENABLED
321 : module function test_setRefilled_D3_LK3_1 () result(assertion); logical(LK) :: assertion; end function
322 : #endif
323 : #if LK2_ENABLED
324 : module function test_setRefilled_D3_LK2_1 () result(assertion); logical(LK) :: assertion; end function
325 : #endif
326 : #if LK1_ENABLED
327 : module function test_setRefilled_D3_LK1_1 () result(assertion); logical(LK) :: assertion; end function
328 : #endif
329 :
330 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331 :
332 : #if CK5_ENABLED
333 : module function test_setRefilled_D3_CK5_1 () result(assertion); logical(LK) :: assertion; end function
334 : #endif
335 : #if CK4_ENABLED
336 : module function test_setRefilled_D3_CK4_1 () result(assertion); logical(LK) :: assertion; end function
337 : #endif
338 : #if CK3_ENABLED
339 : module function test_setRefilled_D3_CK3_1 () result(assertion); logical(LK) :: assertion; end function
340 : #endif
341 : #if CK2_ENABLED
342 : module function test_setRefilled_D3_CK2_1 () result(assertion); logical(LK) :: assertion; end function
343 : #endif
344 : #if CK1_ENABLED
345 : module function test_setRefilled_D3_CK1_1 () result(assertion); logical(LK) :: assertion; end function
346 : #endif
347 :
348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349 :
350 : #if RK5_ENABLED
351 : module function test_setRefilled_D3_RK5_1 () result(assertion); logical(LK) :: assertion; end function
352 : #endif
353 : #if RK4_ENABLED
354 : module function test_setRefilled_D3_RK4_1 () result(assertion); logical(LK) :: assertion; end function
355 : #endif
356 : #if RK3_ENABLED
357 : module function test_setRefilled_D3_RK3_1 () result(assertion); logical(LK) :: assertion; end function
358 : #endif
359 : #if RK2_ENABLED
360 : module function test_setRefilled_D3_RK2_1 () result(assertion); logical(LK) :: assertion; end function
361 : #endif
362 : #if RK1_ENABLED
363 : module function test_setRefilled_D3_RK1_1 () result(assertion); logical(LK) :: assertion; end function
364 : #endif
365 :
366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367 :
368 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
370 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
371 :
372 : end interface
373 :
374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375 :
376 : contains
377 :
378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 :
380 1 : subroutine setTest()
381 :
382 1 : test = test_type(MODULE_NAME)
383 :
384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
387 :
388 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
389 :
390 : #if SK5_ENABLED
391 : call test%run(test_setRefilled_D0_SK5_1, SK_"test_setRefilled_D0_SK5_1")
392 : #endif
393 : #if SK4_ENABLED
394 : call test%run(test_setRefilled_D0_SK4_1, SK_"test_setRefilled_D0_SK4_1")
395 : #endif
396 : #if SK3_ENABLED
397 : call test%run(test_setRefilled_D0_SK3_1, SK_"test_setRefilled_D0_SK3_1")
398 : #endif
399 : #if SK2_ENABLED
400 : call test%run(test_setRefilled_D0_SK2_1, SK_"test_setRefilled_D0_SK2_1")
401 : #endif
402 : #if SK1_ENABLED
403 1 : call test%run(test_setRefilled_D0_SK1_1, SK_"test_setRefilled_D0_SK1_1")
404 : #endif
405 :
406 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
407 :
408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411 :
412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413 :
414 : #if SK5_ENABLED
415 : call test%run(test_setRefilled_D1_SK5_1, SK_"test_setRefilled_D1_SK5_1")
416 : #endif
417 : #if SK4_ENABLED
418 : call test%run(test_setRefilled_D1_SK4_1, SK_"test_setRefilled_D1_SK4_1")
419 : #endif
420 : #if SK3_ENABLED
421 : call test%run(test_setRefilled_D1_SK3_1, SK_"test_setRefilled_D1_SK3_1")
422 : #endif
423 : #if SK2_ENABLED
424 : call test%run(test_setRefilled_D1_SK2_1, SK_"test_setRefilled_D1_SK2_1")
425 : #endif
426 : #if SK1_ENABLED
427 1 : call test%run(test_setRefilled_D1_SK1_1, SK_"test_setRefilled_D1_SK1_1")
428 : #endif
429 :
430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 :
432 : #if IK5_ENABLED
433 1 : call test%run(test_setRefilled_D1_IK5_1, SK_"test_setRefilled_D1_IK5_1")
434 : #endif
435 : #if IK4_ENABLED
436 1 : call test%run(test_setRefilled_D1_IK4_1, SK_"test_setRefilled_D1_IK4_1")
437 : #endif
438 : #if IK3_ENABLED
439 1 : call test%run(test_setRefilled_D1_IK3_1, SK_"test_setRefilled_D1_IK3_1")
440 : #endif
441 : #if IK2_ENABLED
442 1 : call test%run(test_setRefilled_D1_IK2_1, SK_"test_setRefilled_D1_IK2_1")
443 : #endif
444 : #if IK1_ENABLED
445 1 : call test%run(test_setRefilled_D1_IK1_1, SK_"test_setRefilled_D1_IK1_1")
446 : #endif
447 :
448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449 :
450 : #if LK5_ENABLED
451 1 : call test%run(test_setRefilled_D1_LK5_1, SK_"test_setRefilled_D1_LK5_1")
452 : #endif
453 : #if LK4_ENABLED
454 1 : call test%run(test_setRefilled_D1_LK4_1, SK_"test_setRefilled_D1_LK4_1")
455 : #endif
456 : #if LK3_ENABLED
457 1 : call test%run(test_setRefilled_D1_LK3_1, SK_"test_setRefilled_D1_LK3_1")
458 : #endif
459 : #if LK2_ENABLED
460 1 : call test%run(test_setRefilled_D1_LK2_1, SK_"test_setRefilled_D1_LK2_1")
461 : #endif
462 : #if LK1_ENABLED
463 1 : call test%run(test_setRefilled_D1_LK1_1, SK_"test_setRefilled_D1_LK1_1")
464 : #endif
465 :
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 :
468 : #if CK5_ENABLED
469 : call test%run(test_setRefilled_D1_CK5_1, SK_"test_setRefilled_D1_CK5_1")
470 : #endif
471 : #if CK4_ENABLED
472 1 : call test%run(test_setRefilled_D1_CK4_1, SK_"test_setRefilled_D1_CK4_1")
473 : #endif
474 : #if CK3_ENABLED
475 1 : call test%run(test_setRefilled_D1_CK3_1, SK_"test_setRefilled_D1_CK3_1")
476 : #endif
477 : #if CK2_ENABLED
478 1 : call test%run(test_setRefilled_D1_CK2_1, SK_"test_setRefilled_D1_CK2_1")
479 : #endif
480 : #if CK1_ENABLED
481 1 : call test%run(test_setRefilled_D1_CK1_1, SK_"test_setRefilled_D1_CK1_1")
482 : #endif
483 :
484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485 :
486 : #if RK5_ENABLED
487 : call test%run(test_setRefilled_D1_RK5_1, SK_"test_setRefilled_D1_RK5_1")
488 : #endif
489 : #if RK4_ENABLED
490 1 : call test%run(test_setRefilled_D1_RK4_1, SK_"test_setRefilled_D1_RK4_1")
491 : #endif
492 : #if RK3_ENABLED
493 1 : call test%run(test_setRefilled_D1_RK3_1, SK_"test_setRefilled_D1_RK3_1")
494 : #endif
495 : #if RK2_ENABLED
496 1 : call test%run(test_setRefilled_D1_RK2_1, SK_"test_setRefilled_D1_RK2_1")
497 : #endif
498 : #if RK1_ENABLED
499 1 : call test%run(test_setRefilled_D1_RK1_1, SK_"test_setRefilled_D1_RK1_1")
500 : #endif
501 :
502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
503 :
504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507 :
508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509 :
510 : #if SK5_ENABLED
511 : call test%run(test_setRefilled_D2_SK5_1, SK_"test_setRefilled_D2_SK5_1")
512 : #endif
513 : #if SK4_ENABLED
514 : call test%run(test_setRefilled_D2_SK4_1, SK_"test_setRefilled_D2_SK4_1")
515 : #endif
516 : #if SK3_ENABLED
517 : call test%run(test_setRefilled_D2_SK3_1, SK_"test_setRefilled_D2_SK3_1")
518 : #endif
519 : #if SK2_ENABLED
520 : call test%run(test_setRefilled_D2_SK2_1, SK_"test_setRefilled_D2_SK2_1")
521 : #endif
522 : #if SK1_ENABLED
523 1 : call test%run(test_setRefilled_D2_SK1_1, SK_"test_setRefilled_D2_SK1_1")
524 : #endif
525 :
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 :
528 : #if IK5_ENABLED
529 1 : call test%run(test_setRefilled_D2_IK5_1, SK_"test_setRefilled_D2_IK5_1")
530 : #endif
531 : #if IK4_ENABLED
532 1 : call test%run(test_setRefilled_D2_IK4_1, SK_"test_setRefilled_D2_IK4_1")
533 : #endif
534 : #if IK3_ENABLED
535 1 : call test%run(test_setRefilled_D2_IK3_1, SK_"test_setRefilled_D2_IK3_1")
536 : #endif
537 : #if IK2_ENABLED
538 1 : call test%run(test_setRefilled_D2_IK2_1, SK_"test_setRefilled_D2_IK2_1")
539 : #endif
540 : #if IK1_ENABLED
541 1 : call test%run(test_setRefilled_D2_IK1_1, SK_"test_setRefilled_D2_IK1_1")
542 : #endif
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 :
546 : #if LK5_ENABLED
547 1 : call test%run(test_setRefilled_D2_LK5_1, SK_"test_setRefilled_D2_LK5_1")
548 : #endif
549 : #if LK4_ENABLED
550 1 : call test%run(test_setRefilled_D2_LK4_1, SK_"test_setRefilled_D2_LK4_1")
551 : #endif
552 : #if LK3_ENABLED
553 1 : call test%run(test_setRefilled_D2_LK3_1, SK_"test_setRefilled_D2_LK3_1")
554 : #endif
555 : #if LK2_ENABLED
556 1 : call test%run(test_setRefilled_D2_LK2_1, SK_"test_setRefilled_D2_LK2_1")
557 : #endif
558 : #if LK1_ENABLED
559 1 : call test%run(test_setRefilled_D2_LK1_1, SK_"test_setRefilled_D2_LK1_1")
560 : #endif
561 :
562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563 :
564 : #if CK5_ENABLED
565 : call test%run(test_setRefilled_D2_CK5_1, SK_"test_setRefilled_D2_CK5_1")
566 : #endif
567 : #if CK4_ENABLED
568 1 : call test%run(test_setRefilled_D2_CK4_1, SK_"test_setRefilled_D2_CK4_1")
569 : #endif
570 : #if CK3_ENABLED
571 1 : call test%run(test_setRefilled_D2_CK3_1, SK_"test_setRefilled_D2_CK3_1")
572 : #endif
573 : #if CK2_ENABLED
574 1 : call test%run(test_setRefilled_D2_CK2_1, SK_"test_setRefilled_D2_CK2_1")
575 : #endif
576 : #if CK1_ENABLED
577 1 : call test%run(test_setRefilled_D2_CK1_1, SK_"test_setRefilled_D2_CK1_1")
578 : #endif
579 :
580 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581 :
582 : #if RK5_ENABLED
583 : call test%run(test_setRefilled_D2_RK5_1, SK_"test_setRefilled_D2_RK5_1")
584 : #endif
585 : #if RK4_ENABLED
586 1 : call test%run(test_setRefilled_D2_RK4_1, SK_"test_setRefilled_D2_RK4_1")
587 : #endif
588 : #if RK3_ENABLED
589 1 : call test%run(test_setRefilled_D2_RK3_1, SK_"test_setRefilled_D2_RK3_1")
590 : #endif
591 : #if RK2_ENABLED
592 1 : call test%run(test_setRefilled_D2_RK2_1, SK_"test_setRefilled_D2_RK2_1")
593 : #endif
594 : #if RK1_ENABLED
595 1 : call test%run(test_setRefilled_D2_RK1_1, SK_"test_setRefilled_D2_RK1_1")
596 : #endif
597 :
598 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
599 :
600 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
602 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
603 :
604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605 :
606 : #if SK5_ENABLED
607 : call test%run(test_setRefilled_D3_SK5_1, SK_"test_setRefilled_D3_SK5_1")
608 : #endif
609 : #if SK4_ENABLED
610 : call test%run(test_setRefilled_D3_SK4_1, SK_"test_setRefilled_D3_SK4_1")
611 : #endif
612 : #if SK3_ENABLED
613 : call test%run(test_setRefilled_D3_SK3_1, SK_"test_setRefilled_D3_SK3_1")
614 : #endif
615 : #if SK2_ENABLED
616 : call test%run(test_setRefilled_D3_SK2_1, SK_"test_setRefilled_D3_SK2_1")
617 : #endif
618 : #if SK1_ENABLED
619 1 : call test%run(test_setRefilled_D3_SK1_1, SK_"test_setRefilled_D3_SK1_1")
620 : #endif
621 :
622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623 :
624 : #if IK5_ENABLED
625 1 : call test%run(test_setRefilled_D3_IK5_1, SK_"test_setRefilled_D3_IK5_1")
626 : #endif
627 : #if IK4_ENABLED
628 1 : call test%run(test_setRefilled_D3_IK4_1, SK_"test_setRefilled_D3_IK4_1")
629 : #endif
630 : #if IK3_ENABLED
631 1 : call test%run(test_setRefilled_D3_IK3_1, SK_"test_setRefilled_D3_IK3_1")
632 : #endif
633 : #if IK2_ENABLED
634 1 : call test%run(test_setRefilled_D3_IK2_1, SK_"test_setRefilled_D3_IK2_1")
635 : #endif
636 : #if IK1_ENABLED
637 1 : call test%run(test_setRefilled_D3_IK1_1, SK_"test_setRefilled_D3_IK1_1")
638 : #endif
639 :
640 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
641 :
642 : #if LK5_ENABLED
643 1 : call test%run(test_setRefilled_D3_LK5_1, SK_"test_setRefilled_D3_LK5_1")
644 : #endif
645 : #if LK4_ENABLED
646 1 : call test%run(test_setRefilled_D3_LK4_1, SK_"test_setRefilled_D3_LK4_1")
647 : #endif
648 : #if LK3_ENABLED
649 1 : call test%run(test_setRefilled_D3_LK3_1, SK_"test_setRefilled_D3_LK3_1")
650 : #endif
651 : #if LK2_ENABLED
652 1 : call test%run(test_setRefilled_D3_LK2_1, SK_"test_setRefilled_D3_LK2_1")
653 : #endif
654 : #if LK1_ENABLED
655 1 : call test%run(test_setRefilled_D3_LK1_1, SK_"test_setRefilled_D3_LK1_1")
656 : #endif
657 :
658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
659 :
660 : #if CK5_ENABLED
661 : call test%run(test_setRefilled_D3_CK5_1, SK_"test_setRefilled_D3_CK5_1")
662 : #endif
663 : #if CK4_ENABLED
664 1 : call test%run(test_setRefilled_D3_CK4_1, SK_"test_setRefilled_D3_CK4_1")
665 : #endif
666 : #if CK3_ENABLED
667 1 : call test%run(test_setRefilled_D3_CK3_1, SK_"test_setRefilled_D3_CK3_1")
668 : #endif
669 : #if CK2_ENABLED
670 1 : call test%run(test_setRefilled_D3_CK2_1, SK_"test_setRefilled_D3_CK2_1")
671 : #endif
672 : #if CK1_ENABLED
673 1 : call test%run(test_setRefilled_D3_CK1_1, SK_"test_setRefilled_D3_CK1_1")
674 : #endif
675 :
676 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
677 :
678 : #if RK5_ENABLED
679 : call test%run(test_setRefilled_D3_RK5_1, SK_"test_setRefilled_D3_RK5_1")
680 : #endif
681 : #if RK4_ENABLED
682 1 : call test%run(test_setRefilled_D3_RK4_1, SK_"test_setRefilled_D3_RK4_1")
683 : #endif
684 : #if RK3_ENABLED
685 1 : call test%run(test_setRefilled_D3_RK3_1, SK_"test_setRefilled_D3_RK3_1")
686 : #endif
687 : #if RK2_ENABLED
688 1 : call test%run(test_setRefilled_D3_RK2_1, SK_"test_setRefilled_D3_RK2_1")
689 : #endif
690 : #if RK1_ENABLED
691 1 : call test%run(test_setRefilled_D3_RK1_1, SK_"test_setRefilled_D3_RK1_1")
692 : #endif
693 :
694 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
695 :
696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
697 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
698 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
699 :
700 1 : call test%summarize()
701 :
702 1 : end subroutine setTest
703 :
704 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
705 :
706 : end module test_pm_arrayRefill
|
