ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_err.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
19
20module test_pm_err
21
22 use pm_err
23 use pm_io, only: TAB
24 use pm_test, only: test_type, LK
25 use pm_strASCII, only: LF
26 implicit none
27
28 private
29 public :: setTest
30 type(test_type) :: test
31
32 character(*, SK), parameter :: mc_prefix = TAB//TAB//"ParaMonte"
33 character(*, SK), parameter :: mc_msg = "What does a fish know about the water in which it swims all its life? Albert Einstein\n" // &
34 "Everything should be made as simple as possible, but not simpler. Albert Einstein\n" // &
35 "The absence of evidence is not evidence for absence. Carl Sagan\n" // &
36 "If I have seen further, it is by standing on the shoulders of giants. Isaac Newton\n" // &
37 "I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
38
39!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40
41contains
42
43!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44
45 subroutine setTest()
46
47 implicit none
48
49 test = test_type(MODULE_NAME)
50 call test%run(test_note_1, SK_"test_note_1")
51 call test%run(test_note_2, SK_"test_note_2")
52 call test%run(test_warn_1, SK_"test_warn_1")
53 call test%run(test_warn_2, SK_"test_warn_2")
54 call test%run(test_abort_1, SK_"test_abort_1")
55 call test%run(test_abort_2, SK_"test_abort_2")
56 call test%summarize()
57
58 end subroutine setTest
59
60!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62 function test_note_1() result(assertion)
63
64 use pm_container, only: css_pdt
65 use pm_kind, only: IK
66 use pm_val2str, only: getStr
67
68 implicit none
69
70 integer(IK) :: fileUnit, i, iostat
71 logical(LK) :: assertion, assertionCurrent
72 integer(IK), parameter :: NLINE = 5_IK
73 type(css_pdt) , allocatable :: outputList_ref(:)
74 type(css_pdt) , allocatable :: outputList(:)
75
76 assertion = .true._LK
77
78 if (allocated(outputList)) deallocate(outputList); allocate(outputList(NLINE))
79 if (allocated(outputList_ref)) deallocate(outputList_ref); allocate(outputList_ref(NLINE))
80
81 outputList_ref(1)%val = " ParaMonte - NOTE: What does a fish know about the water in which it swims all its life? Albert Einstein"
82 outputList_ref(2)%val = " ParaMonte - NOTE: Everything should be made as simple as possible, but not simpler. Albert Einstein"
83 outputList_ref(3)%val = " ParaMonte - NOTE: The absence of evidence is not evidence for absence. Carl Sagan"
84 outputList_ref(4)%val = " ParaMonte - NOTE: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
85 outputList_ref(5)%val = " ParaMonte - NOTE: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
86
87 open(newunit = fileUnit, status = "scratch")
88 !open(newunit = fileUnit, file = test%dir%out//"/test_pm_err@test_note_1."//getStr(test%image%id)//".out", status = "replace")
89
90 call note( msg = mc_msg &
91 , prefix = mc_prefix &
92 , newline = "\n" &
93 , outputUnit = fileUnit &
94 , marginTop = 0_IK &
95 , marginBot = 0_IK &
96 )
97
98 rewind(fileUnit)
99
100 do i = 1, NLINE
101
102 if(allocated(outputList(i)%val)) deallocate(outputList(i)%val)
103 allocate(character(132) :: outputList(i)%val)
104
105 read(fileUnit,"(A132)", iostat = iostat) outputList(i)%val
106 assertion = iostat == 0_IK
107 call test%assert(assertion, desc = "`iostat == 0_IK`.")
108
109 outputList(i)%val = trim(outputList(i)%val)
110
111 assertionCurrent = outputList(i)%val == outputList_ref(i)%val
112 assertion = assertion .and. assertionCurrent
113
114 if (test%traceable .and. .not. assertionCurrent) then
115 ! LCOV_EXCL_START
116 write(test%disp%unit,"(*(g0))")
117 write(test%disp%unit,"(*(g0))") "outputList_ref(",getStr(i),")%val = ", outputList_ref(i)%val
118 write(test%disp%unit,"(*(g0))") "outputList (",getStr(i),")%val = ", outputList(i)%val
119 write(test%disp%unit,"(*(g0))")
120 ! LCOV_EXCL_STOP
121 end if
122 call test%assert(assertion, desc = "`outputList(i)%val == outputList_ref(i)%val`.")
123
124 end do
125
126 end function test_note_1
127
128!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
129
130 function test_note_2() result(assertion)
131
132 use pm_container, only: css_pdt
133 use pm_kind, only: IK
134 use pm_arrayReplace, only: getReplaced
135 use pm_val2str, only: getStr
136
137 implicit none
138
139 integer(IK) :: fileUnit, i, iostat
140 logical(LK) :: assertion, assertionCurrent
141 integer(IK), parameter :: NLINE = 7_IK
142 type(css_pdt) , allocatable :: outputList_ref(:)
143 type(css_pdt) , allocatable :: outputList(:)
144
145 assertion = .true._LK
146
147 if (allocated(outputList)) deallocate(outputList); allocate(outputList(NLINE))
148 if (allocated(outputList_ref)) deallocate(outputList_ref); allocate(outputList_ref(NLINE))
149
150 outputList_ref(1)%val = ""
151 outputList_ref(2)%val = " - NOTE: What does a fish know about the water in which it swims all its life? Albert Einstein"
152 outputList_ref(3)%val = " - NOTE: Everything should be made as simple as possible, but not simpler. Albert Einstein"
153 outputList_ref(4)%val = " - NOTE: The absence of evidence is not evidence for absence. Carl Sagan"
154 outputList_ref(5)%val = " - NOTE: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
155 outputList_ref(6)%val = " - NOTE: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
156 outputList_ref(7)%val = ""
157
158 open(newunit = fileUnit, status = "scratch")
159 !open(newunit = fileUnit, file = test%dir%out//"/test_pm_err@test_note_2."//getStr(test%image%id)//".out", status = "replace")
160
161 call note( msg = getReplaced(mc_msg, "\n", LF) &
162 , outputUnit = fileUnit &
163 , newline = LF &
164 )
165
166 rewind(fileUnit)
167
168 do i = 1, NLINE
169
170 if(allocated(outputList(i)%val)) deallocate(outputList(i)%val)
171 allocate(character(132) :: outputList(i)%val)
172
173 read(fileUnit,"(A132)", iostat = iostat) outputList(i)%val
174 assertion = iostat == 0_IK
175 call test%assert(assertion, desc = "`iostat == 0_IK`.")
176
177 outputList(i)%val = trim(outputList(i)%val)
178
179 assertionCurrent = outputList(i)%val == outputList_ref(i)%val
180 assertion = assertion .and. assertionCurrent
181
182 if (test%traceable .and. .not. assertionCurrent) then
183 ! LCOV_EXCL_START
184 write(test%disp%unit,"(*(g0))")
185 write(test%disp%unit,"(*(g0))") "outputList_ref(",getStr(i),")%val = ", outputList_ref(i)%val
186 write(test%disp%unit,"(*(g0))") "outputList (",getStr(i),")%val = ", outputList(i)%val
187 write(test%disp%unit,"(*(g0))")
188 ! LCOV_EXCL_STOP
189 end if
190 call test%assert(assertion, desc = "`outputList(i)%val == outputList_ref(i)%val`.")
191
192 end do
193
194 end function test_note_2
195
196!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197
198 function test_warn_1() result(assertion)
199
200 use pm_container, only: css_pdt
201 use pm_kind, only: IK
202 use pm_val2str, only: getStr
203
204 implicit none
205
206 integer(IK) :: fileUnit, i, iostat
207 logical(LK) :: assertion, assertionCurrent
208 integer(IK), parameter :: NLINE = 5_IK
209 type(css_pdt) , allocatable :: outputList_ref(:)
210 type(css_pdt) , allocatable :: outputList(:)
211
212 assertion = .true._LK
213
214 if (allocated(outputList)) deallocate(outputList); allocate(outputList(NLINE))
215 if (allocated(outputList_ref)) deallocate(outputList_ref); allocate(outputList_ref(NLINE))
216
217 outputList_ref(1)%val = " ParaMonte - WARNING: What does a fish know about the water in which it swims all its life? Albert Einstein"
218 outputList_ref(2)%val = " ParaMonte - WARNING: Everything should be made as simple as possible, but not simpler. Albert Einstein"
219 outputList_ref(3)%val = " ParaMonte - WARNING: The absence of evidence is not evidence for absence. Carl Sagan"
220 outputList_ref(4)%val = " ParaMonte - WARNING: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
221 outputList_ref(5)%val = " ParaMonte - WARNING: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
222
223 open(newunit = fileUnit, status = "scratch")
224 !open(newunit = fileUnit, file = test%dir%out//"/test_pm_err@test_warn_1."//getStr(test%image%id)//".out", status = "replace")
225
226 call setWarned( msg = mc_msg &
227 , prefix = mc_prefix &
228 , newline = "\n" &
229 , outputUnit = fileUnit &
230 , marginTop = 0_IK &
231 , marginBot = 0_IK &
232 )
233
234 rewind(fileUnit)
235
236 do i = 1, NLINE
237
238 if(allocated(outputList(i)%val)) deallocate(outputList(i)%val)
239 allocate(character(132) :: outputList(i)%val)
240
241 read(fileUnit,"(A132)", iostat = iostat) outputList(i)%val
242 assertion = iostat == 0_IK
243 call test%assert(assertion, desc = "`iostat == 0_IK`.")
244
245 outputList(i)%val = trim(outputList(i)%val)
246
247 assertionCurrent = outputList(i)%val == outputList_ref(i)%val
248 assertion = assertion .and. assertionCurrent
249
250 if (test%traceable .and. .not. assertionCurrent) then
251 ! LCOV_EXCL_START
252 write(test%disp%unit,"(*(g0))")
253 write(test%disp%unit,"(*(g0))") "outputList_ref(",getStr(i),")%val = ", outputList_ref(i)%val
254 write(test%disp%unit,"(*(g0))") "outputList (",getStr(i),")%val = ", outputList(i)%val
255 write(test%disp%unit,"(*(g0))")
256 ! LCOV_EXCL_STOP
257 end if
258 call test%assert(assertion, desc = "`outputList(i)%val == outputList_ref(i)%val`.")
259
260 end do
261
262 end function test_warn_1
263
264!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
265
266 function test_warn_2() result(assertion)
267
268 use pm_container, only: css_pdt
269 use pm_kind, only: IK
270 use pm_arrayReplace, only: getReplaced
271 use pm_val2str, only: getStr
272
273 implicit none
274
275 integer(IK) :: fileUnit, i, iostat
276 logical(LK) :: assertion, assertionCurrent
277 integer(IK), parameter :: NLINE = 7_IK
278 type(css_pdt) , allocatable :: outputList_ref(:)
279 type(css_pdt) , allocatable :: outputList(:)
280
281 assertion = .true._LK
282
283 if (allocated(outputList)) deallocate(outputList); allocate(outputList(NLINE))
284 if (allocated(outputList_ref)) deallocate(outputList_ref); allocate(outputList_ref(NLINE))
285
286 outputList_ref(1)%val = ""
287 outputList_ref(2)%val = " - WARNING: What does a fish know about the water in which it swims all its life? Albert Einstein"
288 outputList_ref(3)%val = " - WARNING: Everything should be made as simple as possible, but not simpler. Albert Einstein"
289 outputList_ref(4)%val = " - WARNING: The absence of evidence is not evidence for absence. Carl Sagan"
290 outputList_ref(5)%val = " - WARNING: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
291 outputList_ref(6)%val = " - WARNING: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
292 outputList_ref(7)%val = ""
293
294 open(newunit = fileUnit, status = "scratch")
295 !open(newunit = fileUnit, file = test%dir%out//"/test_pm_err@test_warn_2."//getStr(test%image%id)//".out", status = "getReplaced")
296
297 call setWarned( msg = getReplaced(mc_msg, "\n", LF) &
298 , outputUnit = fileUnit &
299 , newline = LF &
300 )
301
302 rewind(fileUnit)
303
304 do i = 1, NLINE
305
306 if(allocated(outputList(i)%val)) deallocate(outputList(i)%val)
307 allocate(character(132) :: outputList(i)%val)
308
309 read(fileUnit,"(A132)", iostat = iostat) outputList(i)%val
310 assertion = iostat == 0_IK
311 call test%assert(assertion, desc = "`iostat == 0_IK`.")
312
313 outputList(i)%val = trim(outputList(i)%val)
314
315 assertionCurrent = outputList(i)%val == outputList_ref(i)%val
316 assertion = assertion .and. assertionCurrent
317
318 if (test%traceable .and. .not. assertionCurrent) then
319 ! LCOV_EXCL_START
320 write(test%disp%unit,"(*(g0))")
321 write(test%disp%unit,"(*(g0))") "outputList_ref(",getStr(i),")%val = ", outputList_ref(i)%val
322 write(test%disp%unit,"(*(g0))") "outputList (",getStr(i),")%val = ", outputList(i)%val
323 write(test%disp%unit,"(*(g0))")
324 ! LCOV_EXCL_STOP
325 end if
326 call test%assert(assertion, desc = "`outputList(i)%val == outputList_ref(i)%val`.")
327
328 end do
329
330 end function test_warn_2
331
332!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333
334 function test_abort_1() result(assertion)
335
336 use pm_container, only: css_pdt
337 use pm_kind, only: IK
338 use pm_val2str, only: getStr
339
340 implicit none
341
342 integer(IK) :: fileUnit, i, iostat
343 logical(LK) :: assertion, assertionCurrent
344 integer(IK), parameter :: NLINE = 6_IK
345 type(css_pdt) , allocatable :: outputList_ref(:)
346 type(css_pdt) , allocatable :: outputList(:)
347 type(err_type) :: Err
348
349 assertion = .true._LK
350 mv_isTestingMode = .true._LK
351
352 if (allocated(outputList)) deallocate(outputList); allocate(outputList(NLINE))
353 if (allocated(outputList_ref)) deallocate(outputList_ref); allocate(outputList_ref(NLINE))
354
355 outputList_ref(1)%val = ""
356 outputList_ref(2)%val = " ParaMonte - FATAL: What does a fish know about the water in which it swims all its life? Albert Einstein"
357 outputList_ref(3)%val = " ParaMonte - FATAL: Everything should be made as simple as possible, but not simpler. Albert Einstein"
358 outputList_ref(4)%val = " ParaMonte - FATAL: The absence of evidence is not evidence for absence. Carl Sagan"
359 outputList_ref(5)%val = " ParaMonte - FATAL: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
360 outputList_ref(6)%val = " ParaMonte - FATAL: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
361
362 open(newunit = fileUnit, status = "scratch")
363 !open(newunit = fileUnit, file = test%dir%out//"/test_pm_err@test_abort_1."//getStr(test%image%id)//".out", status = "replace")
364
365 err%msg = mc_msg
366 call setAborted( Err = Err & ! LCOV_EXCL_LINE
367 , newline = "\n" & ! LCOV_EXCL_LINE
368 , prefix = mc_prefix & ! LCOV_EXCL_LINE
369 , outputUnit = fileUnit & ! LCOV_EXCL_LINE
370 , renabled = .true._LK & ! LCOV_EXCL_LINE
371 )
372
373 rewind(fileUnit)
374
375 do i = 1, NLINE
376
377 if(allocated(outputList(i)%val)) deallocate(outputList(i)%val)
378 allocate(character(132) :: outputList(i)%val)
379
380 read(fileUnit,"(A132)", iostat = iostat) outputList(i)%val
381 assertion = iostat == 0_IK
382 call test%assert(assertion, desc = "`iostat == 0_IK`.")
383
384 outputList(i)%val = trim(outputList(i)%val)
385
386 assertionCurrent = outputList(i)%val == outputList_ref(i)%val
387 assertion = assertion .and. assertionCurrent
388
389 if (test%traceable .and. .not. assertionCurrent) then
390 ! LCOV_EXCL_START
391 write(test%disp%unit,"(*(g0))")
392 write(test%disp%unit,"(*(g0))") "outputList_ref(",getStr(i),")%val = ", outputList_ref(i)%val
393 write(test%disp%unit,"(*(g0))") "outputList (",getStr(i),")%val = ", outputList(i)%val
394 write(test%disp%unit,"(*(g0))")
395 ! LCOV_EXCL_STOP
396 end if
397 call test%assert(assertion, desc = "`outputList(i)%val == outputList_ref(i)%val`.")
398
399 end do
400
401 end function test_abort_1
402
403!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404
408 function test_abort_2() result(assertion)
409
410 use pm_container, only: css_pdt
411 use pm_kind, only: IK
412 use pm_val2str, only: getStr
413 use pm_arrayReplace, only: getReplaced
414
415 implicit none
416
417 integer(IK) :: fileUnit, i, iostat
418 logical(LK) :: assertion, assertionCurrent
419 integer(IK), parameter :: NLINE = 7_IK
420 type(css_pdt) , allocatable :: outputList_ref(:)
421 type(css_pdt) , allocatable :: outputList(:)
422 type(err_type) :: Err
423
424 assertion = .true._LK
425 mv_isTestingMode = .true._LK
426
427 if (allocated(outputList)) deallocate(outputList); allocate(outputList(NLINE))
428 if (allocated(outputList_ref)) deallocate(outputList_ref); allocate(outputList_ref(NLINE))
429
430 outputList_ref(1)%val = ""
431 outputList_ref(2)%val = " - FATAL: What does a fish know about the water in which it swims all its life? Albert Einstein"
432 outputList_ref(3)%val = " - FATAL: Everything should be made as simple as possible, but not simpler. Albert Einstein"
433 outputList_ref(4)%val = " - FATAL: The absence of evidence is not evidence for absence. Carl Sagan"
434 outputList_ref(5)%val = " - FATAL: If I have seen further, it is by standing on the shoulders of giants. Isaac Newton"
435 outputList_ref(6)%val = " - FATAL: I don't pretend to understand the universe - it's much bigger than I am. Thomas Carlyle"
436 outputList_ref(7)%val = " - FATAL: Error Code: 123."
437
438 open(newunit = fileUnit, status = "scratch")
439 !open(newunit = fileUnit, file = test%dir%out//"/test_pm_err@test_abort_2."//getStr(test%image%id)//".out", status = "replace")
440
441 err%msg = getReplaced(mc_msg, "\n", LF)
442 err%stat = 123_IK
443 call setAborted( Err = Err &
444 , outputUnit = fileUnit &
445 )
446
447 rewind(fileUnit)
448
449 do i = 1, NLINE
450
451 if(allocated(outputList(i)%val)) deallocate(outputList(i)%val)
452 allocate(character(132) :: outputList(i)%val)
453
454 read(fileUnit,"(A132)", iostat = iostat) outputList(i)%val
455 assertion = iostat == 0_IK
456 call test%assert(assertion, desc = "`iostat == 0_IK`.")
457
458 outputList(i)%val = trim(outputList(i)%val)
459
460 assertionCurrent = outputList(i)%val == outputList_ref(i)%val
461 assertion = assertion .and. assertionCurrent
462
463 if (test%traceable .and. .not. assertionCurrent) then
464 ! LCOV_EXCL_START
465 write(test%disp%unit,"(*(g0))")
466 write(test%disp%unit,"(*(g0))") "outputList_ref(",getStr(i),")%val = '", outputList_ref(i)%val, "'"
467 write(test%disp%unit,"(*(g0))") "outputList (",getStr(i),")%val = '", outputList(i)%val, "'"
468 write(test%disp%unit,"(*(g0))")
469 ! LCOV_EXCL_STOP
470 end if
471 call test%assert(assertion, desc = "`outputList(i)%val == outputList_ref(i)%val`.")
472
473 end do
474
475 end function test_abort_2
476
477!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
478
479end module test_pm_err ! LCOV_EXCL_LINE
pm_arrayReplace::getReplaced
Generate and return an arrayNew of the same type and kind as the input array, in which the requested ...
Definition: pm_arrayReplace.F90:986
pm_err::setAborted
Write the input string in the format of a fatal error to the output, then call error stop or return t...
Definition: pm_err.F90:2436
pm_err::setWarned
Write the input string in the format of a warning to the output.
Definition: pm_err.F90:2283
pm_val2str::getStr
Generate and return the conversion of the input value to an output Fortran string,...
Definition: pm_val2str.F90:167
pm_arrayReplace
This module contains procedures and generic interfaces for replacing patterns within arrays of variou...
Definition: pm_arrayReplace.F90:54
pm_container
This module contains the derived types for generating allocatable containers of scalar,...
Definition: pm_container.F90:113
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_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pm_io::TAB
character(1, SK), parameter TAB
The scalar character of default kind SK of len = 4 representing representing ASCII character: Horizon...
Definition: pm_io.F90:336
pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_strASCII
This module contains the uncommon and hardly representable ASCII characters as well as procedures for...
Definition: pm_strASCII.F90:61
pm_strASCII::LF
character(1, SK), parameter LF
The scalar character constant of default kind SK of length 1 representing ASCII character: Line Feed ...
Definition: pm_strASCII.F90:93
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
pm_val2str
This module contains the generic procedures for converting values of different types and kinds to For...
Definition: pm_val2str.F90:58
test_pm_err
This module contains tests of the module pm_err.
Definition: test_pm_err.F90:20
test_pm_err::setTest
subroutine setTest()
Definition: test_pm_err.F90:46
test_pm_err::test_warn_1
logical(LK) function test_warn_1()
Definition: test_pm_err.F90:199
test_pm_err::test_abort_2
logical(LK) function test_abort_2()
Test the effects of an input non-null error code errstat. Test the effects of missing arguments prefi...
Definition: test_pm_err.F90:409
test_pm_err::mc_msg
character(*, SK), parameter mc_msg
Definition: test_pm_err.F90:33
test_pm_err::test_warn_2
logical(LK) function test_warn_2()
Definition: test_pm_err.F90:267
test_pm_err::test_note_1
logical(LK) function test_note_1()
Definition: test_pm_err.F90:63
test_pm_err::test
type(test_type) test
Definition: test_pm_err.F90:30
test_pm_err::mc_prefix
character(*, SK), parameter mc_prefix
Definition: test_pm_err.F90:32
test_pm_err::test_abort_1
logical(LK) function test_abort_1()
Definition: test_pm_err.F90:335
test_pm_err::test_note_2
logical(LK) function test_note_2()
Definition: test_pm_err.F90:131
pm_container::css_pdt
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
Definition: pm_container.F90:783
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