Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief This module contains tests of the module [pm_arrayMerge](@ref pm_arrayMerge).
18 : !>
19 : !> \fintest
20 : !>
21 : !> \author
22 : !> \AmirShahmoradi, April 21, 2017, 1:54 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
23 :
24 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
25 :
26 : module test_pm_arrayMerge
27 :
28 : use pm_arrayMerge
29 : use pm_test, only: test_type, LK
30 : use pm_kind, only: IK, RK
31 : use pm_kind, only: LK
32 : implicit none
33 :
34 : private
35 : public :: setTest
36 : type(test_type) :: test
37 :
38 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39 :
40 : interface
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : #if SK5_ENABLED
45 : module function test_getMerged_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
46 : #endif
47 : #if SK4_ENABLED
48 : module function test_getMerged_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
49 : #endif
50 : #if SK3_ENABLED
51 : module function test_getMerged_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
52 : #endif
53 : #if SK2_ENABLED
54 : module function test_getMerged_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
55 : #endif
56 : #if SK1_ENABLED
57 : module function test_getMerged_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
58 : #endif
59 :
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 :
62 : #if SK5_ENABLED
63 : module function test_getMerged_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
64 : #endif
65 : #if SK4_ENABLED
66 : module function test_getMerged_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
67 : #endif
68 : #if SK3_ENABLED
69 : module function test_getMerged_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
70 : #endif
71 : #if SK2_ENABLED
72 : module function test_getMerged_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
73 : #endif
74 : #if SK1_ENABLED
75 : module function test_getMerged_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
76 : #endif
77 :
78 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79 :
80 : #if IK5_ENABLED
81 : module function test_getMerged_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
82 : #endif
83 : #if IK4_ENABLED
84 : module function test_getMerged_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
85 : #endif
86 : #if IK3_ENABLED
87 : module function test_getMerged_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
88 : #endif
89 : #if IK2_ENABLED
90 : module function test_getMerged_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
91 : #endif
92 : #if IK1_ENABLED
93 : module function test_getMerged_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
94 : #endif
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #if LK5_ENABLED
99 : module function test_getMerged_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
100 : #endif
101 : #if LK4_ENABLED
102 : module function test_getMerged_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
103 : #endif
104 : #if LK3_ENABLED
105 : module function test_getMerged_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
106 : #endif
107 : #if LK2_ENABLED
108 : module function test_getMerged_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
109 : #endif
110 : #if LK1_ENABLED
111 : module function test_getMerged_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
112 : #endif
113 :
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 :
116 : #if CK5_ENABLED
117 : module function test_getMerged_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
118 : #endif
119 : #if CK4_ENABLED
120 : module function test_getMerged_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
121 : #endif
122 : #if CK3_ENABLED
123 : module function test_getMerged_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
124 : #endif
125 : #if CK2_ENABLED
126 : module function test_getMerged_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
127 : #endif
128 : #if CK1_ENABLED
129 : module function test_getMerged_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
130 : #endif
131 :
132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133 :
134 : #if RK5_ENABLED
135 : module function test_getMerged_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
136 : #endif
137 : #if RK4_ENABLED
138 : module function test_getMerged_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
139 : #endif
140 : #if RK3_ENABLED
141 : module function test_getMerged_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
142 : #endif
143 : #if RK2_ENABLED
144 : module function test_getMerged_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
145 : #endif
146 : #if RK1_ENABLED
147 : module function test_getMerged_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
148 : #endif
149 :
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 :
152 : #if SK5_ENABLED
153 : module function test_getMerged_D1_PSSK5_1 () result(assertion); logical(LK) :: assertion; end function
154 : #endif
155 : #if SK4_ENABLED
156 : module function test_getMerged_D1_PSSK4_1 () result(assertion); logical(LK) :: assertion; end function
157 : #endif
158 : #if SK3_ENABLED
159 : module function test_getMerged_D1_PSSK3_1 () result(assertion); logical(LK) :: assertion; end function
160 : #endif
161 : #if SK2_ENABLED
162 : module function test_getMerged_D1_PSSK2_1 () result(assertion); logical(LK) :: assertion; end function
163 : #endif
164 : #if SK1_ENABLED
165 : module function test_getMerged_D1_PSSK1_1 () result(assertion); logical(LK) :: assertion; end function
166 : #endif
167 :
168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
169 :
170 : end interface
171 :
172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
173 :
174 : interface
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 :
178 : #if SK5_ENABLED
179 : module function test_setMerged_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
180 : #endif
181 : #if SK4_ENABLED
182 : module function test_setMerged_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
183 : #endif
184 : #if SK3_ENABLED
185 : module function test_setMerged_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
186 : #endif
187 : #if SK2_ENABLED
188 : module function test_setMerged_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
189 : #endif
190 : #if SK1_ENABLED
191 : module function test_setMerged_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
192 : #endif
193 :
194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
195 :
196 : #if SK5_ENABLED
197 : module function test_setMerged_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
198 : #endif
199 : #if SK4_ENABLED
200 : module function test_setMerged_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
201 : #endif
202 : #if SK3_ENABLED
203 : module function test_setMerged_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
204 : #endif
205 : #if SK2_ENABLED
206 : module function test_setMerged_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
207 : #endif
208 : #if SK1_ENABLED
209 : module function test_setMerged_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
210 : #endif
211 :
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 :
214 : #if IK5_ENABLED
215 : module function test_setMerged_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
216 : #endif
217 : #if IK4_ENABLED
218 : module function test_setMerged_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
219 : #endif
220 : #if IK3_ENABLED
221 : module function test_setMerged_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
222 : #endif
223 : #if IK2_ENABLED
224 : module function test_setMerged_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
225 : #endif
226 : #if IK1_ENABLED
227 : module function test_setMerged_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
228 : #endif
229 :
230 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
231 :
232 : #if LK5_ENABLED
233 : module function test_setMerged_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
234 : #endif
235 : #if LK4_ENABLED
236 : module function test_setMerged_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
237 : #endif
238 : #if LK3_ENABLED
239 : module function test_setMerged_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
240 : #endif
241 : #if LK2_ENABLED
242 : module function test_setMerged_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
243 : #endif
244 : #if LK1_ENABLED
245 : module function test_setMerged_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
246 : #endif
247 :
248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249 :
250 : #if CK5_ENABLED
251 : module function test_setMerged_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
252 : #endif
253 : #if CK4_ENABLED
254 : module function test_setMerged_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
255 : #endif
256 : #if CK3_ENABLED
257 : module function test_setMerged_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
258 : #endif
259 : #if CK2_ENABLED
260 : module function test_setMerged_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
261 : #endif
262 : #if CK1_ENABLED
263 : module function test_setMerged_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
264 : #endif
265 :
266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 :
268 : #if RK5_ENABLED
269 : module function test_setMerged_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
270 : #endif
271 : #if RK4_ENABLED
272 : module function test_setMerged_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
273 : #endif
274 : #if RK3_ENABLED
275 : module function test_setMerged_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
276 : #endif
277 : #if RK2_ENABLED
278 : module function test_setMerged_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
279 : #endif
280 : #if RK1_ENABLED
281 : module function test_setMerged_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
282 : #endif
283 :
284 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
285 :
286 : #if SK5_ENABLED
287 : module function test_setMerged_D1_PSSK5_1 () result(assertion); logical(LK) :: assertion; end function
288 : #endif
289 : #if SK4_ENABLED
290 : module function test_setMerged_D1_PSSK4_1 () result(assertion); logical(LK) :: assertion; end function
291 : #endif
292 : #if SK3_ENABLED
293 : module function test_setMerged_D1_PSSK3_1 () result(assertion); logical(LK) :: assertion; end function
294 : #endif
295 : #if SK2_ENABLED
296 : module function test_setMerged_D1_PSSK2_1 () result(assertion); logical(LK) :: assertion; end function
297 : #endif
298 : #if SK1_ENABLED
299 : module function test_setMerged_D1_PSSK1_1 () result(assertion); logical(LK) :: assertion; end function
300 : #endif
301 :
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 :
304 : end interface
305 :
306 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
307 :
308 : contains
309 :
310 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
311 :
312 1 : subroutine setTest()
313 :
314 1 : test = test_type(MODULE_NAME)
315 :
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321 :
322 : #if SK5_ENABLED
323 : call test%run(test_getMerged_D0_SK5_1, SK_"test_getMerged_D0_SK5_1")
324 : #endif
325 : #if SK4_ENABLED
326 : call test%run(test_getMerged_D0_SK4_1, SK_"test_getMerged_D0_SK4_1")
327 : #endif
328 : #if SK3_ENABLED
329 : call test%run(test_getMerged_D0_SK3_1, SK_"test_getMerged_D0_SK3_1")
330 : #endif
331 : #if SK2_ENABLED
332 : call test%run(test_getMerged_D0_SK2_1, SK_"test_getMerged_D0_SK2_1")
333 : #endif
334 : #if SK1_ENABLED
335 1 : call test%run(test_getMerged_D0_SK1_1, SK_"test_getMerged_D0_SK1_1")
336 : #endif
337 :
338 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
339 :
340 : #if SK5_ENABLED
341 : call test%run(test_getMerged_D1_SK5_1, SK_"test_getMerged_D1_SK5_1")
342 : #endif
343 : #if SK4_ENABLED
344 : call test%run(test_getMerged_D1_SK4_1, SK_"test_getMerged_D1_SK4_1")
345 : #endif
346 : #if SK3_ENABLED
347 : call test%run(test_getMerged_D1_SK3_1, SK_"test_getMerged_D1_SK3_1")
348 : #endif
349 : #if SK2_ENABLED
350 : call test%run(test_getMerged_D1_SK2_1, SK_"test_getMerged_D1_SK2_1")
351 : #endif
352 : #if SK1_ENABLED
353 1 : call test%run(test_getMerged_D1_SK1_1, SK_"test_getMerged_D1_SK1_1")
354 : #endif
355 :
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 :
358 : #if IK5_ENABLED
359 1 : call test%run(test_getMerged_D1_IK5_1, SK_"test_getMerged_D1_IK5_1")
360 : #endif
361 : #if IK4_ENABLED
362 1 : call test%run(test_getMerged_D1_IK4_1, SK_"test_getMerged_D1_IK4_1")
363 : #endif
364 : #if IK3_ENABLED
365 1 : call test%run(test_getMerged_D1_IK3_1, SK_"test_getMerged_D1_IK3_1")
366 : #endif
367 : #if IK2_ENABLED
368 1 : call test%run(test_getMerged_D1_IK2_1, SK_"test_getMerged_D1_IK2_1")
369 : #endif
370 : #if IK1_ENABLED
371 1 : call test%run(test_getMerged_D1_IK1_1, SK_"test_getMerged_D1_IK1_1")
372 : #endif
373 :
374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375 :
376 : #if LK5_ENABLED
377 1 : call test%run(test_getMerged_D1_LK5_1, SK_"test_getMerged_D1_LK5_1")
378 : #endif
379 : #if LK4_ENABLED
380 1 : call test%run(test_getMerged_D1_LK4_1, SK_"test_getMerged_D1_LK4_1")
381 : #endif
382 : #if LK3_ENABLED
383 1 : call test%run(test_getMerged_D1_LK3_1, SK_"test_getMerged_D1_LK3_1")
384 : #endif
385 : #if LK2_ENABLED
386 1 : call test%run(test_getMerged_D1_LK2_1, SK_"test_getMerged_D1_LK2_1")
387 : #endif
388 : #if LK1_ENABLED
389 1 : call test%run(test_getMerged_D1_LK1_1, SK_"test_getMerged_D1_LK1_1")
390 : #endif
391 :
392 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
393 :
394 : #if CK5_ENABLED
395 : call test%run(test_getMerged_D1_CK5_1, SK_"test_getMerged_D1_CK5_1")
396 : #endif
397 : #if CK4_ENABLED
398 1 : call test%run(test_getMerged_D1_CK4_1, SK_"test_getMerged_D1_CK4_1")
399 : #endif
400 : #if CK3_ENABLED
401 1 : call test%run(test_getMerged_D1_CK3_1, SK_"test_getMerged_D1_CK3_1")
402 : #endif
403 : #if CK2_ENABLED
404 1 : call test%run(test_getMerged_D1_CK2_1, SK_"test_getMerged_D1_CK2_1")
405 : #endif
406 : #if CK1_ENABLED
407 1 : call test%run(test_getMerged_D1_CK1_1, SK_"test_getMerged_D1_CK1_1")
408 : #endif
409 :
410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411 :
412 : #if RK5_ENABLED
413 : call test%run(test_getMerged_D1_RK5_1, SK_"test_getMerged_D1_RK5_1")
414 : #endif
415 : #if RK4_ENABLED
416 1 : call test%run(test_getMerged_D1_RK4_1, SK_"test_getMerged_D1_RK4_1")
417 : #endif
418 : #if RK3_ENABLED
419 1 : call test%run(test_getMerged_D1_RK3_1, SK_"test_getMerged_D1_RK3_1")
420 : #endif
421 : #if RK2_ENABLED
422 1 : call test%run(test_getMerged_D1_RK2_1, SK_"test_getMerged_D1_RK2_1")
423 : #endif
424 : #if RK1_ENABLED
425 1 : call test%run(test_getMerged_D1_RK1_1, SK_"test_getMerged_D1_RK1_1")
426 : #endif
427 :
428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
429 :
430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
433 :
434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435 :
436 : #if SK5_ENABLED
437 : call test%run(test_setMerged_D0_SK5_1, SK_"test_setMerged_D0_SK5_1")
438 : #endif
439 : #if SK4_ENABLED
440 : call test%run(test_setMerged_D0_SK4_1, SK_"test_setMerged_D0_SK4_1")
441 : #endif
442 : #if SK3_ENABLED
443 : call test%run(test_setMerged_D0_SK3_1, SK_"test_setMerged_D0_SK3_1")
444 : #endif
445 : #if SK2_ENABLED
446 : call test%run(test_setMerged_D0_SK2_1, SK_"test_setMerged_D0_SK2_1")
447 : #endif
448 : #if SK1_ENABLED
449 1 : call test%run(test_setMerged_D0_SK1_1, SK_"test_setMerged_D0_SK1_1")
450 : #endif
451 :
452 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453 :
454 : #if SK5_ENABLED
455 : call test%run(test_setMerged_D1_SK5_1, SK_"test_setMerged_D1_SK5_1")
456 : #endif
457 : #if SK4_ENABLED
458 : call test%run(test_setMerged_D1_SK4_1, SK_"test_setMerged_D1_SK4_1")
459 : #endif
460 : #if SK3_ENABLED
461 : call test%run(test_setMerged_D1_SK3_1, SK_"test_setMerged_D1_SK3_1")
462 : #endif
463 : #if SK2_ENABLED
464 : call test%run(test_setMerged_D1_SK2_1, SK_"test_setMerged_D1_SK2_1")
465 : #endif
466 : #if SK1_ENABLED
467 1 : call test%run(test_setMerged_D1_SK1_1, SK_"test_setMerged_D1_SK1_1")
468 : #endif
469 :
470 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
471 :
472 : #if IK5_ENABLED
473 1 : call test%run(test_setMerged_D1_IK5_1, SK_"test_setMerged_D1_IK5_1")
474 : #endif
475 : #if IK4_ENABLED
476 1 : call test%run(test_setMerged_D1_IK4_1, SK_"test_setMerged_D1_IK4_1")
477 : #endif
478 : #if IK3_ENABLED
479 1 : call test%run(test_setMerged_D1_IK3_1, SK_"test_setMerged_D1_IK3_1")
480 : #endif
481 : #if IK2_ENABLED
482 1 : call test%run(test_setMerged_D1_IK2_1, SK_"test_setMerged_D1_IK2_1")
483 : #endif
484 : #if IK1_ENABLED
485 1 : call test%run(test_setMerged_D1_IK1_1, SK_"test_setMerged_D1_IK1_1")
486 : #endif
487 :
488 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489 :
490 : #if LK5_ENABLED
491 1 : call test%run(test_setMerged_D1_LK5_1, SK_"test_setMerged_D1_LK5_1")
492 : #endif
493 : #if LK4_ENABLED
494 1 : call test%run(test_setMerged_D1_LK4_1, SK_"test_setMerged_D1_LK4_1")
495 : #endif
496 : #if LK3_ENABLED
497 1 : call test%run(test_setMerged_D1_LK3_1, SK_"test_setMerged_D1_LK3_1")
498 : #endif
499 : #if LK2_ENABLED
500 1 : call test%run(test_setMerged_D1_LK2_1, SK_"test_setMerged_D1_LK2_1")
501 : #endif
502 : #if LK1_ENABLED
503 1 : call test%run(test_setMerged_D1_LK1_1, SK_"test_setMerged_D1_LK1_1")
504 : #endif
505 :
506 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
507 :
508 : #if CK5_ENABLED
509 : call test%run(test_setMerged_D1_CK5_1, SK_"test_setMerged_D1_CK5_1")
510 : #endif
511 : #if CK4_ENABLED
512 1 : call test%run(test_setMerged_D1_CK4_1, SK_"test_setMerged_D1_CK4_1")
513 : #endif
514 : #if CK3_ENABLED
515 1 : call test%run(test_setMerged_D1_CK3_1, SK_"test_setMerged_D1_CK3_1")
516 : #endif
517 : #if CK2_ENABLED
518 1 : call test%run(test_setMerged_D1_CK2_1, SK_"test_setMerged_D1_CK2_1")
519 : #endif
520 : #if CK1_ENABLED
521 1 : call test%run(test_setMerged_D1_CK1_1, SK_"test_setMerged_D1_CK1_1")
522 : #endif
523 :
524 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
525 :
526 : #if RK5_ENABLED
527 : call test%run(test_setMerged_D1_RK5_1, SK_"test_setMerged_D1_RK5_1")
528 : #endif
529 : #if RK4_ENABLED
530 1 : call test%run(test_setMerged_D1_RK4_1, SK_"test_setMerged_D1_RK4_1")
531 : #endif
532 : #if RK3_ENABLED
533 1 : call test%run(test_setMerged_D1_RK3_1, SK_"test_setMerged_D1_RK3_1")
534 : #endif
535 : #if RK2_ENABLED
536 1 : call test%run(test_setMerged_D1_RK2_1, SK_"test_setMerged_D1_RK2_1")
537 : #endif
538 : #if RK1_ENABLED
539 1 : call test%run(test_setMerged_D1_RK1_1, SK_"test_setMerged_D1_RK1_1")
540 : #endif
541 :
542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543 :
544 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 1 : call test%summarize()
548 :
549 1 : end subroutine setTest
550 :
551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
552 :
553 : end module test_pm_arrayMerge
|
