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
18 : !> This module contains tests of the module [pm_arrayVerbose](@ref pm_arrayVerbose).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : module 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 :
321 : contains
322 :
323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
324 :
325 1 : subroutine setTest()
326 :
327 : implicit none
328 :
329 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : call test%summarize()
607 :
608 1 : end subroutine setTest
609 :
610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611 :
612 : end module test_pm_arrayVerbose ! LCOV_EXCL_LINE
|
