Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!!
4 : !!!! MIT License
5 : !!!!
6 : !!!! ParaMonte: plain powerful paralgel Monte Carlo library.
7 : !!!!
8 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab
9 : !!!!
10 : !!!! This file is part of the ParaMonte library.
11 : !!!!
12 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
13 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
14 :
15 : !> \brief
16 : !> This module contains tests of the module [pm_arrayCompareLex](@ref pm_arrayCompareLex).
17 : !>
18 : !> \fintest
19 : !>
20 : !> \author
21 : !> \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
22 :
23 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24 :
25 : module test_pm_arrayCompareLex
26 :
27 : use pm_arrayCompareLex
28 : use pm_err, only: err_type
29 : use pm_test, only: test_type, LK
30 :
31 : implicit none
32 :
33 : private
34 : public :: setTest
35 : type(test_type) :: test
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 :
39 : interface
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : #if SK5_ENABLED
44 : module function test_llt_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
45 : #endif
46 : #if SK4_ENABLED
47 : module function test_llt_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
48 : #endif
49 : #if SK3_ENABLED
50 : module function test_llt_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
51 : #endif
52 : #if SK2_ENABLED
53 : module function test_llt_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
54 : #endif
55 : #if SK1_ENABLED
56 : module function test_llt_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
57 : #endif
58 :
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : #if SK5_ENABLED
62 : module function test_llt_D1_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
63 : #endif
64 : #if SK4_ENABLED
65 : module function test_llt_D1_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
66 : #endif
67 : #if SK3_ENABLED
68 : module function test_llt_D1_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
69 : #endif
70 : #if SK2_ENABLED
71 : module function test_llt_D1_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
72 : #endif
73 : #if SK1_ENABLED
74 : module function test_llt_D1_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
75 : #endif
76 :
77 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
78 :
79 : #if IK5_ENABLED
80 : module function test_llt_D1_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
81 : #endif
82 : #if IK4_ENABLED
83 : module function test_llt_D1_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
84 : #endif
85 : #if IK3_ENABLED
86 : module function test_llt_D1_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
87 : #endif
88 : #if IK2_ENABLED
89 : module function test_llt_D1_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
90 : #endif
91 : #if IK1_ENABLED
92 : module function test_llt_D1_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
93 : #endif
94 :
95 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
96 :
97 : #if LK5_ENABLED
98 : module function test_llt_D1_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
99 : #endif
100 : #if LK4_ENABLED
101 : module function test_llt_D1_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
102 : #endif
103 : #if LK3_ENABLED
104 : module function test_llt_D1_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
105 : #endif
106 : #if LK2_ENABLED
107 : module function test_llt_D1_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
108 : #endif
109 : #if LK1_ENABLED
110 : module function test_llt_D1_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
111 : #endif
112 :
113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
114 :
115 : #if CK5_ENABLED
116 : module function test_llt_D1_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
117 : #endif
118 : #if CK4_ENABLED
119 : module function test_llt_D1_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
120 : #endif
121 : #if CK3_ENABLED
122 : module function test_llt_D1_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
123 : #endif
124 : #if CK2_ENABLED
125 : module function test_llt_D1_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
126 : #endif
127 : #if CK1_ENABLED
128 : module function test_llt_D1_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
129 : #endif
130 :
131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
132 :
133 : #if RK5_ENABLED
134 : module function test_llt_D1_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
135 : #endif
136 : #if RK4_ENABLED
137 : module function test_llt_D1_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
138 : #endif
139 : #if RK3_ENABLED
140 : module function test_llt_D1_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
141 : #endif
142 : #if RK2_ENABLED
143 : module function test_llt_D1_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
144 : #endif
145 : #if RK1_ENABLED
146 : module function test_llt_D1_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
147 : #endif
148 :
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 :
151 : end interface
152 :
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 :
155 : interface
156 :
157 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158 :
159 : #if SK5_ENABLED
160 : module function test_lle_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
161 : #endif
162 : #if SK4_ENABLED
163 : module function test_lle_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
164 : #endif
165 : #if SK3_ENABLED
166 : module function test_lle_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
167 : #endif
168 : #if SK2_ENABLED
169 : module function test_lle_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
170 : #endif
171 : #if SK1_ENABLED
172 : module function test_lle_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
173 : #endif
174 :
175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176 :
177 : #if SK5_ENABLED
178 : module function test_lle_D1_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
179 : #endif
180 : #if SK4_ENABLED
181 : module function test_lle_D1_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
182 : #endif
183 : #if SK3_ENABLED
184 : module function test_lle_D1_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
185 : #endif
186 : #if SK2_ENABLED
187 : module function test_lle_D1_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
188 : #endif
189 : #if SK1_ENABLED
190 : module function test_lle_D1_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
191 : #endif
192 :
193 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
194 :
195 : #if IK5_ENABLED
196 : module function test_lle_D1_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
197 : #endif
198 : #if IK4_ENABLED
199 : module function test_lle_D1_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
200 : #endif
201 : #if IK3_ENABLED
202 : module function test_lle_D1_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
203 : #endif
204 : #if IK2_ENABLED
205 : module function test_lle_D1_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
206 : #endif
207 : #if IK1_ENABLED
208 : module function test_lle_D1_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
209 : #endif
210 :
211 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
212 :
213 : #if LK5_ENABLED
214 : module function test_lle_D1_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
215 : #endif
216 : #if LK4_ENABLED
217 : module function test_lle_D1_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
218 : #endif
219 : #if LK3_ENABLED
220 : module function test_lle_D1_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
221 : #endif
222 : #if LK2_ENABLED
223 : module function test_lle_D1_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
224 : #endif
225 : #if LK1_ENABLED
226 : module function test_lle_D1_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
227 : #endif
228 :
229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
230 :
231 : #if CK5_ENABLED
232 : module function test_lle_D1_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
233 : #endif
234 : #if CK4_ENABLED
235 : module function test_lle_D1_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
236 : #endif
237 : #if CK3_ENABLED
238 : module function test_lle_D1_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
239 : #endif
240 : #if CK2_ENABLED
241 : module function test_lle_D1_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
242 : #endif
243 : #if CK1_ENABLED
244 : module function test_lle_D1_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
245 : #endif
246 :
247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248 :
249 : #if RK5_ENABLED
250 : module function test_lle_D1_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
251 : #endif
252 : #if RK4_ENABLED
253 : module function test_lle_D1_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
254 : #endif
255 : #if RK3_ENABLED
256 : module function test_lle_D1_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
257 : #endif
258 : #if RK2_ENABLED
259 : module function test_lle_D1_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
260 : #endif
261 : #if RK1_ENABLED
262 : module function test_lle_D1_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
263 : #endif
264 :
265 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266 :
267 : end interface
268 :
269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
270 :
271 : interface
272 :
273 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
274 :
275 : #if SK5_ENABLED
276 : module function test_lge_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
277 : #endif
278 : #if SK4_ENABLED
279 : module function test_lge_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
280 : #endif
281 : #if SK3_ENABLED
282 : module function test_lge_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
283 : #endif
284 : #if SK2_ENABLED
285 : module function test_lge_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
286 : #endif
287 : #if SK1_ENABLED
288 : module function test_lge_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
289 : #endif
290 :
291 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
292 :
293 : #if SK5_ENABLED
294 : module function test_lge_D1_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
295 : #endif
296 : #if SK4_ENABLED
297 : module function test_lge_D1_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
298 : #endif
299 : #if SK3_ENABLED
300 : module function test_lge_D1_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
301 : #endif
302 : #if SK2_ENABLED
303 : module function test_lge_D1_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
304 : #endif
305 : #if SK1_ENABLED
306 : module function test_lge_D1_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
307 : #endif
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 :
311 : #if IK5_ENABLED
312 : module function test_lge_D1_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
313 : #endif
314 : #if IK4_ENABLED
315 : module function test_lge_D1_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
316 : #endif
317 : #if IK3_ENABLED
318 : module function test_lge_D1_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
319 : #endif
320 : #if IK2_ENABLED
321 : module function test_lge_D1_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
322 : #endif
323 : #if IK1_ENABLED
324 : module function test_lge_D1_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
325 : #endif
326 :
327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
328 :
329 : #if LK5_ENABLED
330 : module function test_lge_D1_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
331 : #endif
332 : #if LK4_ENABLED
333 : module function test_lge_D1_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
334 : #endif
335 : #if LK3_ENABLED
336 : module function test_lge_D1_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
337 : #endif
338 : #if LK2_ENABLED
339 : module function test_lge_D1_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
340 : #endif
341 : #if LK1_ENABLED
342 : module function test_lge_D1_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
343 : #endif
344 :
345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
346 :
347 : #if CK5_ENABLED
348 : module function test_lge_D1_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
349 : #endif
350 : #if CK4_ENABLED
351 : module function test_lge_D1_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
352 : #endif
353 : #if CK3_ENABLED
354 : module function test_lge_D1_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
355 : #endif
356 : #if CK2_ENABLED
357 : module function test_lge_D1_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
358 : #endif
359 : #if CK1_ENABLED
360 : module function test_lge_D1_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
361 : #endif
362 :
363 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
364 :
365 : #if RK5_ENABLED
366 : module function test_lge_D1_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
367 : #endif
368 : #if RK4_ENABLED
369 : module function test_lge_D1_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
370 : #endif
371 : #if RK3_ENABLED
372 : module function test_lge_D1_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
373 : #endif
374 : #if RK2_ENABLED
375 : module function test_lge_D1_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
376 : #endif
377 : #if RK1_ENABLED
378 : module function test_lge_D1_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
379 : #endif
380 :
381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
382 :
383 : end interface
384 :
385 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
386 :
387 : interface
388 :
389 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390 :
391 : #if SK5_ENABLED
392 : module function test_lgt_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
393 : #endif
394 : #if SK4_ENABLED
395 : module function test_lgt_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
396 : #endif
397 : #if SK3_ENABLED
398 : module function test_lgt_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
399 : #endif
400 : #if SK2_ENABLED
401 : module function test_lgt_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
402 : #endif
403 : #if SK1_ENABLED
404 : module function test_lgt_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
405 : #endif
406 :
407 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
408 :
409 : #if SK5_ENABLED
410 : module function test_lgt_D1_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
411 : #endif
412 : #if SK4_ENABLED
413 : module function test_lgt_D1_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
414 : #endif
415 : #if SK3_ENABLED
416 : module function test_lgt_D1_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
417 : #endif
418 : #if SK2_ENABLED
419 : module function test_lgt_D1_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
420 : #endif
421 : #if SK1_ENABLED
422 : module function test_lgt_D1_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
423 : #endif
424 :
425 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
426 :
427 : #if IK5_ENABLED
428 : module function test_lgt_D1_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
429 : #endif
430 : #if IK4_ENABLED
431 : module function test_lgt_D1_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
432 : #endif
433 : #if IK3_ENABLED
434 : module function test_lgt_D1_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
435 : #endif
436 : #if IK2_ENABLED
437 : module function test_lgt_D1_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
438 : #endif
439 : #if IK1_ENABLED
440 : module function test_lgt_D1_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
441 : #endif
442 :
443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
444 :
445 : #if LK5_ENABLED
446 : module function test_lgt_D1_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
447 : #endif
448 : #if LK4_ENABLED
449 : module function test_lgt_D1_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
450 : #endif
451 : #if LK3_ENABLED
452 : module function test_lgt_D1_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
453 : #endif
454 : #if LK2_ENABLED
455 : module function test_lgt_D1_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
456 : #endif
457 : #if LK1_ENABLED
458 : module function test_lgt_D1_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
459 : #endif
460 :
461 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
462 :
463 : #if CK5_ENABLED
464 : module function test_lgt_D1_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
465 : #endif
466 : #if CK4_ENABLED
467 : module function test_lgt_D1_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
468 : #endif
469 : #if CK3_ENABLED
470 : module function test_lgt_D1_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
471 : #endif
472 : #if CK2_ENABLED
473 : module function test_lgt_D1_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
474 : #endif
475 : #if CK1_ENABLED
476 : module function test_lgt_D1_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
477 : #endif
478 :
479 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
480 :
481 : #if RK5_ENABLED
482 : module function test_lgt_D1_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
483 : #endif
484 : #if RK4_ENABLED
485 : module function test_lgt_D1_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
486 : #endif
487 : #if RK3_ENABLED
488 : module function test_lgt_D1_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
489 : #endif
490 : #if RK2_ENABLED
491 : module function test_lgt_D1_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
492 : #endif
493 : #if RK1_ENABLED
494 : module function test_lgt_D1_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
495 : #endif
496 :
497 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
498 :
499 : end interface
500 :
501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
502 :
503 : contains
504 :
505 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
506 :
507 1 : subroutine setTest()
508 :
509 : implicit none
510 1 : test = test_type(MODULE_NAME)
511 :
512 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515 :
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 :
518 : #if SK5_ENABLED
519 : call test%run(test_llt_D0_D0_SK5_1, SK_"test_llt_D0_D0_SK5_1")
520 : #endif
521 : #if SK4_ENABLED
522 : call test%run(test_llt_D0_D0_SK4_1, SK_"test_llt_D0_D0_SK4_1")
523 : #endif
524 : #if SK3_ENABLED
525 : call test%run(test_llt_D0_D0_SK3_1, SK_"test_llt_D0_D0_SK3_1")
526 : #endif
527 : #if SK2_ENABLED
528 : call test%run(test_llt_D0_D0_SK2_1, SK_"test_llt_D0_D0_SK2_1")
529 : #endif
530 : #if SK1_ENABLED
531 1 : call test%run(test_llt_D0_D0_SK1_1, SK_"test_llt_D0_D0_SK1_1")
532 : #endif
533 :
534 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
535 :
536 : #if SK5_ENABLED
537 : call test%run(test_llt_D1_D1_SK5_1, SK_"test_llt_D1_D1_SK5_1")
538 : #endif
539 : #if SK4_ENABLED
540 : call test%run(test_llt_D1_D1_SK4_1, SK_"test_llt_D1_D1_SK4_1")
541 : #endif
542 : #if SK3_ENABLED
543 : call test%run(test_llt_D1_D1_SK3_1, SK_"test_llt_D1_D1_SK3_1")
544 : #endif
545 : #if SK2_ENABLED
546 : call test%run(test_llt_D1_D1_SK2_1, SK_"test_llt_D1_D1_SK2_1")
547 : #endif
548 : #if SK1_ENABLED
549 1 : call test%run(test_llt_D1_D1_SK1_1, SK_"test_llt_D1_D1_SK1_1")
550 : #endif
551 :
552 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
553 :
554 : #if IK5_ENABLED
555 1 : call test%run(test_llt_D1_D1_IK5_1, SK_"test_llt_D1_D1_IK5_1")
556 : #endif
557 : #if IK4_ENABLED
558 1 : call test%run(test_llt_D1_D1_IK4_1, SK_"test_llt_D1_D1_IK4_1")
559 : #endif
560 : #if IK3_ENABLED
561 1 : call test%run(test_llt_D1_D1_IK3_1, SK_"test_llt_D1_D1_IK3_1")
562 : #endif
563 : #if IK2_ENABLED
564 1 : call test%run(test_llt_D1_D1_IK2_1, SK_"test_llt_D1_D1_IK2_1")
565 : #endif
566 : #if IK1_ENABLED
567 1 : call test%run(test_llt_D1_D1_IK1_1, SK_"test_llt_D1_D1_IK1_1")
568 : #endif
569 :
570 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
571 :
572 : #if LK5_ENABLED
573 1 : call test%run(test_llt_D1_D1_LK5_1, SK_"test_llt_D1_D1_LK5_1")
574 : #endif
575 : #if LK4_ENABLED
576 1 : call test%run(test_llt_D1_D1_LK4_1, SK_"test_llt_D1_D1_LK4_1")
577 : #endif
578 : #if LK3_ENABLED
579 1 : call test%run(test_llt_D1_D1_LK3_1, SK_"test_llt_D1_D1_LK3_1")
580 : #endif
581 : #if LK2_ENABLED
582 1 : call test%run(test_llt_D1_D1_LK2_1, SK_"test_llt_D1_D1_LK2_1")
583 : #endif
584 : #if LK1_ENABLED
585 1 : call test%run(test_llt_D1_D1_LK1_1, SK_"test_llt_D1_D1_LK1_1")
586 : #endif
587 :
588 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
589 :
590 : #if CK5_ENABLED
591 : call test%run(test_llt_D1_D1_CK5_1, SK_"test_llt_D1_D1_CK5_1")
592 : #endif
593 : #if CK4_ENABLED
594 1 : call test%run(test_llt_D1_D1_CK4_1, SK_"test_llt_D1_D1_CK4_1")
595 : #endif
596 : #if CK3_ENABLED
597 1 : call test%run(test_llt_D1_D1_CK3_1, SK_"test_llt_D1_D1_CK3_1")
598 : #endif
599 : #if CK2_ENABLED
600 1 : call test%run(test_llt_D1_D1_CK2_1, SK_"test_llt_D1_D1_CK2_1")
601 : #endif
602 : #if CK1_ENABLED
603 1 : call test%run(test_llt_D1_D1_CK1_1, SK_"test_llt_D1_D1_CK1_1")
604 : #endif
605 :
606 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
607 :
608 : #if RK5_ENABLED
609 : call test%run(test_llt_D1_D1_RK5_1, SK_"test_llt_D1_D1_RK5_1")
610 : #endif
611 : #if RK4_ENABLED
612 1 : call test%run(test_llt_D1_D1_RK4_1, SK_"test_llt_D1_D1_RK4_1")
613 : #endif
614 : #if RK3_ENABLED
615 1 : call test%run(test_llt_D1_D1_RK3_1, SK_"test_llt_D1_D1_RK3_1")
616 : #endif
617 : #if RK2_ENABLED
618 1 : call test%run(test_llt_D1_D1_RK2_1, SK_"test_llt_D1_D1_RK2_1")
619 : #endif
620 : #if RK1_ENABLED
621 1 : call test%run(test_llt_D1_D1_RK1_1, SK_"test_llt_D1_D1_RK1_1")
622 : #endif
623 :
624 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
625 :
626 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 :
630 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
631 :
632 : #if SK5_ENABLED
633 : call test%run(test_lle_D0_D0_SK5_1, SK_"test_lle_D0_D0_SK5_1")
634 : #endif
635 : #if SK4_ENABLED
636 : call test%run(test_lle_D0_D0_SK4_1, SK_"test_lle_D0_D0_SK4_1")
637 : #endif
638 : #if SK3_ENABLED
639 : call test%run(test_lle_D0_D0_SK3_1, SK_"test_lle_D0_D0_SK3_1")
640 : #endif
641 : #if SK2_ENABLED
642 : call test%run(test_lle_D0_D0_SK2_1, SK_"test_lle_D0_D0_SK2_1")
643 : #endif
644 : #if SK1_ENABLED
645 1 : call test%run(test_lle_D0_D0_SK1_1, SK_"test_lle_D0_D0_SK1_1")
646 : #endif
647 :
648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
649 :
650 : #if SK5_ENABLED
651 : call test%run(test_lle_D1_D1_SK5_1, SK_"test_lle_D1_D1_SK5_1")
652 : #endif
653 : #if SK4_ENABLED
654 : call test%run(test_lle_D1_D1_SK4_1, SK_"test_lle_D1_D1_SK4_1")
655 : #endif
656 : #if SK3_ENABLED
657 : call test%run(test_lle_D1_D1_SK3_1, SK_"test_lle_D1_D1_SK3_1")
658 : #endif
659 : #if SK2_ENABLED
660 : call test%run(test_lle_D1_D1_SK2_1, SK_"test_lle_D1_D1_SK2_1")
661 : #endif
662 : #if SK1_ENABLED
663 1 : call test%run(test_lle_D1_D1_SK1_1, SK_"test_lle_D1_D1_SK1_1")
664 : #endif
665 :
666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667 :
668 : #if IK5_ENABLED
669 1 : call test%run(test_lle_D1_D1_IK5_1, SK_"test_lle_D1_D1_IK5_1")
670 : #endif
671 : #if IK4_ENABLED
672 1 : call test%run(test_lle_D1_D1_IK4_1, SK_"test_lle_D1_D1_IK4_1")
673 : #endif
674 : #if IK3_ENABLED
675 1 : call test%run(test_lle_D1_D1_IK3_1, SK_"test_lle_D1_D1_IK3_1")
676 : #endif
677 : #if IK2_ENABLED
678 1 : call test%run(test_lle_D1_D1_IK2_1, SK_"test_lle_D1_D1_IK2_1")
679 : #endif
680 : #if IK1_ENABLED
681 1 : call test%run(test_lle_D1_D1_IK1_1, SK_"test_lle_D1_D1_IK1_1")
682 : #endif
683 :
684 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
685 :
686 : #if LK5_ENABLED
687 1 : call test%run(test_lle_D1_D1_LK5_1, SK_"test_lle_D1_D1_LK5_1")
688 : #endif
689 : #if LK4_ENABLED
690 1 : call test%run(test_lle_D1_D1_LK4_1, SK_"test_lle_D1_D1_LK4_1")
691 : #endif
692 : #if LK3_ENABLED
693 1 : call test%run(test_lle_D1_D1_LK3_1, SK_"test_lle_D1_D1_LK3_1")
694 : #endif
695 : #if LK2_ENABLED
696 1 : call test%run(test_lle_D1_D1_LK2_1, SK_"test_lle_D1_D1_LK2_1")
697 : #endif
698 : #if LK1_ENABLED
699 1 : call test%run(test_lle_D1_D1_LK1_1, SK_"test_lle_D1_D1_LK1_1")
700 : #endif
701 :
702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
703 :
704 : #if CK5_ENABLED
705 : call test%run(test_lle_D1_D1_CK5_1, SK_"test_lle_D1_D1_CK5_1")
706 : #endif
707 : #if CK4_ENABLED
708 1 : call test%run(test_lle_D1_D1_CK4_1, SK_"test_lle_D1_D1_CK4_1")
709 : #endif
710 : #if CK3_ENABLED
711 1 : call test%run(test_lle_D1_D1_CK3_1, SK_"test_lle_D1_D1_CK3_1")
712 : #endif
713 : #if CK2_ENABLED
714 1 : call test%run(test_lle_D1_D1_CK2_1, SK_"test_lle_D1_D1_CK2_1")
715 : #endif
716 : #if CK1_ENABLED
717 1 : call test%run(test_lle_D1_D1_CK1_1, SK_"test_lle_D1_D1_CK1_1")
718 : #endif
719 :
720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721 :
722 : #if RK5_ENABLED
723 : call test%run(test_lle_D1_D1_RK5_1, SK_"test_lle_D1_D1_RK5_1")
724 : #endif
725 : #if RK4_ENABLED
726 1 : call test%run(test_lle_D1_D1_RK4_1, SK_"test_lle_D1_D1_RK4_1")
727 : #endif
728 : #if RK3_ENABLED
729 1 : call test%run(test_lle_D1_D1_RK3_1, SK_"test_lle_D1_D1_RK3_1")
730 : #endif
731 : #if RK2_ENABLED
732 1 : call test%run(test_lle_D1_D1_RK2_1, SK_"test_lle_D1_D1_RK2_1")
733 : #endif
734 : #if RK1_ENABLED
735 1 : call test%run(test_lle_D1_D1_RK1_1, SK_"test_lle_D1_D1_RK1_1")
736 : #endif
737 :
738 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
739 :
740 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 :
744 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
745 :
746 : #if SK5_ENABLED
747 : call test%run(test_lge_D0_D0_SK5_1, SK_"test_lge_D0_D0_SK5_1")
748 : #endif
749 : #if SK4_ENABLED
750 : call test%run(test_lge_D0_D0_SK4_1, SK_"test_lge_D0_D0_SK4_1")
751 : #endif
752 : #if SK3_ENABLED
753 : call test%run(test_lge_D0_D0_SK3_1, SK_"test_lge_D0_D0_SK3_1")
754 : #endif
755 : #if SK2_ENABLED
756 : call test%run(test_lge_D0_D0_SK2_1, SK_"test_lge_D0_D0_SK2_1")
757 : #endif
758 : #if SK1_ENABLED
759 1 : call test%run(test_lge_D0_D0_SK1_1, SK_"test_lge_D0_D0_SK1_1")
760 : #endif
761 :
762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
763 :
764 : #if SK5_ENABLED
765 : call test%run(test_lge_D1_D1_SK5_1, SK_"test_lge_D1_D1_SK5_1")
766 : #endif
767 : #if SK4_ENABLED
768 : call test%run(test_lge_D1_D1_SK4_1, SK_"test_lge_D1_D1_SK4_1")
769 : #endif
770 : #if SK3_ENABLED
771 : call test%run(test_lge_D1_D1_SK3_1, SK_"test_lge_D1_D1_SK3_1")
772 : #endif
773 : #if SK2_ENABLED
774 : call test%run(test_lge_D1_D1_SK2_1, SK_"test_lge_D1_D1_SK2_1")
775 : #endif
776 : #if SK1_ENABLED
777 1 : call test%run(test_lge_D1_D1_SK1_1, SK_"test_lge_D1_D1_SK1_1")
778 : #endif
779 :
780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781 :
782 : #if IK5_ENABLED
783 1 : call test%run(test_lge_D1_D1_IK5_1, SK_"test_lge_D1_D1_IK5_1")
784 : #endif
785 : #if IK4_ENABLED
786 1 : call test%run(test_lge_D1_D1_IK4_1, SK_"test_lge_D1_D1_IK4_1")
787 : #endif
788 : #if IK3_ENABLED
789 1 : call test%run(test_lge_D1_D1_IK3_1, SK_"test_lge_D1_D1_IK3_1")
790 : #endif
791 : #if IK2_ENABLED
792 1 : call test%run(test_lge_D1_D1_IK2_1, SK_"test_lge_D1_D1_IK2_1")
793 : #endif
794 : #if IK1_ENABLED
795 1 : call test%run(test_lge_D1_D1_IK1_1, SK_"test_lge_D1_D1_IK1_1")
796 : #endif
797 :
798 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
799 :
800 : #if LK5_ENABLED
801 1 : call test%run(test_lge_D1_D1_LK5_1, SK_"test_lge_D1_D1_LK5_1")
802 : #endif
803 : #if LK4_ENABLED
804 1 : call test%run(test_lge_D1_D1_LK4_1, SK_"test_lge_D1_D1_LK4_1")
805 : #endif
806 : #if LK3_ENABLED
807 1 : call test%run(test_lge_D1_D1_LK3_1, SK_"test_lge_D1_D1_LK3_1")
808 : #endif
809 : #if LK2_ENABLED
810 1 : call test%run(test_lge_D1_D1_LK2_1, SK_"test_lge_D1_D1_LK2_1")
811 : #endif
812 : #if LK1_ENABLED
813 1 : call test%run(test_lge_D1_D1_LK1_1, SK_"test_lge_D1_D1_LK1_1")
814 : #endif
815 :
816 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
817 :
818 : #if CK5_ENABLED
819 : call test%run(test_lge_D1_D1_CK5_1, SK_"test_lge_D1_D1_CK5_1")
820 : #endif
821 : #if CK4_ENABLED
822 1 : call test%run(test_lge_D1_D1_CK4_1, SK_"test_lge_D1_D1_CK4_1")
823 : #endif
824 : #if CK3_ENABLED
825 1 : call test%run(test_lge_D1_D1_CK3_1, SK_"test_lge_D1_D1_CK3_1")
826 : #endif
827 : #if CK2_ENABLED
828 1 : call test%run(test_lge_D1_D1_CK2_1, SK_"test_lge_D1_D1_CK2_1")
829 : #endif
830 : #if CK1_ENABLED
831 1 : call test%run(test_lge_D1_D1_CK1_1, SK_"test_lge_D1_D1_CK1_1")
832 : #endif
833 :
834 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
835 :
836 : #if RK5_ENABLED
837 : call test%run(test_lge_D1_D1_RK5_1, SK_"test_lge_D1_D1_RK5_1")
838 : #endif
839 : #if RK4_ENABLED
840 1 : call test%run(test_lge_D1_D1_RK4_1, SK_"test_lge_D1_D1_RK4_1")
841 : #endif
842 : #if RK3_ENABLED
843 1 : call test%run(test_lge_D1_D1_RK3_1, SK_"test_lge_D1_D1_RK3_1")
844 : #endif
845 : #if RK2_ENABLED
846 1 : call test%run(test_lge_D1_D1_RK2_1, SK_"test_lge_D1_D1_RK2_1")
847 : #endif
848 : #if RK1_ENABLED
849 1 : call test%run(test_lge_D1_D1_RK1_1, SK_"test_lge_D1_D1_RK1_1")
850 : #endif
851 :
852 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
853 :
854 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
855 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
856 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
857 :
858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
859 :
860 : #if SK5_ENABLED
861 : call test%run(test_lgt_D0_D0_SK5_1, SK_"test_lgt_D0_D0_SK5_1")
862 : #endif
863 : #if SK4_ENABLED
864 : call test%run(test_lgt_D0_D0_SK4_1, SK_"test_lgt_D0_D0_SK4_1")
865 : #endif
866 : #if SK3_ENABLED
867 : call test%run(test_lgt_D0_D0_SK3_1, SK_"test_lgt_D0_D0_SK3_1")
868 : #endif
869 : #if SK2_ENABLED
870 : call test%run(test_lgt_D0_D0_SK2_1, SK_"test_lgt_D0_D0_SK2_1")
871 : #endif
872 : #if SK1_ENABLED
873 1 : call test%run(test_lgt_D0_D0_SK1_1, SK_"test_lgt_D0_D0_SK1_1")
874 : #endif
875 :
876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
877 :
878 : #if SK5_ENABLED
879 : call test%run(test_lgt_D1_D1_SK5_1, SK_"test_lgt_D1_D1_SK5_1")
880 : #endif
881 : #if SK4_ENABLED
882 : call test%run(test_lgt_D1_D1_SK4_1, SK_"test_lgt_D1_D1_SK4_1")
883 : #endif
884 : #if SK3_ENABLED
885 : call test%run(test_lgt_D1_D1_SK3_1, SK_"test_lgt_D1_D1_SK3_1")
886 : #endif
887 : #if SK2_ENABLED
888 : call test%run(test_lgt_D1_D1_SK2_1, SK_"test_lgt_D1_D1_SK2_1")
889 : #endif
890 : #if SK1_ENABLED
891 1 : call test%run(test_lgt_D1_D1_SK1_1, SK_"test_lgt_D1_D1_SK1_1")
892 : #endif
893 :
894 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
895 :
896 : #if IK5_ENABLED
897 1 : call test%run(test_lgt_D1_D1_IK5_1, SK_"test_lgt_D1_D1_IK5_1")
898 : #endif
899 : #if IK4_ENABLED
900 1 : call test%run(test_lgt_D1_D1_IK4_1, SK_"test_lgt_D1_D1_IK4_1")
901 : #endif
902 : #if IK3_ENABLED
903 1 : call test%run(test_lgt_D1_D1_IK3_1, SK_"test_lgt_D1_D1_IK3_1")
904 : #endif
905 : #if IK2_ENABLED
906 1 : call test%run(test_lgt_D1_D1_IK2_1, SK_"test_lgt_D1_D1_IK2_1")
907 : #endif
908 : #if IK1_ENABLED
909 1 : call test%run(test_lgt_D1_D1_IK1_1, SK_"test_lgt_D1_D1_IK1_1")
910 : #endif
911 :
912 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
913 :
914 : #if LK5_ENABLED
915 1 : call test%run(test_lgt_D1_D1_LK5_1, SK_"test_lgt_D1_D1_LK5_1")
916 : #endif
917 : #if LK4_ENABLED
918 1 : call test%run(test_lgt_D1_D1_LK4_1, SK_"test_lgt_D1_D1_LK4_1")
919 : #endif
920 : #if LK3_ENABLED
921 1 : call test%run(test_lgt_D1_D1_LK3_1, SK_"test_lgt_D1_D1_LK3_1")
922 : #endif
923 : #if LK2_ENABLED
924 1 : call test%run(test_lgt_D1_D1_LK2_1, SK_"test_lgt_D1_D1_LK2_1")
925 : #endif
926 : #if LK1_ENABLED
927 1 : call test%run(test_lgt_D1_D1_LK1_1, SK_"test_lgt_D1_D1_LK1_1")
928 : #endif
929 :
930 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
931 :
932 : #if CK5_ENABLED
933 : call test%run(test_lgt_D1_D1_CK5_1, SK_"test_lgt_D1_D1_CK5_1")
934 : #endif
935 : #if CK4_ENABLED
936 1 : call test%run(test_lgt_D1_D1_CK4_1, SK_"test_lgt_D1_D1_CK4_1")
937 : #endif
938 : #if CK3_ENABLED
939 1 : call test%run(test_lgt_D1_D1_CK3_1, SK_"test_lgt_D1_D1_CK3_1")
940 : #endif
941 : #if CK2_ENABLED
942 1 : call test%run(test_lgt_D1_D1_CK2_1, SK_"test_lgt_D1_D1_CK2_1")
943 : #endif
944 : #if CK1_ENABLED
945 1 : call test%run(test_lgt_D1_D1_CK1_1, SK_"test_lgt_D1_D1_CK1_1")
946 : #endif
947 :
948 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
949 :
950 : #if RK5_ENABLED
951 : call test%run(test_lgt_D1_D1_RK5_1, SK_"test_lgt_D1_D1_RK5_1")
952 : #endif
953 : #if RK4_ENABLED
954 1 : call test%run(test_lgt_D1_D1_RK4_1, SK_"test_lgt_D1_D1_RK4_1")
955 : #endif
956 : #if RK3_ENABLED
957 1 : call test%run(test_lgt_D1_D1_RK3_1, SK_"test_lgt_D1_D1_RK3_1")
958 : #endif
959 : #if RK2_ENABLED
960 1 : call test%run(test_lgt_D1_D1_RK2_1, SK_"test_lgt_D1_D1_RK2_1")
961 : #endif
962 : #if RK1_ENABLED
963 1 : call test%run(test_lgt_D1_D1_RK1_1, SK_"test_lgt_D1_D1_RK1_1")
964 : #endif
965 :
966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
967 :
968 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
969 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
971 :
972 1 : call test%summarize()
973 :
974 1 : end subroutine setTest
975 :
976 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
977 :
978 : end module test_pm_arrayCompareLex ! LCOV_EXCL_LINE
|
