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_except](@ref pm_except).
18 : !>
19 : !> \warning
20 : !> The tests of this module are bound to fail with non-IEEE-compliant processors or compiler optimization flags.
21 : !> For example, in `-fast-math` mode of gfortran, the regular tests of `NaN` value will fail.
22 : !>
23 : !> \fintest
24 : !>
25 : !> \author
26 : !> \AmirShahmoradi, Friday 1:54 AM, April 21, 2017, Institute for Computational Engineering and Sciences (ICES), The University of Texas, Austin, TX
27 :
28 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29 :
30 : module test_pm_except
31 :
32 : use pm_except
33 : use pm_err, only: err_type
34 : use pm_test, only: test_type, LK
35 : implicit none
36 :
37 : private
38 : public :: setTest
39 : type(test_type) :: test
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : interface
46 : #if CK5_ENABLED
47 : module function test_getInfPos_CK5_1() result(assertion); logical(LK) :: assertion; end function
48 : #endif
49 : #if CK4_ENABLED
50 : module function test_getInfPos_CK4_1() result(assertion); logical(LK) :: assertion; end function
51 : #endif
52 : #if CK3_ENABLED
53 : module function test_getInfPos_CK3_1() result(assertion); logical(LK) :: assertion; end function
54 : #endif
55 : #if CK2_ENABLED
56 : module function test_getInfPos_CK2_1() result(assertion); logical(LK) :: assertion; end function
57 : #endif
58 : #if CK1_ENABLED
59 : module function test_getInfPos_CK1_1() result(assertion); logical(LK) :: assertion; end function
60 : #endif
61 : end interface
62 :
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 :
65 : interface
66 : #if RK5_ENABLED
67 : module function test_getInfPos_RK5_1() result(assertion); logical(LK) :: assertion; end function
68 : #endif
69 : #if RK4_ENABLED
70 : module function test_getInfPos_RK4_1() result(assertion); logical(LK) :: assertion; end function
71 : #endif
72 : #if RK3_ENABLED
73 : module function test_getInfPos_RK3_1() result(assertion); logical(LK) :: assertion; end function
74 : #endif
75 : #if RK2_ENABLED
76 : module function test_getInfPos_RK2_1() result(assertion); logical(LK) :: assertion; end function
77 : #endif
78 : #if RK1_ENABLED
79 : module function test_getInfPos_RK1_1() result(assertion); logical(LK) :: assertion; end function
80 : #endif
81 : end interface
82 :
83 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
84 :
85 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
86 :
87 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
88 :
89 : interface
90 : #if CK5_ENABLED
91 : module function test_setInfPos_CK5_1() result(assertion); logical(LK) :: assertion; end function
92 : #endif
93 : #if CK4_ENABLED
94 : module function test_setInfPos_CK4_1() result(assertion); logical(LK) :: assertion; end function
95 : #endif
96 : #if CK3_ENABLED
97 : module function test_setInfPos_CK3_1() result(assertion); logical(LK) :: assertion; end function
98 : #endif
99 : #if CK2_ENABLED
100 : module function test_setInfPos_CK2_1() result(assertion); logical(LK) :: assertion; end function
101 : #endif
102 : #if CK1_ENABLED
103 : module function test_setInfPos_CK1_1() result(assertion); logical(LK) :: assertion; end function
104 : #endif
105 : end interface
106 :
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 :
109 : interface
110 : #if RK5_ENABLED
111 : module function test_setInfPos_RK5_1() result(assertion); logical(LK) :: assertion; end function
112 : #endif
113 : #if RK4_ENABLED
114 : module function test_setInfPos_RK4_1() result(assertion); logical(LK) :: assertion; end function
115 : #endif
116 : #if RK3_ENABLED
117 : module function test_setInfPos_RK3_1() result(assertion); logical(LK) :: assertion; end function
118 : #endif
119 : #if RK2_ENABLED
120 : module function test_setInfPos_RK2_1() result(assertion); logical(LK) :: assertion; end function
121 : #endif
122 : #if RK1_ENABLED
123 : module function test_setInfPos_RK1_1() result(assertion); logical(LK) :: assertion; end function
124 : #endif
125 : end interface
126 :
127 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
128 :
129 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
130 :
131 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
132 :
133 : interface
134 : #if CK5_ENABLED
135 : module function test_getInfNeg_CK5_1() result(assertion); logical(LK) :: assertion; end function
136 : #endif
137 : #if CK4_ENABLED
138 : module function test_getInfNeg_CK4_1() result(assertion); logical(LK) :: assertion; end function
139 : #endif
140 : #if CK3_ENABLED
141 : module function test_getInfNeg_CK3_1() result(assertion); logical(LK) :: assertion; end function
142 : #endif
143 : #if CK2_ENABLED
144 : module function test_getInfNeg_CK2_1() result(assertion); logical(LK) :: assertion; end function
145 : #endif
146 : #if CK1_ENABLED
147 : module function test_getInfNeg_CK1_1() result(assertion); logical(LK) :: assertion; end function
148 : #endif
149 : end interface
150 :
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 :
153 : interface
154 : #if RK5_ENABLED
155 : module function test_getInfNeg_RK5_1() result(assertion); logical(LK) :: assertion; end function
156 : #endif
157 : #if RK4_ENABLED
158 : module function test_getInfNeg_RK4_1() result(assertion); logical(LK) :: assertion; end function
159 : #endif
160 : #if RK3_ENABLED
161 : module function test_getInfNeg_RK3_1() result(assertion); logical(LK) :: assertion; end function
162 : #endif
163 : #if RK2_ENABLED
164 : module function test_getInfNeg_RK2_1() result(assertion); logical(LK) :: assertion; end function
165 : #endif
166 : #if RK1_ENABLED
167 : module function test_getInfNeg_RK1_1() result(assertion); logical(LK) :: assertion; end function
168 : #endif
169 : end interface
170 :
171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172 :
173 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
174 :
175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176 :
177 : interface
178 : #if CK5_ENABLED
179 : module function test_setInfNeg_CK5_1() result(assertion); logical(LK) :: assertion; end function
180 : #endif
181 : #if CK4_ENABLED
182 : module function test_setInfNeg_CK4_1() result(assertion); logical(LK) :: assertion; end function
183 : #endif
184 : #if CK3_ENABLED
185 : module function test_setInfNeg_CK3_1() result(assertion); logical(LK) :: assertion; end function
186 : #endif
187 : #if CK2_ENABLED
188 : module function test_setInfNeg_CK2_1() result(assertion); logical(LK) :: assertion; end function
189 : #endif
190 : #if CK1_ENABLED
191 : module function test_setInfNeg_CK1_1() result(assertion); logical(LK) :: assertion; end function
192 : #endif
193 : end interface
194 :
195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
196 :
197 : interface
198 : #if RK5_ENABLED
199 : module function test_setInfNeg_RK5_1() result(assertion); logical(LK) :: assertion; end function
200 : #endif
201 : #if RK4_ENABLED
202 : module function test_setInfNeg_RK4_1() result(assertion); logical(LK) :: assertion; end function
203 : #endif
204 : #if RK3_ENABLED
205 : module function test_setInfNeg_RK3_1() result(assertion); logical(LK) :: assertion; end function
206 : #endif
207 : #if RK2_ENABLED
208 : module function test_setInfNeg_RK2_1() result(assertion); logical(LK) :: assertion; end function
209 : #endif
210 : #if RK1_ENABLED
211 : module function test_setInfNeg_RK1_1() result(assertion); logical(LK) :: assertion; end function
212 : #endif
213 : end interface
214 :
215 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
216 :
217 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
218 :
219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
220 :
221 : interface
222 : #if CK5_ENABLED
223 : module function test_getNAN_CK5_1() result(assertion); logical(LK) :: assertion; end function
224 : #endif
225 : #if CK4_ENABLED
226 : module function test_getNAN_CK4_1() result(assertion); logical(LK) :: assertion; end function
227 : #endif
228 : #if CK3_ENABLED
229 : module function test_getNAN_CK3_1() result(assertion); logical(LK) :: assertion; end function
230 : #endif
231 : #if CK2_ENABLED
232 : module function test_getNAN_CK2_1() result(assertion); logical(LK) :: assertion; end function
233 : #endif
234 : #if CK1_ENABLED
235 : module function test_getNAN_CK1_1() result(assertion); logical(LK) :: assertion; end function
236 : #endif
237 : end interface
238 :
239 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240 :
241 : interface
242 : #if RK5_ENABLED
243 : module function test_getNAN_RK5_1() result(assertion); logical(LK) :: assertion; end function
244 : #endif
245 : #if RK4_ENABLED
246 : module function test_getNAN_RK4_1() result(assertion); logical(LK) :: assertion; end function
247 : #endif
248 : #if RK3_ENABLED
249 : module function test_getNAN_RK3_1() result(assertion); logical(LK) :: assertion; end function
250 : #endif
251 : #if RK2_ENABLED
252 : module function test_getNAN_RK2_1() result(assertion); logical(LK) :: assertion; end function
253 : #endif
254 : #if RK1_ENABLED
255 : module function test_getNAN_RK1_1() result(assertion); logical(LK) :: assertion; end function
256 : #endif
257 : end interface
258 :
259 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
260 :
261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
262 :
263 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264 :
265 : interface
266 : #if CK5_ENABLED
267 : module function test_setNAN_CK5_1() result(assertion); logical(LK) :: assertion; end function
268 : #endif
269 : #if CK4_ENABLED
270 : module function test_setNAN_CK4_1() result(assertion); logical(LK) :: assertion; end function
271 : #endif
272 : #if CK3_ENABLED
273 : module function test_setNAN_CK3_1() result(assertion); logical(LK) :: assertion; end function
274 : #endif
275 : #if CK2_ENABLED
276 : module function test_setNAN_CK2_1() result(assertion); logical(LK) :: assertion; end function
277 : #endif
278 : #if CK1_ENABLED
279 : module function test_setNAN_CK1_1() result(assertion); logical(LK) :: assertion; end function
280 : #endif
281 : end interface
282 :
283 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
284 :
285 : interface
286 : #if RK5_ENABLED
287 : module function test_setNAN_RK5_1() result(assertion); logical(LK) :: assertion; end function
288 : #endif
289 : #if RK4_ENABLED
290 : module function test_setNAN_RK4_1() result(assertion); logical(LK) :: assertion; end function
291 : #endif
292 : #if RK3_ENABLED
293 : module function test_setNAN_RK3_1() result(assertion); logical(LK) :: assertion; end function
294 : #endif
295 : #if RK2_ENABLED
296 : module function test_setNAN_RK2_1() result(assertion); logical(LK) :: assertion; end function
297 : #endif
298 : #if RK1_ENABLED
299 : module function test_setNAN_RK1_1() result(assertion); logical(LK) :: assertion; end function
300 : #endif
301 : end interface
302 :
303 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304 :
305 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
306 :
307 : contains
308 :
309 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310 :
311 1 : subroutine setTest()
312 :
313 : implicit none
314 1 : test = test_type(MODULE_NAME)
315 :
316 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 :
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 : #if CK5_ENABLED
321 : call test%run(test_getInfPos_CK5_1, SK_"test_getInfPos_CK5_1")
322 : #endif
323 : #if CK4_ENABLED
324 1 : call test%run(test_getInfPos_CK4_1, SK_"test_getInfPos_CK4_1")
325 : #endif
326 : #if CK3_ENABLED
327 1 : call test%run(test_getInfPos_CK3_1, SK_"test_getInfPos_CK3_1")
328 : #endif
329 : #if CK2_ENABLED
330 1 : call test%run(test_getInfPos_CK2_1, SK_"test_getInfPos_CK2_1")
331 : #endif
332 : #if CK1_ENABLED
333 1 : call test%run(test_getInfPos_CK1_1, SK_"test_getInfPos_CK1_1")
334 : #endif
335 :
336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337 :
338 : #if RK5_ENABLED
339 : call test%run(test_getInfPos_RK5_1, SK_"test_getInfPos_RK5_1")
340 : #endif
341 : #if RK4_ENABLED
342 1 : call test%run(test_getInfPos_RK4_1, SK_"test_getInfPos_RK4_1")
343 : #endif
344 : #if RK3_ENABLED
345 1 : call test%run(test_getInfPos_RK3_1, SK_"test_getInfPos_RK3_1")
346 : #endif
347 : #if RK2_ENABLED
348 1 : call test%run(test_getInfPos_RK2_1, SK_"test_getInfPos_RK2_1")
349 : #endif
350 : #if RK1_ENABLED
351 1 : call test%run(test_getInfPos_RK1_1, SK_"test_getInfPos_RK1_1")
352 : #endif
353 :
354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
355 :
356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
357 :
358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
359 :
360 : #if CK5_ENABLED
361 : call test%run(test_setInfPos_CK5_1, SK_"test_setInfPos_CK5_1")
362 : #endif
363 : #if CK4_ENABLED
364 1 : call test%run(test_setInfPos_CK4_1, SK_"test_setInfPos_CK4_1")
365 : #endif
366 : #if CK3_ENABLED
367 1 : call test%run(test_setInfPos_CK3_1, SK_"test_setInfPos_CK3_1")
368 : #endif
369 : #if CK2_ENABLED
370 1 : call test%run(test_setInfPos_CK2_1, SK_"test_setInfPos_CK2_1")
371 : #endif
372 : #if CK1_ENABLED
373 1 : call test%run(test_setInfPos_CK1_1, SK_"test_setInfPos_CK1_1")
374 : #endif
375 :
376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
377 :
378 : #if RK5_ENABLED
379 : call test%run(test_setInfPos_RK5_1, SK_"test_setInfPos_RK5_1")
380 : #endif
381 : #if RK4_ENABLED
382 1 : call test%run(test_setInfPos_RK4_1, SK_"test_setInfPos_RK4_1")
383 : #endif
384 : #if RK3_ENABLED
385 1 : call test%run(test_setInfPos_RK3_1, SK_"test_setInfPos_RK3_1")
386 : #endif
387 : #if RK2_ENABLED
388 1 : call test%run(test_setInfPos_RK2_1, SK_"test_setInfPos_RK2_1")
389 : #endif
390 : #if RK1_ENABLED
391 1 : call test%run(test_setInfPos_RK1_1, SK_"test_setInfPos_RK1_1")
392 : #endif
393 :
394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395 :
396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397 :
398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399 :
400 : #if CK5_ENABLED
401 : call test%run(test_getInfNeg_CK5_1, SK_"test_getInfNeg_CK5_1")
402 : #endif
403 : #if CK4_ENABLED
404 1 : call test%run(test_getInfNeg_CK4_1, SK_"test_getInfNeg_CK4_1")
405 : #endif
406 : #if CK3_ENABLED
407 1 : call test%run(test_getInfNeg_CK3_1, SK_"test_getInfNeg_CK3_1")
408 : #endif
409 : #if CK2_ENABLED
410 1 : call test%run(test_getInfNeg_CK2_1, SK_"test_getInfNeg_CK2_1")
411 : #endif
412 : #if CK1_ENABLED
413 1 : call test%run(test_getInfNeg_CK1_1, SK_"test_getInfNeg_CK1_1")
414 : #endif
415 :
416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417 :
418 : #if RK5_ENABLED
419 : call test%run(test_getInfNeg_RK5_1, SK_"test_getInfNeg_RK5_1")
420 : #endif
421 : #if RK4_ENABLED
422 1 : call test%run(test_getInfNeg_RK4_1, SK_"test_getInfNeg_RK4_1")
423 : #endif
424 : #if RK3_ENABLED
425 1 : call test%run(test_getInfNeg_RK3_1, SK_"test_getInfNeg_RK3_1")
426 : #endif
427 : #if RK2_ENABLED
428 1 : call test%run(test_getInfNeg_RK2_1, SK_"test_getInfNeg_RK2_1")
429 : #endif
430 : #if RK1_ENABLED
431 1 : call test%run(test_getInfNeg_RK1_1, SK_"test_getInfNeg_RK1_1")
432 : #endif
433 :
434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
435 :
436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
437 :
438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 :
440 : #if CK5_ENABLED
441 : call test%run(test_setInfNeg_CK5_1, SK_"test_setInfNeg_CK5_1")
442 : #endif
443 : #if CK4_ENABLED
444 1 : call test%run(test_setInfNeg_CK4_1, SK_"test_setInfNeg_CK4_1")
445 : #endif
446 : #if CK3_ENABLED
447 1 : call test%run(test_setInfNeg_CK3_1, SK_"test_setInfNeg_CK3_1")
448 : #endif
449 : #if CK2_ENABLED
450 1 : call test%run(test_setInfNeg_CK2_1, SK_"test_setInfNeg_CK2_1")
451 : #endif
452 : #if CK1_ENABLED
453 1 : call test%run(test_setInfNeg_CK1_1, SK_"test_setInfNeg_CK1_1")
454 : #endif
455 :
456 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
457 :
458 : #if RK5_ENABLED
459 : call test%run(test_setInfNeg_RK5_1, SK_"test_setInfNeg_RK5_1")
460 : #endif
461 : #if RK4_ENABLED
462 1 : call test%run(test_setInfNeg_RK4_1, SK_"test_setInfNeg_RK4_1")
463 : #endif
464 : #if RK3_ENABLED
465 1 : call test%run(test_setInfNeg_RK3_1, SK_"test_setInfNeg_RK3_1")
466 : #endif
467 : #if RK2_ENABLED
468 1 : call test%run(test_setInfNeg_RK2_1, SK_"test_setInfNeg_RK2_1")
469 : #endif
470 : #if RK1_ENABLED
471 1 : call test%run(test_setInfNeg_RK1_1, SK_"test_setInfNeg_RK1_1")
472 : #endif
473 :
474 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
475 :
476 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
477 :
478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
479 :
480 : #if CK5_ENABLED
481 : call test%run(test_getNAN_CK5_1, SK_"test_getNAN_CK5_1")
482 : #endif
483 : #if CK4_ENABLED
484 1 : call test%run(test_getNAN_CK4_1, SK_"test_getNAN_CK4_1")
485 : #endif
486 : #if CK3_ENABLED
487 1 : call test%run(test_getNAN_CK3_1, SK_"test_getNAN_CK3_1")
488 : #endif
489 : #if CK2_ENABLED
490 1 : call test%run(test_getNAN_CK2_1, SK_"test_getNAN_CK2_1")
491 : #endif
492 : #if CK1_ENABLED
493 1 : call test%run(test_getNAN_CK1_1, SK_"test_getNAN_CK1_1")
494 : #endif
495 :
496 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
497 :
498 : #if RK5_ENABLED
499 : call test%run(test_getNAN_RK5_1, SK_"test_getNAN_RK5_1")
500 : #endif
501 : #if RK4_ENABLED
502 1 : call test%run(test_getNAN_RK4_1, SK_"test_getNAN_RK4_1")
503 : #endif
504 : #if RK3_ENABLED
505 1 : call test%run(test_getNAN_RK3_1, SK_"test_getNAN_RK3_1")
506 : #endif
507 : #if RK2_ENABLED
508 1 : call test%run(test_getNAN_RK2_1, SK_"test_getNAN_RK2_1")
509 : #endif
510 : #if RK1_ENABLED
511 1 : call test%run(test_getNAN_RK1_1, SK_"test_getNAN_RK1_1")
512 : #endif
513 :
514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
515 :
516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
517 :
518 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
519 :
520 : #if CK5_ENABLED
521 : call test%run(test_setNAN_CK5_1, SK_"test_setNAN_CK5_1")
522 : #endif
523 : #if CK4_ENABLED
524 1 : call test%run(test_setNAN_CK4_1, SK_"test_setNAN_CK4_1")
525 : #endif
526 : #if CK3_ENABLED
527 1 : call test%run(test_setNAN_CK3_1, SK_"test_setNAN_CK3_1")
528 : #endif
529 : #if CK2_ENABLED
530 1 : call test%run(test_setNAN_CK2_1, SK_"test_setNAN_CK2_1")
531 : #endif
532 : #if CK1_ENABLED
533 1 : call test%run(test_setNAN_CK1_1, SK_"test_setNAN_CK1_1")
534 : #endif
535 :
536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
537 :
538 : #if RK5_ENABLED
539 : call test%run(test_setNAN_RK5_1, SK_"test_setNAN_RK5_1")
540 : #endif
541 : #if RK4_ENABLED
542 1 : call test%run(test_setNAN_RK4_1, SK_"test_setNAN_RK4_1")
543 : #endif
544 : #if RK3_ENABLED
545 1 : call test%run(test_setNAN_RK3_1, SK_"test_setNAN_RK3_1")
546 : #endif
547 : #if RK2_ENABLED
548 1 : call test%run(test_setNAN_RK2_1, SK_"test_setNAN_RK2_1")
549 : #endif
550 : #if RK1_ENABLED
551 1 : call test%run(test_setNAN_RK1_1, SK_"test_setNAN_RK1_1")
552 : #endif
553 :
554 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555 :
556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557 :
558 1 : call test%summarize()
559 :
560 1 : end subroutine setTest
561 :
562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563 :
564 : end module test_pm_except ! LCOV_EXCL_LINE
|
