ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_except.F90
Go to the documentation of this file.
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
27
28!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29
30module 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
307contains
308
309!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
310
311 subroutine setTest()
312
313 implicit none
314 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 call test%run(test_getInfPos_CK4_1, SK_"test_getInfPos_CK4_1")
325#endif
326#if CK3_ENABLED
327 call test%run(test_getInfPos_CK3_1, SK_"test_getInfPos_CK3_1")
328#endif
329#if CK2_ENABLED
330 call test%run(test_getInfPos_CK2_1, SK_"test_getInfPos_CK2_1")
331#endif
332#if CK1_ENABLED
333 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 call test%run(test_getInfPos_RK4_1, SK_"test_getInfPos_RK4_1")
343#endif
344#if RK3_ENABLED
345 call test%run(test_getInfPos_RK3_1, SK_"test_getInfPos_RK3_1")
346#endif
347#if RK2_ENABLED
348 call test%run(test_getInfPos_RK2_1, SK_"test_getInfPos_RK2_1")
349#endif
350#if RK1_ENABLED
351 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 call test%run(test_setInfPos_CK4_1, SK_"test_setInfPos_CK4_1")
365#endif
366#if CK3_ENABLED
367 call test%run(test_setInfPos_CK3_1, SK_"test_setInfPos_CK3_1")
368#endif
369#if CK2_ENABLED
370 call test%run(test_setInfPos_CK2_1, SK_"test_setInfPos_CK2_1")
371#endif
372#if CK1_ENABLED
373 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 call test%run(test_setInfPos_RK4_1, SK_"test_setInfPos_RK4_1")
383#endif
384#if RK3_ENABLED
385 call test%run(test_setInfPos_RK3_1, SK_"test_setInfPos_RK3_1")
386#endif
387#if RK2_ENABLED
388 call test%run(test_setInfPos_RK2_1, SK_"test_setInfPos_RK2_1")
389#endif
390#if RK1_ENABLED
391 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 call test%run(test_getInfNeg_CK4_1, SK_"test_getInfNeg_CK4_1")
405#endif
406#if CK3_ENABLED
407 call test%run(test_getInfNeg_CK3_1, SK_"test_getInfNeg_CK3_1")
408#endif
409#if CK2_ENABLED
410 call test%run(test_getInfNeg_CK2_1, SK_"test_getInfNeg_CK2_1")
411#endif
412#if CK1_ENABLED
413 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 call test%run(test_getInfNeg_RK4_1, SK_"test_getInfNeg_RK4_1")
423#endif
424#if RK3_ENABLED
425 call test%run(test_getInfNeg_RK3_1, SK_"test_getInfNeg_RK3_1")
426#endif
427#if RK2_ENABLED
428 call test%run(test_getInfNeg_RK2_1, SK_"test_getInfNeg_RK2_1")
429#endif
430#if RK1_ENABLED
431 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 call test%run(test_setInfNeg_CK4_1, SK_"test_setInfNeg_CK4_1")
445#endif
446#if CK3_ENABLED
447 call test%run(test_setInfNeg_CK3_1, SK_"test_setInfNeg_CK3_1")
448#endif
449#if CK2_ENABLED
450 call test%run(test_setInfNeg_CK2_1, SK_"test_setInfNeg_CK2_1")
451#endif
452#if CK1_ENABLED
453 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 call test%run(test_setInfNeg_RK4_1, SK_"test_setInfNeg_RK4_1")
463#endif
464#if RK3_ENABLED
465 call test%run(test_setInfNeg_RK3_1, SK_"test_setInfNeg_RK3_1")
466#endif
467#if RK2_ENABLED
468 call test%run(test_setInfNeg_RK2_1, SK_"test_setInfNeg_RK2_1")
469#endif
470#if RK1_ENABLED
471 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 call test%run(test_getNAN_CK4_1, SK_"test_getNAN_CK4_1")
485#endif
486#if CK3_ENABLED
487 call test%run(test_getNAN_CK3_1, SK_"test_getNAN_CK3_1")
488#endif
489#if CK2_ENABLED
490 call test%run(test_getNAN_CK2_1, SK_"test_getNAN_CK2_1")
491#endif
492#if CK1_ENABLED
493 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 call test%run(test_getNAN_RK4_1, SK_"test_getNAN_RK4_1")
503#endif
504#if RK3_ENABLED
505 call test%run(test_getNAN_RK3_1, SK_"test_getNAN_RK3_1")
506#endif
507#if RK2_ENABLED
508 call test%run(test_getNAN_RK2_1, SK_"test_getNAN_RK2_1")
509#endif
510#if RK1_ENABLED
511 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 call test%run(test_setNAN_CK4_1, SK_"test_setNAN_CK4_1")
525#endif
526#if CK3_ENABLED
527 call test%run(test_setNAN_CK3_1, SK_"test_setNAN_CK3_1")
528#endif
529#if CK2_ENABLED
530 call test%run(test_setNAN_CK2_1, SK_"test_setNAN_CK2_1")
531#endif
532#if CK1_ENABLED
533 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 call test%run(test_setNAN_RK4_1, SK_"test_setNAN_RK4_1")
543#endif
544#if RK3_ENABLED
545 call test%run(test_setNAN_RK3_1, SK_"test_setNAN_RK3_1")
546#endif
547#if RK2_ENABLED
548 call test%run(test_setNAN_RK2_1, SK_"test_setNAN_RK2_1")
549#endif
550#if RK1_ENABLED
551 call test%run(test_setNAN_RK1_1, SK_"test_setNAN_RK1_1")
552#endif
553
554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555
556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557
558 call test%summarize()
559
560 end subroutine setTest
561
562!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
563
564end module test_pm_except ! LCOV_EXCL_LINE
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_err::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_err.F90:58
pm_except
This module contains procedures and generic interfaces for testing for exceptional cases at runtime.
Definition: pm_except.F90:46
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_except
This module contains tests of the module pm_except.
Definition: test_pm_except.F90:30
test_pm_except::test
type(test_type) test
Definition: test_pm_except.F90:39
test_pm_except::setTest
subroutine setTest()
Definition: test_pm_except.F90:312
pm_err::err_type
This is the derived type for generating objects to gracefully and verbosely handle runtime unexpected...
Definition: pm_err.F90:157
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209