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_arrayFind](@ref pm_arrayFind).
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_arrayFind
28 :
29 : use pm_arrayFind
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_loc_D0_D0_SK5() result(assertion); logical(LK) :: assertion; end function
50 : #endif
51 : #if SK4_ENABLED
52 : module function test_loc_D0_D0_SK4() result(assertion); logical(LK) :: assertion; end function
53 : #endif
54 : #if SK3_ENABLED
55 : module function test_loc_D0_D0_SK3() result(assertion); logical(LK) :: assertion; end function
56 : #endif
57 : #if SK2_ENABLED
58 : module function test_loc_D0_D0_SK2() result(assertion); logical(LK) :: assertion; end function
59 : #endif
60 : #if SK1_ENABLED
61 : module function test_loc_D0_D0_SK1() 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_loc_D1_D0_SK5() result(assertion); logical(LK) :: assertion; end function
74 : #endif
75 : #if SK4_ENABLED
76 : module function test_loc_D1_D0_SK4() result(assertion); logical(LK) :: assertion; end function
77 : #endif
78 : #if SK3_ENABLED
79 : module function test_loc_D1_D0_SK3() result(assertion); logical(LK) :: assertion; end function
80 : #endif
81 : #if SK2_ENABLED
82 : module function test_loc_D1_D0_SK2() result(assertion); logical(LK) :: assertion; end function
83 : #endif
84 : #if SK1_ENABLED
85 : module function test_loc_D1_D0_SK1() result(assertion); logical(LK) :: assertion; end function
86 : #endif
87 :
88 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89 :
90 : #if IK5_ENABLED
91 : module function test_loc_D1_D0_IK5() result(assertion); logical(LK) :: assertion; end function
92 : #endif
93 : #if IK4_ENABLED
94 : module function test_loc_D1_D0_IK4() result(assertion); logical(LK) :: assertion; end function
95 : #endif
96 : #if IK3_ENABLED
97 : module function test_loc_D1_D0_IK3() result(assertion); logical(LK) :: assertion; end function
98 : #endif
99 : #if IK2_ENABLED
100 : module function test_loc_D1_D0_IK2() result(assertion); logical(LK) :: assertion; end function
101 : #endif
102 : #if IK1_ENABLED
103 : module function test_loc_D1_D0_IK1() result(assertion); logical(LK) :: assertion; end function
104 : #endif
105 :
106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
107 :
108 : #if LK5_ENABLED
109 : module function test_loc_D1_D0_LK5() result(assertion); logical(LK) :: assertion; end function
110 : #endif
111 : #if LK4_ENABLED
112 : module function test_loc_D1_D0_LK4() result(assertion); logical(LK) :: assertion; end function
113 : #endif
114 : #if LK3_ENABLED
115 : module function test_loc_D1_D0_LK3() result(assertion); logical(LK) :: assertion; end function
116 : #endif
117 : #if LK2_ENABLED
118 : module function test_loc_D1_D0_LK2() result(assertion); logical(LK) :: assertion; end function
119 : #endif
120 : #if LK1_ENABLED
121 : module function test_loc_D1_D0_LK1() result(assertion); logical(LK) :: assertion; end function
122 : #endif
123 :
124 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
125 :
126 : #if CK5_ENABLED
127 : module function test_loc_D1_D0_CK5() result(assertion); logical(LK) :: assertion; end function
128 : #endif
129 : #if CK4_ENABLED
130 : module function test_loc_D1_D0_CK4() result(assertion); logical(LK) :: assertion; end function
131 : #endif
132 : #if CK3_ENABLED
133 : module function test_loc_D1_D0_CK3() result(assertion); logical(LK) :: assertion; end function
134 : #endif
135 : #if CK2_ENABLED
136 : module function test_loc_D1_D0_CK2() result(assertion); logical(LK) :: assertion; end function
137 : #endif
138 : #if CK1_ENABLED
139 : module function test_loc_D1_D0_CK1() result(assertion); logical(LK) :: assertion; end function
140 : #endif
141 :
142 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143 :
144 : #if RK5_ENABLED
145 : module function test_loc_D1_D0_RK5() result(assertion); logical(LK) :: assertion; end function
146 : #endif
147 : #if RK4_ENABLED
148 : module function test_loc_D1_D0_RK4() result(assertion); logical(LK) :: assertion; end function
149 : #endif
150 : #if RK3_ENABLED
151 : module function test_loc_D1_D0_RK3() result(assertion); logical(LK) :: assertion; end function
152 : #endif
153 : #if RK2_ENABLED
154 : module function test_loc_D1_D0_RK2() result(assertion); logical(LK) :: assertion; end function
155 : #endif
156 : #if RK1_ENABLED
157 : module function test_loc_D1_D0_RK1() 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_loc_D1_D1_SK5() result(assertion); logical(LK) :: assertion; end function
170 : #endif
171 : #if SK4_ENABLED
172 : module function test_loc_D1_D1_SK4() result(assertion); logical(LK) :: assertion; end function
173 : #endif
174 : #if SK3_ENABLED
175 : module function test_loc_D1_D1_SK3() result(assertion); logical(LK) :: assertion; end function
176 : #endif
177 : #if SK2_ENABLED
178 : module function test_loc_D1_D1_SK2() result(assertion); logical(LK) :: assertion; end function
179 : #endif
180 : #if SK1_ENABLED
181 : module function test_loc_D1_D1_SK1() result(assertion); logical(LK) :: assertion; end function
182 : #endif
183 :
184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
185 :
186 : #if IK5_ENABLED
187 : module function test_loc_D1_D1_IK5() result(assertion); logical(LK) :: assertion; end function
188 : #endif
189 : #if IK4_ENABLED
190 : module function test_loc_D1_D1_IK4() result(assertion); logical(LK) :: assertion; end function
191 : #endif
192 : #if IK3_ENABLED
193 : module function test_loc_D1_D1_IK3() result(assertion); logical(LK) :: assertion; end function
194 : #endif
195 : #if IK2_ENABLED
196 : module function test_loc_D1_D1_IK2() result(assertion); logical(LK) :: assertion; end function
197 : #endif
198 : #if IK1_ENABLED
199 : module function test_loc_D1_D1_IK1() result(assertion); logical(LK) :: assertion; end function
200 : #endif
201 :
202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
203 :
204 : #if LK5_ENABLED
205 : module function test_loc_D1_D1_LK5() result(assertion); logical(LK) :: assertion; end function
206 : #endif
207 : #if LK4_ENABLED
208 : module function test_loc_D1_D1_LK4() result(assertion); logical(LK) :: assertion; end function
209 : #endif
210 : #if LK3_ENABLED
211 : module function test_loc_D1_D1_LK3() result(assertion); logical(LK) :: assertion; end function
212 : #endif
213 : #if LK2_ENABLED
214 : module function test_loc_D1_D1_LK2() result(assertion); logical(LK) :: assertion; end function
215 : #endif
216 : #if LK1_ENABLED
217 : module function test_loc_D1_D1_LK1() result(assertion); logical(LK) :: assertion; end function
218 : #endif
219 :
220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
221 :
222 : #if CK5_ENABLED
223 : module function test_loc_D1_D1_CK5() result(assertion); logical(LK) :: assertion; end function
224 : #endif
225 : #if CK4_ENABLED
226 : module function test_loc_D1_D1_CK4() result(assertion); logical(LK) :: assertion; end function
227 : #endif
228 : #if CK3_ENABLED
229 : module function test_loc_D1_D1_CK3() result(assertion); logical(LK) :: assertion; end function
230 : #endif
231 : #if CK2_ENABLED
232 : module function test_loc_D1_D1_CK2() result(assertion); logical(LK) :: assertion; end function
233 : #endif
234 : #if CK1_ENABLED
235 : module function test_loc_D1_D1_CK1() result(assertion); logical(LK) :: assertion; end function
236 : #endif
237 :
238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
239 :
240 : #if RK5_ENABLED
241 : module function test_loc_D1_D1_RK5() result(assertion); logical(LK) :: assertion; end function
242 : #endif
243 : #if RK4_ENABLED
244 : module function test_loc_D1_D1_RK4() result(assertion); logical(LK) :: assertion; end function
245 : #endif
246 : #if RK3_ENABLED
247 : module function test_loc_D1_D1_RK3() result(assertion); logical(LK) :: assertion; end function
248 : #endif
249 : #if RK2_ENABLED
250 : module function test_loc_D1_D1_RK2() result(assertion); logical(LK) :: assertion; end function
251 : #endif
252 : #if RK1_ENABLED
253 : module function test_loc_D1_D1_RK1() result(assertion); logical(LK) :: assertion; end function
254 : #endif
255 :
256 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
257 :
258 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
261 :
262 : end interface
263 :
264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265 :
266 : contains
267 :
268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269 :
270 1 : subroutine setTest()
271 :
272 : implicit none
273 :
274 1 : test = test_type(MODULE_NAME)
275 :
276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
277 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
278 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
279 :
280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281 :
282 : #if SK5_ENABLED
283 : call test%run(test_loc_D1_D0_SK5, SK_"test_loc_D1_D0_SK5")
284 : #endif
285 : #if SK4_ENABLED
286 : call test%run(test_loc_D0_D0_SK4, SK_"test_loc_D0_D0_SK4")
287 : #endif
288 : #if SK3_ENABLED
289 : call test%run(test_loc_D0_D0_SK3, SK_"test_loc_D0_D0_SK3")
290 : #endif
291 : #if SK2_ENABLED
292 : call test%run(test_loc_D0_D0_SK2, SK_"test_loc_D0_D0_SK2")
293 : #endif
294 : #if SK1_ENABLED
295 1 : call test%run(test_loc_D0_D0_SK1, SK_"test_loc_D0_D0_SK1")
296 : #endif
297 :
298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
299 :
300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 :
304 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
305 :
306 : #if SK5_ENABLED
307 : call test%run(test_loc_D1_D0_SK5, SK_"test_loc_D1_D0_SK5")
308 : #endif
309 : #if SK4_ENABLED
310 : call test%run(test_loc_D1_D0_SK4, SK_"test_loc_D1_D0_SK4")
311 : #endif
312 : #if SK3_ENABLED
313 : call test%run(test_loc_D1_D0_SK3, SK_"test_loc_D1_D0_SK3")
314 : #endif
315 : #if SK2_ENABLED
316 : call test%run(test_loc_D1_D0_SK2, SK_"test_loc_D1_D0_SK2")
317 : #endif
318 : #if SK1_ENABLED
319 1 : call test%run(test_loc_D1_D0_SK1, SK_"test_loc_D1_D0_SK1")
320 : #endif
321 :
322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 :
324 : #if IK5_ENABLED
325 1 : call test%run(test_loc_D1_D0_IK5, SK_"test_loc_D1_D0_IK5")
326 : #endif
327 : #if IK4_ENABLED
328 1 : call test%run(test_loc_D1_D0_IK4, SK_"test_loc_D1_D0_IK4")
329 : #endif
330 : #if IK3_ENABLED
331 1 : call test%run(test_loc_D1_D0_IK3, SK_"test_loc_D1_D0_IK3")
332 : #endif
333 : #if IK2_ENABLED
334 1 : call test%run(test_loc_D1_D0_IK2, SK_"test_loc_D1_D0_IK2")
335 : #endif
336 : #if IK1_ENABLED
337 1 : call test%run(test_loc_D1_D0_IK1, SK_"test_loc_D1_D0_IK1")
338 : #endif
339 :
340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
341 :
342 : #if LK5_ENABLED
343 1 : call test%run(test_loc_D1_D0_LK5, SK_"test_loc_D1_D0_LK5")
344 : #endif
345 : #if LK4_ENABLED
346 1 : call test%run(test_loc_D1_D0_LK4, SK_"test_loc_D1_D0_LK4")
347 : #endif
348 : #if LK3_ENABLED
349 1 : call test%run(test_loc_D1_D0_LK3, SK_"test_loc_D1_D0_LK3")
350 : #endif
351 : #if LK2_ENABLED
352 1 : call test%run(test_loc_D1_D0_LK2, SK_"test_loc_D1_D0_LK2")
353 : #endif
354 : #if LK1_ENABLED
355 1 : call test%run(test_loc_D1_D0_LK1, SK_"test_loc_D1_D0_LK1")
356 : #endif
357 :
358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
359 :
360 : #if CK5_ENABLED
361 : call test%run(test_loc_D1_D0_CK5, SK_"test_loc_D1_D0_CK5")
362 : #endif
363 : #if CK4_ENABLED
364 1 : call test%run(test_loc_D1_D0_CK4, SK_"test_loc_D1_D0_CK4")
365 : #endif
366 : #if CK3_ENABLED
367 1 : call test%run(test_loc_D1_D0_CK3, SK_"test_loc_D1_D0_CK3")
368 : #endif
369 : #if CK2_ENABLED
370 1 : call test%run(test_loc_D1_D0_CK2, SK_"test_loc_D1_D0_CK2")
371 : #endif
372 : #if CK1_ENABLED
373 1 : call test%run(test_loc_D1_D0_CK1, SK_"test_loc_D1_D0_CK1")
374 : #endif
375 :
376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377 :
378 : #if RK5_ENABLED
379 : call test%run(test_loc_D1_D0_RK5, SK_"test_loc_D1_D0_RK5")
380 : #endif
381 : #if RK4_ENABLED
382 1 : call test%run(test_loc_D1_D0_RK4, SK_"test_loc_D1_D0_RK4")
383 : #endif
384 : #if RK3_ENABLED
385 1 : call test%run(test_loc_D1_D0_RK3, SK_"test_loc_D1_D0_RK3")
386 : #endif
387 : #if RK2_ENABLED
388 1 : call test%run(test_loc_D1_D0_RK2, SK_"test_loc_D1_D0_RK2")
389 : #endif
390 : #if RK1_ENABLED
391 1 : call test%run(test_loc_D1_D0_RK1, SK_"test_loc_D1_D0_RK1")
392 : #endif
393 :
394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395 :
396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399 :
400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401 :
402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
403 :
404 : #if SK5_ENABLED
405 : call test%run(test_loc_D1_D1_SK5, SK_"test_loc_D1_D1_SK5")
406 : #endif
407 : #if SK4_ENABLED
408 : call test%run(test_loc_D1_D1_SK4, SK_"test_loc_D1_D1_SK4")
409 : #endif
410 : #if SK3_ENABLED
411 : call test%run(test_loc_D1_D1_SK3, SK_"test_loc_D1_D1_SK3")
412 : #endif
413 : #if SK2_ENABLED
414 : call test%run(test_loc_D1_D1_SK2, SK_"test_loc_D1_D1_SK2")
415 : #endif
416 : #if SK1_ENABLED
417 1 : call test%run(test_loc_D1_D1_SK1, SK_"test_loc_D1_D1_SK1")
418 : #endif
419 :
420 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
421 :
422 : #if IK5_ENABLED
423 1 : call test%run(test_loc_D1_D1_IK5, SK_"test_loc_D1_D1_IK5")
424 : #endif
425 : #if IK4_ENABLED
426 1 : call test%run(test_loc_D1_D1_IK4, SK_"test_loc_D1_D1_IK4")
427 : #endif
428 : #if IK3_ENABLED
429 1 : call test%run(test_loc_D1_D1_IK3, SK_"test_loc_D1_D1_IK3")
430 : #endif
431 : #if IK2_ENABLED
432 1 : call test%run(test_loc_D1_D1_IK2, SK_"test_loc_D1_D1_IK2")
433 : #endif
434 : #if IK1_ENABLED
435 1 : call test%run(test_loc_D1_D1_IK1, SK_"test_loc_D1_D1_IK1")
436 : #endif
437 :
438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 :
440 : #if LK5_ENABLED
441 1 : call test%run(test_loc_D1_D1_LK5, SK_"test_loc_D1_D1_LK5")
442 : #endif
443 : #if LK4_ENABLED
444 1 : call test%run(test_loc_D1_D1_LK4, SK_"test_loc_D1_D1_LK4")
445 : #endif
446 : #if LK3_ENABLED
447 1 : call test%run(test_loc_D1_D1_LK3, SK_"test_loc_D1_D1_LK3")
448 : #endif
449 : #if LK2_ENABLED
450 1 : call test%run(test_loc_D1_D1_LK2, SK_"test_loc_D1_D1_LK2")
451 : #endif
452 : #if LK1_ENABLED
453 1 : call test%run(test_loc_D1_D1_LK1, SK_"test_loc_D1_D1_LK1")
454 : #endif
455 :
456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
457 :
458 : #if CK5_ENABLED
459 : call test%run(test_loc_D1_D1_CK5, SK_"test_loc_D1_D1_CK5")
460 : #endif
461 : #if CK4_ENABLED
462 1 : call test%run(test_loc_D1_D1_CK4, SK_"test_loc_D1_D1_CK4")
463 : #endif
464 : #if CK3_ENABLED
465 1 : call test%run(test_loc_D1_D1_CK3, SK_"test_loc_D1_D1_CK3")
466 : #endif
467 : #if CK2_ENABLED
468 1 : call test%run(test_loc_D1_D1_CK2, SK_"test_loc_D1_D1_CK2")
469 : #endif
470 : #if CK1_ENABLED
471 1 : call test%run(test_loc_D1_D1_CK1, SK_"test_loc_D1_D1_CK1")
472 : #endif
473 :
474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
475 :
476 : #if RK5_ENABLED
477 : call test%run(test_loc_D1_D1_RK5, SK_"test_loc_D1_D1_RK5")
478 : #endif
479 : #if RK4_ENABLED
480 1 : call test%run(test_loc_D1_D1_RK4, SK_"test_loc_D1_D1_RK4")
481 : #endif
482 : #if RK3_ENABLED
483 1 : call test%run(test_loc_D1_D1_RK3, SK_"test_loc_D1_D1_RK3")
484 : #endif
485 : #if RK2_ENABLED
486 1 : call test%run(test_loc_D1_D1_RK2, SK_"test_loc_D1_D1_RK2")
487 : #endif
488 : #if RK1_ENABLED
489 1 : call test%run(test_loc_D1_D1_RK1, SK_"test_loc_D1_D1_RK1")
490 : #endif
491 :
492 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
493 :
494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
495 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497 :
498 1 : call test%summarize()
499 :
500 1 : end subroutine setTest
501 :
502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
503 :
504 : end module test_pm_arrayFind ! LCOV_EXCL_LINE
|
