ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayVerbose.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
24
25!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26
27module test_pm_arrayVerbose
28
29 use pm_arrayVerbose
30 use pm_err, only: err_type
31 use pm_test, only: test_type, LK
32 implicit none
33
34 private
35 public :: setTest
36 type(test_type) :: test
37
38!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39
40 interface
41
42 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45
46 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47
48#if SK5_ENABLED
49 module function test_getVerbose_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
50 module function test_setVerbose_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
51#endif
52#if SK4_ENABLED
53 module function test_getVerbose_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
54 module function test_setVerbose_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
55#endif
56#if SK3_ENABLED
57 module function test_getVerbose_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
58 module function test_setVerbose_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
59#endif
60#if SK2_ENABLED
61 module function test_getVerbose_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
62 module function test_setVerbose_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
63#endif
64#if SK1_ENABLED
65 module function test_getVerbose_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
66 module function test_setVerbose_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
67#endif
68
69 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
70
71 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
72 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
73 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
74
75 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
76
77#if SK5_ENABLED
78 module function test_getVerbose_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
79 module function test_setVerbose_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
80#endif
81#if SK4_ENABLED
82 module function test_getVerbose_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
83 module function test_setVerbose_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
84#endif
85#if SK3_ENABLED
86 module function test_getVerbose_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
87 module function test_setVerbose_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
88#endif
89#if SK2_ENABLED
90 module function test_getVerbose_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
91 module function test_setVerbose_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
92#endif
93#if SK1_ENABLED
94 module function test_getVerbose_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
95 module function test_setVerbose_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
96#endif
97
98 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99
100#if IK5_ENABLED
101 module function test_getVerbose_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
102 module function test_setVerbose_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
103#endif
104#if IK4_ENABLED
105 module function test_getVerbose_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
106 module function test_setVerbose_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
107#endif
108#if IK3_ENABLED
109 module function test_getVerbose_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
110 module function test_setVerbose_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
111#endif
112#if IK2_ENABLED
113 module function test_getVerbose_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
114 module function test_setVerbose_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
115#endif
116#if IK1_ENABLED
117 module function test_getVerbose_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
118 module function test_setVerbose_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
119#endif
120
121 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
122
123#if LK5_ENABLED
124 module function test_getVerbose_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
125 module function test_setVerbose_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
126#endif
127#if LK4_ENABLED
128 module function test_getVerbose_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
129 module function test_setVerbose_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
130#endif
131#if LK3_ENABLED
132 module function test_getVerbose_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
133 module function test_setVerbose_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
134#endif
135#if LK2_ENABLED
136 module function test_getVerbose_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
137 module function test_setVerbose_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
138#endif
139#if LK1_ENABLED
140 module function test_getVerbose_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
141 module function test_setVerbose_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
142#endif
143
144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
145
146#if CK5_ENABLED
147 module function test_getVerbose_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
148 module function test_setVerbose_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
149#endif
150#if CK4_ENABLED
151 module function test_getVerbose_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
152 module function test_setVerbose_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
153#endif
154#if CK3_ENABLED
155 module function test_getVerbose_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
156 module function test_setVerbose_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
157#endif
158#if CK2_ENABLED
159 module function test_getVerbose_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
160 module function test_setVerbose_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
161#endif
162#if CK1_ENABLED
163 module function test_getVerbose_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
164 module function test_setVerbose_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
165#endif
166
167 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168
169#if RK5_ENABLED
170 module function test_getVerbose_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
171 module function test_setVerbose_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
172#endif
173#if RK4_ENABLED
174 module function test_getVerbose_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
175 module function test_setVerbose_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
176#endif
177#if RK3_ENABLED
178 module function test_getVerbose_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
179 module function test_setVerbose_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
180#endif
181#if RK2_ENABLED
182 module function test_getVerbose_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
183 module function test_setVerbose_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
184#endif
185#if RK1_ENABLED
186 module function test_getVerbose_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
187 module function test_setVerbose_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
188#endif
189
190 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
191
192 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
193 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
194 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
195
196 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197
198#if SK5_ENABLED
199 module function test_getVerbose_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
200 module function test_setVerbose_D2_SK5_1 () result(assertion); logical(LK) :: assertion; end function
201#endif
202#if SK4_ENABLED
203 module function test_getVerbose_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
204 module function test_setVerbose_D2_SK4_1 () result(assertion); logical(LK) :: assertion; end function
205#endif
206#if SK3_ENABLED
207 module function test_getVerbose_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
208 module function test_setVerbose_D2_SK3_1 () result(assertion); logical(LK) :: assertion; end function
209#endif
210#if SK2_ENABLED
211 module function test_getVerbose_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
212 module function test_setVerbose_D2_SK2_1 () result(assertion); logical(LK) :: assertion; end function
213#endif
214#if SK1_ENABLED
215 module function test_getVerbose_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
216 module function test_setVerbose_D2_SK1_1 () result(assertion); logical(LK) :: assertion; end function
217#endif
218
219 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
220
221#if IK5_ENABLED
222 module function test_getVerbose_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
223 module function test_setVerbose_D2_IK5_1 () result(assertion); logical(LK) :: assertion; end function
224#endif
225#if IK4_ENABLED
226 module function test_getVerbose_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
227 module function test_setVerbose_D2_IK4_1 () result(assertion); logical(LK) :: assertion; end function
228#endif
229#if IK3_ENABLED
230 module function test_getVerbose_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
231 module function test_setVerbose_D2_IK3_1 () result(assertion); logical(LK) :: assertion; end function
232#endif
233#if IK2_ENABLED
234 module function test_getVerbose_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
235 module function test_setVerbose_D2_IK2_1 () result(assertion); logical(LK) :: assertion; end function
236#endif
237#if IK1_ENABLED
238 module function test_getVerbose_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
239 module function test_setVerbose_D2_IK1_1 () result(assertion); logical(LK) :: assertion; end function
240#endif
241
242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
243
244#if LK5_ENABLED
245 module function test_getVerbose_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
246 module function test_setVerbose_D2_LK5_1 () result(assertion); logical(LK) :: assertion; end function
247#endif
248#if LK4_ENABLED
249 module function test_getVerbose_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
250 module function test_setVerbose_D2_LK4_1 () result(assertion); logical(LK) :: assertion; end function
251#endif
252#if LK3_ENABLED
253 module function test_getVerbose_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
254 module function test_setVerbose_D2_LK3_1 () result(assertion); logical(LK) :: assertion; end function
255#endif
256#if LK2_ENABLED
257 module function test_getVerbose_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
258 module function test_setVerbose_D2_LK2_1 () result(assertion); logical(LK) :: assertion; end function
259#endif
260#if LK1_ENABLED
261 module function test_getVerbose_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
262 module function test_setVerbose_D2_LK1_1 () result(assertion); logical(LK) :: assertion; end function
263#endif
264
265 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
266
267#if CK5_ENABLED
268 module function test_getVerbose_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
269 module function test_setVerbose_D2_CK5_1 () result(assertion); logical(LK) :: assertion; end function
270#endif
271#if CK4_ENABLED
272 module function test_getVerbose_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
273 module function test_setVerbose_D2_CK4_1 () result(assertion); logical(LK) :: assertion; end function
274#endif
275#if CK3_ENABLED
276 module function test_getVerbose_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
277 module function test_setVerbose_D2_CK3_1 () result(assertion); logical(LK) :: assertion; end function
278#endif
279#if CK2_ENABLED
280 module function test_getVerbose_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
281 module function test_setVerbose_D2_CK2_1 () result(assertion); logical(LK) :: assertion; end function
282#endif
283#if CK1_ENABLED
284 module function test_getVerbose_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
285 module function test_setVerbose_D2_CK1_1 () result(assertion); logical(LK) :: assertion; end function
286#endif
287
288 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
289
290#if RK5_ENABLED
291 module function test_getVerbose_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
292 module function test_setVerbose_D2_RK5_1 () result(assertion); logical(LK) :: assertion; end function
293#endif
294#if RK4_ENABLED
295 module function test_getVerbose_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
296 module function test_setVerbose_D2_RK4_1 () result(assertion); logical(LK) :: assertion; end function
297#endif
298#if RK3_ENABLED
299 module function test_getVerbose_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
300 module function test_setVerbose_D2_RK3_1 () result(assertion); logical(LK) :: assertion; end function
301#endif
302#if RK2_ENABLED
303 module function test_getVerbose_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
304 module function test_setVerbose_D2_RK2_1 () result(assertion); logical(LK) :: assertion; end function
305#endif
306#if RK1_ENABLED
307 module function test_getVerbose_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
308 module function test_setVerbose_D2_RK1_1 () result(assertion); logical(LK) :: assertion; end function
309#endif
310
311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312
313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
316
317 end interface
318
319!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
320
321contains
322
323!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
324
325 subroutine setTest()
326
327 implicit none
328
329 test = test_type(MODULE_NAME)
330
331 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
332 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
333 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
334
335 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
336
337#if SK5_ENABLED
338 call test%run(test_getVerbose_D0_SK5_1, SK_"test_getVerbose_D0_SK5_1")
339 !call test%run(test_setVerbose_D0_SK5_1, SK_"test_setVerbose_D0_SK5_1")
340#endif
341#if SK4_ENABLED
342 call test%run(test_getVerbose_D0_SK4_1, SK_"test_getVerbose_D0_SK4_1")
343 !call test%run(test_setVerbose_D0_SK4_1, SK_"test_setVerbose_D0_SK4_1")
344#endif
345#if SK3_ENABLED
346 call test%run(test_getVerbose_D0_SK3_1, SK_"test_getVerbose_D0_SK3_1")
347 !call test%run(test_setVerbose_D0_SK3_1, SK_"test_setVerbose_D0_SK3_1")
348#endif
349#if SK2_ENABLED
350 call test%run(test_getVerbose_D0_SK2_1, SK_"test_getVerbose_D0_SK2_1")
351 !call test%run(test_setVerbose_D0_SK2_1, SK_"test_setVerbose_D0_SK2_1")
352#endif
353#if SK1_ENABLED
354 call test%run(test_getVerbose_D0_SK1_1, SK_"test_getVerbose_D0_SK1_1")
355 !call test%run(test_setVerbose_D0_SK1_1, SK_"test_setVerbose_D0_SK1_1")
356#endif
357
358 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
359
360 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
362 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
363
364 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
365
366#if SK5_ENABLED
367 call test%run(test_getVerbose_D1_SK5_1, SK_"test_getVerbose_D1_SK5_1")
368 !call test%run(test_setVerbose_D1_SK5_1, SK_"test_setVerbose_D1_SK5_1")
369#endif
370#if SK4_ENABLED
371 call test%run(test_getVerbose_D1_SK4_1, SK_"test_getVerbose_D1_SK4_1")
372 !call test%run(test_setVerbose_D1_SK4_1, SK_"test_setVerbose_D1_SK4_1")
373#endif
374#if SK3_ENABLED
375 call test%run(test_getVerbose_D1_SK3_1, SK_"test_getVerbose_D1_SK3_1")
376 !call test%run(test_setVerbose_D1_SK3_1, SK_"test_setVerbose_D1_SK3_1")
377#endif
378#if SK2_ENABLED
379 call test%run(test_getVerbose_D1_SK2_1, SK_"test_getVerbose_D1_SK2_1")
380 !call test%run(test_setVerbose_D1_SK2_1, SK_"test_setVerbose_D1_SK2_1")
381#endif
382#if SK1_ENABLED
383 call test%run(test_getVerbose_D1_SK1_1, SK_"test_getVerbose_D1_SK1_1")
384 !call test%run(test_setVerbose_D1_SK1_1, SK_"test_setVerbose_D1_SK1_1")
385#endif
386
387 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
388
389#if IK5_ENABLED
390 call test%run(test_getVerbose_D1_IK5_1, SK_"test_getVerbose_D1_IK5_1")
391 !call test%run(test_setVerbose_D1_IK5_1, SK_"test_setVerbose_D1_IK5_1")
392#endif
393#if IK4_ENABLED
394 call test%run(test_getVerbose_D1_IK4_1, SK_"test_getVerbose_D1_IK4_1")
395 !call test%run(test_setVerbose_D1_IK4_1, SK_"test_setVerbose_D1_IK4_1")
396#endif
397#if IK3_ENABLED
398 call test%run(test_getVerbose_D1_IK3_1, SK_"test_getVerbose_D1_IK3_1")
399 !call test%run(test_setVerbose_D1_IK3_1, SK_"test_setVerbose_D1_IK3_1")
400#endif
401#if IK2_ENABLED
402 call test%run(test_getVerbose_D1_IK2_1, SK_"test_getVerbose_D1_IK2_1")
403 !call test%run(test_setVerbose_D1_IK2_1, SK_"test_setVerbose_D1_IK2_1")
404#endif
405#if IK1_ENABLED
406 call test%run(test_getVerbose_D1_IK1_1, SK_"test_getVerbose_D1_IK1_1")
407 !call test%run(test_setVerbose_D1_IK1_1, SK_"test_setVerbose_D1_IK1_1")
408#endif
409
410 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411
412#if LK5_ENABLED
413 call test%run(test_getVerbose_D1_LK5_1, SK_"test_getVerbose_D1_LK5_1")
414 !call test%run(test_setVerbose_D1_LK5_1, SK_"test_setVerbose_D1_LK5_1")
415#endif
416#if LK4_ENABLED
417 call test%run(test_getVerbose_D1_LK4_1, SK_"test_getVerbose_D1_LK4_1")
418 !call test%run(test_setVerbose_D1_LK4_1, SK_"test_setVerbose_D1_LK4_1")
419#endif
420#if LK3_ENABLED
421 call test%run(test_getVerbose_D1_LK3_1, SK_"test_getVerbose_D1_LK3_1")
422 !call test%run(test_setVerbose_D1_LK3_1, SK_"test_setVerbose_D1_LK3_1")
423#endif
424#if LK2_ENABLED
425 call test%run(test_getVerbose_D1_LK2_1, SK_"test_getVerbose_D1_LK2_1")
426 !call test%run(test_setVerbose_D1_LK2_1, SK_"test_setVerbose_D1_LK2_1")
427#endif
428#if LK1_ENABLED
429 call test%run(test_getVerbose_D1_LK1_1, SK_"test_getVerbose_D1_LK1_1")
430 !call test%run(test_setVerbose_D1_LK1_1, SK_"test_setVerbose_D1_LK1_1")
431#endif
432
433 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
434
435#if CK5_ENABLED
436 call test%run(test_getVerbose_D1_CK5_1, SK_"test_getVerbose_D1_CK5_1")
437 !call test%run(test_setVerbose_D1_CK5_1, SK_"test_setVerbose_D1_CK5_1")
438#endif
439#if CK4_ENABLED
440 call test%run(test_getVerbose_D1_CK4_1, SK_"test_getVerbose_D1_CK4_1")
441 !call test%run(test_setVerbose_D1_CK4_1, SK_"test_setVerbose_D1_CK4_1")
442#endif
443#if CK3_ENABLED
444 call test%run(test_getVerbose_D1_CK3_1, SK_"test_getVerbose_D1_CK3_1")
445 !call test%run(test_setVerbose_D1_CK3_1, SK_"test_setVerbose_D1_CK3_1")
446#endif
447#if CK2_ENABLED
448 call test%run(test_getVerbose_D1_CK2_1, SK_"test_getVerbose_D1_CK2_1")
449 !call test%run(test_setVerbose_D1_CK2_1, SK_"test_setVerbose_D1_CK2_1")
450#endif
451#if CK1_ENABLED
452 call test%run(test_getVerbose_D1_CK1_1, SK_"test_getVerbose_D1_CK1_1")
453 !call test%run(test_setVerbose_D1_CK1_1, SK_"test_setVerbose_D1_CK1_1")
454#endif
455
456 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
457
458#if RK5_ENABLED
459 call test%run(test_getVerbose_D1_RK5_1, SK_"test_getVerbose_D1_RK5_1")
460 !call test%run(test_setVerbose_D1_RK5_1, SK_"test_setVerbose_D1_RK5_1")
461#endif
462#if RK4_ENABLED
463 call test%run(test_getVerbose_D1_RK4_1, SK_"test_getVerbose_D1_RK4_1")
464 !call test%run(test_setVerbose_D1_RK4_1, SK_"test_setVerbose_D1_RK4_1")
465#endif
466#if RK3_ENABLED
467 call test%run(test_getVerbose_D1_RK3_1, SK_"test_getVerbose_D1_RK3_1")
468 !call test%run(test_setVerbose_D1_RK3_1, SK_"test_setVerbose_D1_RK3_1")
469#endif
470#if RK2_ENABLED
471 call test%run(test_getVerbose_D1_RK2_1, SK_"test_getVerbose_D1_RK2_1")
472 !call test%run(test_setVerbose_D1_RK2_1, SK_"test_setVerbose_D1_RK2_1")
473#endif
474#if RK1_ENABLED
475 call test%run(test_getVerbose_D1_RK1_1, SK_"test_getVerbose_D1_RK1_1")
476 !call test%run(test_setVerbose_D1_RK1_1, SK_"test_setVerbose_D1_RK1_1")
477#endif
478
479 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
480
481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
482 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
484
485 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
486
487#if SK5_ENABLED
488 call test%run(test_getVerbose_D2_SK5_1, SK_"test_getVerbose_D2_SK5_1")
489 !call test%run(test_setVerbose_D2_SK5_1, SK_"test_setVerbose_D2_SK5_1")
490#endif
491#if SK4_ENABLED
492 call test%run(test_getVerbose_D2_SK4_1, SK_"test_getVerbose_D2_SK4_1")
493 !call test%run(test_setVerbose_D2_SK4_1, SK_"test_setVerbose_D2_SK4_1")
494#endif
495#if SK3_ENABLED
496 call test%run(test_getVerbose_D2_SK3_1, SK_"test_getVerbose_D2_SK3_1")
497 !call test%run(test_setVerbose_D2_SK3_1, SK_"test_setVerbose_D2_SK3_1")
498#endif
499#if SK2_ENABLED
500 call test%run(test_getVerbose_D2_SK2_1, SK_"test_getVerbose_D2_SK2_1")
501 !call test%run(test_setVerbose_D2_SK2_1, SK_"test_setVerbose_D2_SK2_1")
502#endif
503#if SK1_ENABLED
504 call test%run(test_getVerbose_D2_SK1_1, SK_"test_getVerbose_D2_SK1_1")
505 !call test%run(test_setVerbose_D2_SK1_1, SK_"test_setVerbose_D2_SK1_1")
506#endif
507
508 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
509
510#if IK5_ENABLED
511 call test%run(test_getVerbose_D2_IK5_1, SK_"test_getVerbose_D2_IK5_1")
512 !call test%run(test_setVerbose_D2_IK5_1, SK_"test_setVerbose_D2_IK5_1")
513#endif
514#if IK4_ENABLED
515 call test%run(test_getVerbose_D2_IK4_1, SK_"test_getVerbose_D2_IK4_1")
516 !call test%run(test_setVerbose_D2_IK4_1, SK_"test_setVerbose_D2_IK4_1")
517#endif
518#if IK3_ENABLED
519 call test%run(test_getVerbose_D2_IK3_1, SK_"test_getVerbose_D2_IK3_1")
520 !call test%run(test_setVerbose_D2_IK3_1, SK_"test_setVerbose_D2_IK3_1")
521#endif
522#if IK2_ENABLED
523 call test%run(test_getVerbose_D2_IK2_1, SK_"test_getVerbose_D2_IK2_1")
524 !call test%run(test_setVerbose_D2_IK2_1, SK_"test_setVerbose_D2_IK2_1")
525#endif
526#if IK1_ENABLED
527 call test%run(test_getVerbose_D2_IK1_1, SK_"test_getVerbose_D2_IK1_1")
528 !call test%run(test_setVerbose_D2_IK1_1, SK_"test_setVerbose_D2_IK1_1")
529#endif
530
531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
532
533#if LK5_ENABLED
534 call test%run(test_getVerbose_D2_LK5_1, SK_"test_getVerbose_D2_LK5_1")
535 !call test%run(test_setVerbose_D2_LK5_1, SK_"test_setVerbose_D2_LK5_1")
536#endif
537#if LK4_ENABLED
538 call test%run(test_getVerbose_D2_LK4_1, SK_"test_getVerbose_D2_LK4_1")
539 !call test%run(test_setVerbose_D2_LK4_1, SK_"test_setVerbose_D2_LK4_1")
540#endif
541#if LK3_ENABLED
542 call test%run(test_getVerbose_D2_LK3_1, SK_"test_getVerbose_D2_LK3_1")
543 !call test%run(test_setVerbose_D2_LK3_1, SK_"test_setVerbose_D2_LK3_1")
544#endif
545#if LK2_ENABLED
546 call test%run(test_getVerbose_D2_LK2_1, SK_"test_getVerbose_D2_LK2_1")
547 !call test%run(test_setVerbose_D2_LK2_1, SK_"test_setVerbose_D2_LK2_1")
548#endif
549#if LK1_ENABLED
550 call test%run(test_getVerbose_D2_LK1_1, SK_"test_getVerbose_D2_LK1_1")
551 !call test%run(test_setVerbose_D2_LK1_1, SK_"test_setVerbose_D2_LK1_1")
552#endif
553
554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
555
556#if CK5_ENABLED
557 call test%run(test_getVerbose_D2_CK5_1, SK_"test_getVerbose_D2_CK5_1")
558 !call test%run(test_setVerbose_D2_CK5_1, SK_"test_setVerbose_D2_CK5_1")
559#endif
560#if CK4_ENABLED
561 call test%run(test_getVerbose_D2_CK4_1, SK_"test_getVerbose_D2_CK4_1")
562 !call test%run(test_setVerbose_D2_CK4_1, SK_"test_setVerbose_D2_CK4_1")
563#endif
564#if CK3_ENABLED
565 call test%run(test_getVerbose_D2_CK3_1, SK_"test_getVerbose_D2_CK3_1")
566 !call test%run(test_setVerbose_D2_CK3_1, SK_"test_setVerbose_D2_CK3_1")
567#endif
568#if CK2_ENABLED
569 call test%run(test_getVerbose_D2_CK2_1, SK_"test_getVerbose_D2_CK2_1")
570 !call test%run(test_setVerbose_D2_CK2_1, SK_"test_setVerbose_D2_CK2_1")
571#endif
572#if CK1_ENABLED
573 call test%run(test_getVerbose_D2_CK1_1, SK_"test_getVerbose_D2_CK1_1")
574 !call test%run(test_setVerbose_D2_CK1_1, SK_"test_setVerbose_D2_CK1_1")
575#endif
576
577 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
578
579#if RK5_ENABLED
580 call test%run(test_getVerbose_D2_RK5_1, SK_"test_getVerbose_D2_RK5_1")
581 !call test%run(test_setVerbose_D2_RK5_1, SK_"test_setVerbose_D2_RK5_1")
582#endif
583#if RK4_ENABLED
584 call test%run(test_getVerbose_D2_RK4_1, SK_"test_getVerbose_D2_RK4_1")
585 !call test%run(test_setVerbose_D2_RK4_1, SK_"test_setVerbose_D2_RK4_1")
586#endif
587#if RK3_ENABLED
588 call test%run(test_getVerbose_D2_RK3_1, SK_"test_getVerbose_D2_RK3_1")
589 !call test%run(test_setVerbose_D2_RK3_1, SK_"test_setVerbose_D2_RK3_1")
590#endif
591#if RK2_ENABLED
592 call test%run(test_getVerbose_D2_RK2_1, SK_"test_getVerbose_D2_RK2_1")
593 !call test%run(test_setVerbose_D2_RK2_1, SK_"test_setVerbose_D2_RK2_1")
594#endif
595#if RK1_ENABLED
596 call test%run(test_getVerbose_D2_RK1_1, SK_"test_getVerbose_D2_RK1_1")
597 !call test%run(test_setVerbose_D2_RK1_1, SK_"test_setVerbose_D2_RK1_1")
598#endif
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601
602 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
604 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
606 call test%summarize()
607
608 end subroutine setTest
609
610!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611
612end module test_pm_arrayVerbose ! LCOV_EXCL_LINE
pm_arrayVerbose
This module contains procedures and generic interfaces for flattening (duplicating the elements of) a...
Definition: pm_arrayVerbose.F90:38
pm_arrayVerbose::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayVerbose.F90:59
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arrayVerbose
This module contains tests of the module pm_arrayVerbose.
Definition: test_pm_arrayVerbose.F90:27
test_pm_arrayVerbose::test
type(test_type) test
Definition: test_pm_arrayVerbose.F90:36
test_pm_arrayVerbose::setTest
subroutine setTest()
Definition: test_pm_arrayVerbose.F90:326
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