ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayPad.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_arrayPad
28
29 use pm_arrayPad
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#if SK5_ENABLED
45 module function test_getPadded_D0_SK5() result(assertion); logical(LK) :: assertion; end function
46 module function test_setPadded_D0_SK5() result(assertion); logical(LK) :: assertion; end function
47#endif
48#if SK4_ENABLED
49 module function test_getPadded_D0_SK4() result(assertion); logical(LK) :: assertion; end function
50 module function test_setPadded_D0_SK4() result(assertion); logical(LK) :: assertion; end function
51#endif
52#if SK3_ENABLED
53 module function test_getPadded_D0_SK3() result(assertion); logical(LK) :: assertion; end function
54 module function test_setPadded_D0_SK3() result(assertion); logical(LK) :: assertion; end function
55#endif
56#if SK2_ENABLED
57 module function test_getPadded_D0_SK2() result(assertion); logical(LK) :: assertion; end function
58 module function test_setPadded_D0_SK2() result(assertion); logical(LK) :: assertion; end function
59#endif
60#if SK1_ENABLED
61 module function test_getPadded_D0_SK1() result(assertion); logical(LK) :: assertion; end function
62 module function test_setPadded_D0_SK1() result(assertion); logical(LK) :: assertion; end function
63#endif
64
65 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66
67#if SK5_ENABLED
68 module function test_getPadded_D1_SK5() result(assertion); logical(LK) :: assertion; end function
69 module function test_setPadded_D1_SK5() result(assertion); logical(LK) :: assertion; end function
70#endif
71#if SK4_ENABLED
72 module function test_getPadded_D1_SK4() result(assertion); logical(LK) :: assertion; end function
73 module function test_setPadded_D1_SK4() result(assertion); logical(LK) :: assertion; end function
74#endif
75#if SK3_ENABLED
76 module function test_getPadded_D1_SK3() result(assertion); logical(LK) :: assertion; end function
77 module function test_setPadded_D1_SK3() result(assertion); logical(LK) :: assertion; end function
78#endif
79#if SK2_ENABLED
80 module function test_getPadded_D1_SK2() result(assertion); logical(LK) :: assertion; end function
81 module function test_setPadded_D1_SK2() result(assertion); logical(LK) :: assertion; end function
82#endif
83#if SK1_ENABLED
84 module function test_getPadded_D1_SK1() result(assertion); logical(LK) :: assertion; end function
85 module function test_setPadded_D1_SK1() result(assertion); logical(LK) :: assertion; end function
86#endif
87
88 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89
90#if IK5_ENABLED
91 module function test_getPadded_D1_IK5() result(assertion); logical(LK) :: assertion; end function
92 module function test_setPadded_D1_IK5() result(assertion); logical(LK) :: assertion; end function
93#endif
94#if IK4_ENABLED
95 module function test_getPadded_D1_IK4() result(assertion); logical(LK) :: assertion; end function
96 module function test_setPadded_D1_IK4() result(assertion); logical(LK) :: assertion; end function
97#endif
98#if IK3_ENABLED
99 module function test_getPadded_D1_IK3() result(assertion); logical(LK) :: assertion; end function
100 module function test_setPadded_D1_IK3() result(assertion); logical(LK) :: assertion; end function
101#endif
102#if IK2_ENABLED
103 module function test_getPadded_D1_IK2() result(assertion); logical(LK) :: assertion; end function
104 module function test_setPadded_D1_IK2() result(assertion); logical(LK) :: assertion; end function
105#endif
106#if IK1_ENABLED
107 module function test_getPadded_D1_IK1() result(assertion); logical(LK) :: assertion; end function
108 module function test_setPadded_D1_IK1() result(assertion); logical(LK) :: assertion; end function
109#endif
110
111 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112
113#if LK5_ENABLED
114 module function test_getPadded_D1_LK5() result(assertion); logical(LK) :: assertion; end function
115 module function test_setPadded_D1_LK5() result(assertion); logical(LK) :: assertion; end function
116#endif
117#if LK4_ENABLED
118 module function test_getPadded_D1_LK4() result(assertion); logical(LK) :: assertion; end function
119 module function test_setPadded_D1_LK4() result(assertion); logical(LK) :: assertion; end function
120#endif
121#if LK3_ENABLED
122 module function test_getPadded_D1_LK3() result(assertion); logical(LK) :: assertion; end function
123 module function test_setPadded_D1_LK3() result(assertion); logical(LK) :: assertion; end function
124#endif
125#if LK2_ENABLED
126 module function test_getPadded_D1_LK2() result(assertion); logical(LK) :: assertion; end function
127 module function test_setPadded_D1_LK2() result(assertion); logical(LK) :: assertion; end function
128#endif
129#if LK1_ENABLED
130 module function test_getPadded_D1_LK1() result(assertion); logical(LK) :: assertion; end function
131 module function test_setPadded_D1_LK1() result(assertion); logical(LK) :: assertion; end function
132#endif
133
134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
135
136#if CK5_ENABLED
137 module function test_getPadded_D1_CK5() result(assertion); logical(LK) :: assertion; end function
138 module function test_setPadded_D1_CK5() result(assertion); logical(LK) :: assertion; end function
139#endif
140#if CK4_ENABLED
141 module function test_getPadded_D1_CK4() result(assertion); logical(LK) :: assertion; end function
142 module function test_setPadded_D1_CK4() result(assertion); logical(LK) :: assertion; end function
143#endif
144#if CK3_ENABLED
145 module function test_getPadded_D1_CK3() result(assertion); logical(LK) :: assertion; end function
146 module function test_setPadded_D1_CK3() result(assertion); logical(LK) :: assertion; end function
147#endif
148#if CK2_ENABLED
149 module function test_getPadded_D1_CK2() result(assertion); logical(LK) :: assertion; end function
150 module function test_setPadded_D1_CK2() result(assertion); logical(LK) :: assertion; end function
151#endif
152#if CK1_ENABLED
153 module function test_getPadded_D1_CK1() result(assertion); logical(LK) :: assertion; end function
154 module function test_setPadded_D1_CK1() result(assertion); logical(LK) :: assertion; end function
155#endif
156
157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
158
159#if RK5_ENABLED
160 module function test_getPadded_D1_RK5() result(assertion); logical(LK) :: assertion; end function
161 module function test_setPadded_D1_RK5() result(assertion); logical(LK) :: assertion; end function
162#endif
163#if RK4_ENABLED
164 module function test_getPadded_D1_RK4() result(assertion); logical(LK) :: assertion; end function
165 module function test_setPadded_D1_RK4() result(assertion); logical(LK) :: assertion; end function
166#endif
167#if RK3_ENABLED
168 module function test_getPadded_D1_RK3() result(assertion); logical(LK) :: assertion; end function
169 module function test_setPadded_D1_RK3() result(assertion); logical(LK) :: assertion; end function
170#endif
171#if RK2_ENABLED
172 module function test_getPadded_D1_RK2() result(assertion); logical(LK) :: assertion; end function
173 module function test_setPadded_D1_RK2() result(assertion); logical(LK) :: assertion; end function
174#endif
175#if RK1_ENABLED
176 module function test_getPadded_D1_RK1() result(assertion); logical(LK) :: assertion; end function
177 module function test_setPadded_D1_RK1() result(assertion); logical(LK) :: assertion; end function
178#endif
179
180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
181
182 end interface
183
184!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
185
186 interface
187
188 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
189
190#if SK5_ENABLED
191 module function test_getPaddedl_D0_SK5() result(assertion); logical(LK) :: assertion; end function
192 module function test_setPaddedl_D0_SK5() result(assertion); logical(LK) :: assertion; end function
193#endif
194#if SK4_ENABLED
195 module function test_getPaddedl_D0_SK4() result(assertion); logical(LK) :: assertion; end function
196 module function test_setPaddedl_D0_SK4() result(assertion); logical(LK) :: assertion; end function
197#endif
198#if SK3_ENABLED
199 module function test_getPaddedl_D0_SK3() result(assertion); logical(LK) :: assertion; end function
200 module function test_setPaddedl_D0_SK3() result(assertion); logical(LK) :: assertion; end function
201#endif
202#if SK2_ENABLED
203 module function test_getPaddedl_D0_SK2() result(assertion); logical(LK) :: assertion; end function
204 module function test_setPaddedl_D0_SK2() result(assertion); logical(LK) :: assertion; end function
205#endif
206#if SK1_ENABLED
207 module function test_getPaddedl_D0_SK1() result(assertion); logical(LK) :: assertion; end function
208 module function test_setPaddedl_D0_SK1() result(assertion); logical(LK) :: assertion; end function
209#endif
210
211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
212
213#if SK5_ENABLED
214 module function test_getPaddedl_D1_SK5() result(assertion); logical(LK) :: assertion; end function
215 module function test_setPaddedl_D1_SK5() result(assertion); logical(LK) :: assertion; end function
216#endif
217#if SK4_ENABLED
218 module function test_getPaddedl_D1_SK4() result(assertion); logical(LK) :: assertion; end function
219 module function test_setPaddedl_D1_SK4() result(assertion); logical(LK) :: assertion; end function
220#endif
221#if SK3_ENABLED
222 module function test_getPaddedl_D1_SK3() result(assertion); logical(LK) :: assertion; end function
223 module function test_setPaddedl_D1_SK3() result(assertion); logical(LK) :: assertion; end function
224#endif
225#if SK2_ENABLED
226 module function test_getPaddedl_D1_SK2() result(assertion); logical(LK) :: assertion; end function
227 module function test_setPaddedl_D1_SK2() result(assertion); logical(LK) :: assertion; end function
228#endif
229#if SK1_ENABLED
230 module function test_getPaddedl_D1_SK1() result(assertion); logical(LK) :: assertion; end function
231 module function test_setPaddedl_D1_SK1() result(assertion); logical(LK) :: assertion; end function
232#endif
233
234 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
235
236#if IK5_ENABLED
237 module function test_getPaddedl_D1_IK5() result(assertion); logical(LK) :: assertion; end function
238 module function test_setPaddedl_D1_IK5() result(assertion); logical(LK) :: assertion; end function
239#endif
240#if IK4_ENABLED
241 module function test_getPaddedl_D1_IK4() result(assertion); logical(LK) :: assertion; end function
242 module function test_setPaddedl_D1_IK4() result(assertion); logical(LK) :: assertion; end function
243#endif
244#if IK3_ENABLED
245 module function test_getPaddedl_D1_IK3() result(assertion); logical(LK) :: assertion; end function
246 module function test_setPaddedl_D1_IK3() result(assertion); logical(LK) :: assertion; end function
247#endif
248#if IK2_ENABLED
249 module function test_getPaddedl_D1_IK2() result(assertion); logical(LK) :: assertion; end function
250 module function test_setPaddedl_D1_IK2() result(assertion); logical(LK) :: assertion; end function
251#endif
252#if IK1_ENABLED
253 module function test_getPaddedl_D1_IK1() result(assertion); logical(LK) :: assertion; end function
254 module function test_setPaddedl_D1_IK1() result(assertion); logical(LK) :: assertion; end function
255#endif
256
257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
258
259#if LK5_ENABLED
260 module function test_getPaddedl_D1_LK5() result(assertion); logical(LK) :: assertion; end function
261 module function test_setPaddedl_D1_LK5() result(assertion); logical(LK) :: assertion; end function
262#endif
263#if LK4_ENABLED
264 module function test_getPaddedl_D1_LK4() result(assertion); logical(LK) :: assertion; end function
265 module function test_setPaddedl_D1_LK4() result(assertion); logical(LK) :: assertion; end function
266#endif
267#if LK3_ENABLED
268 module function test_getPaddedl_D1_LK3() result(assertion); logical(LK) :: assertion; end function
269 module function test_setPaddedl_D1_LK3() result(assertion); logical(LK) :: assertion; end function
270#endif
271#if LK2_ENABLED
272 module function test_getPaddedl_D1_LK2() result(assertion); logical(LK) :: assertion; end function
273 module function test_setPaddedl_D1_LK2() result(assertion); logical(LK) :: assertion; end function
274#endif
275#if LK1_ENABLED
276 module function test_getPaddedl_D1_LK1() result(assertion); logical(LK) :: assertion; end function
277 module function test_setPaddedl_D1_LK1() result(assertion); logical(LK) :: assertion; end function
278#endif
279
280 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281
282#if CK5_ENABLED
283 module function test_getPaddedl_D1_CK5() result(assertion); logical(LK) :: assertion; end function
284 module function test_setPaddedl_D1_CK5() result(assertion); logical(LK) :: assertion; end function
285#endif
286#if CK4_ENABLED
287 module function test_getPaddedl_D1_CK4() result(assertion); logical(LK) :: assertion; end function
288 module function test_setPaddedl_D1_CK4() result(assertion); logical(LK) :: assertion; end function
289#endif
290#if CK3_ENABLED
291 module function test_getPaddedl_D1_CK3() result(assertion); logical(LK) :: assertion; end function
292 module function test_setPaddedl_D1_CK3() result(assertion); logical(LK) :: assertion; end function
293#endif
294#if CK2_ENABLED
295 module function test_getPaddedl_D1_CK2() result(assertion); logical(LK) :: assertion; end function
296 module function test_setPaddedl_D1_CK2() result(assertion); logical(LK) :: assertion; end function
297#endif
298#if CK1_ENABLED
299 module function test_getPaddedl_D1_CK1() result(assertion); logical(LK) :: assertion; end function
300 module function test_setPaddedl_D1_CK1() result(assertion); logical(LK) :: assertion; end function
301#endif
302
303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
304
305#if RK5_ENABLED
306 module function test_getPaddedl_D1_RK5() result(assertion); logical(LK) :: assertion; end function
307 module function test_setPaddedl_D1_RK5() result(assertion); logical(LK) :: assertion; end function
308#endif
309#if RK4_ENABLED
310 module function test_getPaddedl_D1_RK4() result(assertion); logical(LK) :: assertion; end function
311 module function test_setPaddedl_D1_RK4() result(assertion); logical(LK) :: assertion; end function
312#endif
313#if RK3_ENABLED
314 module function test_getPaddedl_D1_RK3() result(assertion); logical(LK) :: assertion; end function
315 module function test_setPaddedl_D1_RK3() result(assertion); logical(LK) :: assertion; end function
316#endif
317#if RK2_ENABLED
318 module function test_getPaddedl_D1_RK2() result(assertion); logical(LK) :: assertion; end function
319 module function test_setPaddedl_D1_RK2() result(assertion); logical(LK) :: assertion; end function
320#endif
321#if RK1_ENABLED
322 module function test_getPaddedl_D1_RK1() result(assertion); logical(LK) :: assertion; end function
323 module function test_setPaddedl_D1_RK1() result(assertion); logical(LK) :: assertion; end function
324#endif
325
326 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
327
328 end interface
329
330!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
331
332 interface
333
334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
335
336#if SK5_ENABLED
337 module function test_getPaddedr_D0_SK5() result(assertion); logical(LK) :: assertion; end function
338 module function test_setPaddedr_D0_SK5() result(assertion); logical(LK) :: assertion; end function
339#endif
340#if SK4_ENABLED
341 module function test_getPaddedr_D0_SK4() result(assertion); logical(LK) :: assertion; end function
342 module function test_setPaddedr_D0_SK4() result(assertion); logical(LK) :: assertion; end function
343#endif
344#if SK3_ENABLED
345 module function test_getPaddedr_D0_SK3() result(assertion); logical(LK) :: assertion; end function
346 module function test_setPaddedr_D0_SK3() result(assertion); logical(LK) :: assertion; end function
347#endif
348#if SK2_ENABLED
349 module function test_getPaddedr_D0_SK2() result(assertion); logical(LK) :: assertion; end function
350 module function test_setPaddedr_D0_SK2() result(assertion); logical(LK) :: assertion; end function
351#endif
352#if SK1_ENABLED
353 module function test_getPaddedr_D0_SK1() result(assertion); logical(LK) :: assertion; end function
354 module function test_setPaddedr_D0_SK1() result(assertion); logical(LK) :: assertion; end function
355#endif
356
357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
358
359#if SK5_ENABLED
360 module function test_getPaddedr_D1_SK5() result(assertion); logical(LK) :: assertion; end function
361 module function test_setPaddedr_D1_SK5() result(assertion); logical(LK) :: assertion; end function
362#endif
363#if SK4_ENABLED
364 module function test_getPaddedr_D1_SK4() result(assertion); logical(LK) :: assertion; end function
365 module function test_setPaddedr_D1_SK4() result(assertion); logical(LK) :: assertion; end function
366#endif
367#if SK3_ENABLED
368 module function test_getPaddedr_D1_SK3() result(assertion); logical(LK) :: assertion; end function
369 module function test_setPaddedr_D1_SK3() result(assertion); logical(LK) :: assertion; end function
370#endif
371#if SK2_ENABLED
372 module function test_getPaddedr_D1_SK2() result(assertion); logical(LK) :: assertion; end function
373 module function test_setPaddedr_D1_SK2() result(assertion); logical(LK) :: assertion; end function
374#endif
375#if SK1_ENABLED
376 module function test_getPaddedr_D1_SK1() result(assertion); logical(LK) :: assertion; end function
377 module function test_setPaddedr_D1_SK1() result(assertion); logical(LK) :: assertion; end function
378#endif
379
380 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
381
382#if IK5_ENABLED
383 module function test_getPaddedr_D1_IK5() result(assertion); logical(LK) :: assertion; end function
384 module function test_setPaddedr_D1_IK5() result(assertion); logical(LK) :: assertion; end function
385#endif
386#if IK4_ENABLED
387 module function test_getPaddedr_D1_IK4() result(assertion); logical(LK) :: assertion; end function
388 module function test_setPaddedr_D1_IK4() result(assertion); logical(LK) :: assertion; end function
389#endif
390#if IK3_ENABLED
391 module function test_getPaddedr_D1_IK3() result(assertion); logical(LK) :: assertion; end function
392 module function test_setPaddedr_D1_IK3() result(assertion); logical(LK) :: assertion; end function
393#endif
394#if IK2_ENABLED
395 module function test_getPaddedr_D1_IK2() result(assertion); logical(LK) :: assertion; end function
396 module function test_setPaddedr_D1_IK2() result(assertion); logical(LK) :: assertion; end function
397#endif
398#if IK1_ENABLED
399 module function test_getPaddedr_D1_IK1() result(assertion); logical(LK) :: assertion; end function
400 module function test_setPaddedr_D1_IK1() result(assertion); logical(LK) :: assertion; end function
401#endif
402
403 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
404
405#if LK5_ENABLED
406 module function test_getPaddedr_D1_LK5() result(assertion); logical(LK) :: assertion; end function
407 module function test_setPaddedr_D1_LK5() result(assertion); logical(LK) :: assertion; end function
408#endif
409#if LK4_ENABLED
410 module function test_getPaddedr_D1_LK4() result(assertion); logical(LK) :: assertion; end function
411 module function test_setPaddedr_D1_LK4() result(assertion); logical(LK) :: assertion; end function
412#endif
413#if LK3_ENABLED
414 module function test_getPaddedr_D1_LK3() result(assertion); logical(LK) :: assertion; end function
415 module function test_setPaddedr_D1_LK3() result(assertion); logical(LK) :: assertion; end function
416#endif
417#if LK2_ENABLED
418 module function test_getPaddedr_D1_LK2() result(assertion); logical(LK) :: assertion; end function
419 module function test_setPaddedr_D1_LK2() result(assertion); logical(LK) :: assertion; end function
420#endif
421#if LK1_ENABLED
422 module function test_getPaddedr_D1_LK1() result(assertion); logical(LK) :: assertion; end function
423 module function test_setPaddedr_D1_LK1() result(assertion); logical(LK) :: assertion; end function
424#endif
425
426 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
427
428#if CK5_ENABLED
429 module function test_getPaddedr_D1_CK5() result(assertion); logical(LK) :: assertion; end function
430 module function test_setPaddedr_D1_CK5() result(assertion); logical(LK) :: assertion; end function
431#endif
432#if CK4_ENABLED
433 module function test_getPaddedr_D1_CK4() result(assertion); logical(LK) :: assertion; end function
434 module function test_setPaddedr_D1_CK4() result(assertion); logical(LK) :: assertion; end function
435#endif
436#if CK3_ENABLED
437 module function test_getPaddedr_D1_CK3() result(assertion); logical(LK) :: assertion; end function
438 module function test_setPaddedr_D1_CK3() result(assertion); logical(LK) :: assertion; end function
439#endif
440#if CK2_ENABLED
441 module function test_getPaddedr_D1_CK2() result(assertion); logical(LK) :: assertion; end function
442 module function test_setPaddedr_D1_CK2() result(assertion); logical(LK) :: assertion; end function
443#endif
444#if CK1_ENABLED
445 module function test_getPaddedr_D1_CK1() result(assertion); logical(LK) :: assertion; end function
446 module function test_setPaddedr_D1_CK1() result(assertion); logical(LK) :: assertion; end function
447#endif
448
449 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
450
451#if RK5_ENABLED
452 module function test_getPaddedr_D1_RK5() result(assertion); logical(LK) :: assertion; end function
453 module function test_setPaddedr_D1_RK5() result(assertion); logical(LK) :: assertion; end function
454#endif
455#if RK4_ENABLED
456 module function test_getPaddedr_D1_RK4() result(assertion); logical(LK) :: assertion; end function
457 module function test_setPaddedr_D1_RK4() result(assertion); logical(LK) :: assertion; end function
458#endif
459#if RK3_ENABLED
460 module function test_getPaddedr_D1_RK3() result(assertion); logical(LK) :: assertion; end function
461 module function test_setPaddedr_D1_RK3() result(assertion); logical(LK) :: assertion; end function
462#endif
463#if RK2_ENABLED
464 module function test_getPaddedr_D1_RK2() result(assertion); logical(LK) :: assertion; end function
465 module function test_setPaddedr_D1_RK2() result(assertion); logical(LK) :: assertion; end function
466#endif
467#if RK1_ENABLED
468 module function test_getPaddedr_D1_RK1() result(assertion); logical(LK) :: assertion; end function
469 module function test_setPaddedr_D1_RK1() result(assertion); logical(LK) :: assertion; end function
470#endif
471
472 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
473
474 end interface
475
476!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
477
478contains
479
480!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
481
482 subroutine setTest()
483
484 implicit none
485
486 test = test_type(MODULE_NAME)
487
488 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
489 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
490 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
491
492 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
493
494#if SK5_ENABLED
495 call test%run(test_getPadded_D0_SK5, SK_"test_getPadded_D0_SK5")
496 call test%run(test_setPadded_D0_SK5, SK_"test_setPadded_D0_SK5")
497#endif
498#if SK4_ENABLED
499 call test%run(test_getPadded_D0_SK4, SK_"test_getPadded_D0_SK4")
500 call test%run(test_setPadded_D0_SK4, SK_"test_setPadded_D0_SK4")
501#endif
502#if SK3_ENABLED
503 call test%run(test_getPadded_D0_SK3, SK_"test_getPadded_D0_SK3")
504 call test%run(test_setPadded_D0_SK3, SK_"test_setPadded_D0_SK3")
505#endif
506#if SK2_ENABLED
507 call test%run(test_getPadded_D0_SK2, SK_"test_getPadded_D0_SK2")
508 call test%run(test_setPadded_D0_SK2, SK_"test_setPadded_D0_SK2")
509#endif
510#if SK1_ENABLED
511 call test%run(test_getPadded_D0_SK1, SK_"test_getPadded_D0_SK1")
512 call test%run(test_setPadded_D0_SK1, SK_"test_setPadded_D0_SK1")
513#endif
514
515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
516
517#if SK5_ENABLED
518 call test%run(test_getPadded_D1_SK5, SK_"test_getPadded_D1_SK5")
519 call test%run(test_setPadded_D1_SK5, SK_"test_setPadded_D1_SK5")
520#endif
521#if SK4_ENABLED
522 call test%run(test_getPadded_D1_SK4, SK_"test_getPadded_D1_SK4")
523 call test%run(test_setPadded_D1_SK4, SK_"test_setPadded_D1_SK4")
524#endif
525#if SK3_ENABLED
526 call test%run(test_getPadded_D1_SK3, SK_"test_getPadded_D1_SK3")
527 call test%run(test_setPadded_D1_SK3, SK_"test_setPadded_D1_SK3")
528#endif
529#if SK2_ENABLED
530 call test%run(test_getPadded_D1_SK2, SK_"test_getPadded_D1_SK2")
531 call test%run(test_setPadded_D1_SK2, SK_"test_setPadded_D1_SK2")
532#endif
533#if SK1_ENABLED
534 call test%run(test_getPadded_D1_SK1, SK_"test_getPadded_D1_SK1")
535 call test%run(test_setPadded_D1_SK1, SK_"test_setPadded_D1_SK1")
536#endif
537
538 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539
540#if IK5_ENABLED
541 call test%run(test_getPadded_D1_IK5, SK_"test_getPadded_D1_IK5")
542 call test%run(test_setPadded_D1_IK5, SK_"test_setPadded_D1_IK5")
543#endif
544#if IK4_ENABLED
545 call test%run(test_getPadded_D1_IK4, SK_"test_getPadded_D1_IK4")
546 call test%run(test_setPadded_D1_IK4, SK_"test_setPadded_D1_IK4")
547#endif
548#if IK3_ENABLED
549 call test%run(test_getPadded_D1_IK3, SK_"test_getPadded_D1_IK3")
550 call test%run(test_setPadded_D1_IK3, SK_"test_setPadded_D1_IK3")
551#endif
552#if IK2_ENABLED
553 call test%run(test_getPadded_D1_IK2, SK_"test_getPadded_D1_IK2")
554 call test%run(test_setPadded_D1_IK2, SK_"test_setPadded_D1_IK2")
555#endif
556#if IK1_ENABLED
557 call test%run(test_getPadded_D1_IK1, SK_"test_getPadded_D1_IK1")
558 call test%run(test_setPadded_D1_IK1, SK_"test_setPadded_D1_IK1")
559#endif
560
561 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562
563#if LK5_ENABLED
564 call test%run(test_getPadded_D1_LK5, SK_"test_getPadded_D1_LK5")
565 call test%run(test_setPadded_D1_LK5, SK_"test_setPadded_D1_LK5")
566#endif
567#if LK4_ENABLED
568 call test%run(test_getPadded_D1_LK4, SK_"test_getPadded_D1_LK4")
569 call test%run(test_setPadded_D1_LK4, SK_"test_setPadded_D1_LK4")
570#endif
571#if LK3_ENABLED
572 call test%run(test_getPadded_D1_LK3, SK_"test_getPadded_D1_LK3")
573 call test%run(test_setPadded_D1_LK3, SK_"test_setPadded_D1_LK3")
574#endif
575#if LK2_ENABLED
576 call test%run(test_getPadded_D1_LK2, SK_"test_getPadded_D1_LK2")
577 call test%run(test_setPadded_D1_LK2, SK_"test_setPadded_D1_LK2")
578#endif
579#if LK1_ENABLED
580 call test%run(test_getPadded_D1_LK1, SK_"test_getPadded_D1_LK1")
581 call test%run(test_setPadded_D1_LK1, SK_"test_setPadded_D1_LK1")
582#endif
583
584 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
585
586#if CK5_ENABLED
587 call test%run(test_getPadded_D1_CK5, SK_"test_getPadded_D1_CK5")
588 call test%run(test_setPadded_D1_CK5, SK_"test_setPadded_D1_CK5")
589#endif
590#if CK4_ENABLED
591 call test%run(test_getPadded_D1_CK4, SK_"test_getPadded_D1_CK4")
592 call test%run(test_setPadded_D1_CK4, SK_"test_setPadded_D1_CK4")
593#endif
594#if CK3_ENABLED
595 call test%run(test_getPadded_D1_CK3, SK_"test_getPadded_D1_CK3")
596 call test%run(test_setPadded_D1_CK3, SK_"test_setPadded_D1_CK3")
597#endif
598#if CK2_ENABLED
599 call test%run(test_getPadded_D1_CK2, SK_"test_getPadded_D1_CK2")
600 call test%run(test_setPadded_D1_CK2, SK_"test_setPadded_D1_CK2")
601#endif
602#if CK1_ENABLED
603 call test%run(test_getPadded_D1_CK1, SK_"test_getPadded_D1_CK1")
604 call test%run(test_setPadded_D1_CK1, SK_"test_setPadded_D1_CK1")
605#endif
606
607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
608
609#if RK5_ENABLED
610 call test%run(test_getPadded_D1_RK5, SK_"test_getPadded_D1_RK5")
611 call test%run(test_setPadded_D1_RK5, SK_"test_setPadded_D1_RK5")
612#endif
613#if RK4_ENABLED
614 call test%run(test_getPadded_D1_RK4, SK_"test_getPadded_D1_RK4")
615 call test%run(test_setPadded_D1_RK4, SK_"test_setPadded_D1_RK4")
616#endif
617#if RK3_ENABLED
618 call test%run(test_getPadded_D1_RK3, SK_"test_getPadded_D1_RK3")
619 call test%run(test_setPadded_D1_RK3, SK_"test_setPadded_D1_RK3")
620#endif
621#if RK2_ENABLED
622 call test%run(test_getPadded_D1_RK2, SK_"test_getPadded_D1_RK2")
623 call test%run(test_setPadded_D1_RK2, SK_"test_setPadded_D1_RK2")
624#endif
625#if RK1_ENABLED
626 call test%run(test_getPadded_D1_RK1, SK_"test_getPadded_D1_RK1")
627 call test%run(test_setPadded_D1_RK1, SK_"test_setPadded_D1_RK1")
628#endif
629
630 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
631
632 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
634 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
635
636 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
637
638#if SK5_ENABLED
639 call test%run(test_getPaddedl_D0_SK5, SK_"test_getPaddedl_D0_SK5")
640 call test%run(test_setPaddedl_D0_SK5, SK_"test_setPaddedl_D0_SK5")
641#endif
642#if SK4_ENABLED
643 call test%run(test_getPaddedl_D0_SK4, SK_"test_getPaddedl_D0_SK4")
644 call test%run(test_setPaddedl_D0_SK4, SK_"test_setPaddedl_D0_SK4")
645#endif
646#if SK3_ENABLED
647 call test%run(test_getPaddedl_D0_SK3, SK_"test_getPaddedl_D0_SK3")
648 call test%run(test_setPaddedl_D0_SK3, SK_"test_setPaddedl_D0_SK3")
649#endif
650#if SK2_ENABLED
651 call test%run(test_getPaddedl_D0_SK2, SK_"test_getPaddedl_D0_SK2")
652 call test%run(test_setPaddedl_D0_SK2, SK_"test_setPaddedl_D0_SK2")
653#endif
654#if SK1_ENABLED
655 call test%run(test_getPaddedl_D0_SK1, SK_"test_getPaddedl_D0_SK1")
656 call test%run(test_setPaddedl_D0_SK1, SK_"test_setPaddedl_D0_SK1")
657#endif
658
659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
660
661#if SK5_ENABLED
662 call test%run(test_getPaddedl_D1_SK5, SK_"test_getPaddedl_D1_SK5")
663 call test%run(test_setPaddedl_D1_SK5, SK_"test_setPaddedl_D1_SK5")
664#endif
665#if SK4_ENABLED
666 call test%run(test_getPaddedl_D1_SK4, SK_"test_getPaddedl_D1_SK4")
667 call test%run(test_setPaddedl_D1_SK4, SK_"test_setPaddedl_D1_SK4")
668#endif
669#if SK3_ENABLED
670 call test%run(test_getPaddedl_D1_SK3, SK_"test_getPaddedl_D1_SK3")
671 call test%run(test_setPaddedl_D1_SK3, SK_"test_setPaddedl_D1_SK3")
672#endif
673#if SK2_ENABLED
674 call test%run(test_getPaddedl_D1_SK2, SK_"test_getPaddedl_D1_SK2")
675 call test%run(test_setPaddedl_D1_SK2, SK_"test_setPaddedl_D1_SK2")
676#endif
677#if SK1_ENABLED
678 call test%run(test_getPaddedl_D1_SK1, SK_"test_getPaddedl_D1_SK1")
679 call test%run(test_setPaddedl_D1_SK1, SK_"test_setPaddedl_D1_SK1")
680#endif
681
682 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
683
684#if IK5_ENABLED
685 call test%run(test_getPaddedl_D1_IK5, SK_"test_getPaddedl_D1_IK5")
686 call test%run(test_setPaddedl_D1_IK5, SK_"test_setPaddedl_D1_IK5")
687#endif
688#if IK4_ENABLED
689 call test%run(test_getPaddedl_D1_IK4, SK_"test_getPaddedl_D1_IK4")
690 call test%run(test_setPaddedl_D1_IK4, SK_"test_setPaddedl_D1_IK4")
691#endif
692#if IK3_ENABLED
693 call test%run(test_getPaddedl_D1_IK3, SK_"test_getPaddedl_D1_IK3")
694 call test%run(test_setPaddedl_D1_IK3, SK_"test_setPaddedl_D1_IK3")
695#endif
696#if IK2_ENABLED
697 call test%run(test_getPaddedl_D1_IK2, SK_"test_getPaddedl_D1_IK2")
698 call test%run(test_setPaddedl_D1_IK2, SK_"test_setPaddedl_D1_IK2")
699#endif
700#if IK1_ENABLED
701 call test%run(test_getPaddedl_D1_IK1, SK_"test_getPaddedl_D1_IK1")
702 call test%run(test_setPaddedl_D1_IK1, SK_"test_setPaddedl_D1_IK1")
703#endif
704
705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
706
707#if LK5_ENABLED
708 call test%run(test_getPaddedl_D1_LK5, SK_"test_getPaddedl_D1_LK5")
709 call test%run(test_setPaddedl_D1_LK5, SK_"test_setPaddedl_D1_LK5")
710#endif
711#if LK4_ENABLED
712 call test%run(test_getPaddedl_D1_LK4, SK_"test_getPaddedl_D1_LK4")
713 call test%run(test_setPaddedl_D1_LK4, SK_"test_setPaddedl_D1_LK4")
714#endif
715#if LK3_ENABLED
716 call test%run(test_getPaddedl_D1_LK3, SK_"test_getPaddedl_D1_LK3")
717 call test%run(test_setPaddedl_D1_LK3, SK_"test_setPaddedl_D1_LK3")
718#endif
719#if LK2_ENABLED
720 call test%run(test_getPaddedl_D1_LK2, SK_"test_getPaddedl_D1_LK2")
721 call test%run(test_setPaddedl_D1_LK2, SK_"test_setPaddedl_D1_LK2")
722#endif
723#if LK1_ENABLED
724 call test%run(test_getPaddedl_D1_LK1, SK_"test_getPaddedl_D1_LK1")
725 call test%run(test_setPaddedl_D1_LK1, SK_"test_setPaddedl_D1_LK1")
726#endif
727
728 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
729
730#if CK5_ENABLED
731 call test%run(test_getPaddedl_D1_CK5, SK_"test_getPaddedl_D1_CK5")
732 call test%run(test_setPaddedl_D1_CK5, SK_"test_setPaddedl_D1_CK5")
733#endif
734#if CK4_ENABLED
735 call test%run(test_getPaddedl_D1_CK4, SK_"test_getPaddedl_D1_CK4")
736 call test%run(test_setPaddedl_D1_CK4, SK_"test_setPaddedl_D1_CK4")
737#endif
738#if CK3_ENABLED
739 call test%run(test_getPaddedl_D1_CK3, SK_"test_getPaddedl_D1_CK3")
740 call test%run(test_setPaddedl_D1_CK3, SK_"test_setPaddedl_D1_CK3")
741#endif
742#if CK2_ENABLED
743 call test%run(test_getPaddedl_D1_CK2, SK_"test_getPaddedl_D1_CK2")
744 call test%run(test_setPaddedl_D1_CK2, SK_"test_setPaddedl_D1_CK2")
745#endif
746#if CK1_ENABLED
747 call test%run(test_getPaddedl_D1_CK1, SK_"test_getPaddedl_D1_CK1")
748 call test%run(test_setPaddedl_D1_CK1, SK_"test_setPaddedl_D1_CK1")
749#endif
750
751 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
752
753#if RK5_ENABLED
754 call test%run(test_getPaddedl_D1_RK5, SK_"test_getPaddedl_D1_RK5")
755 call test%run(test_setPaddedl_D1_RK5, SK_"test_setPaddedl_D1_RK5")
756#endif
757#if RK4_ENABLED
758 call test%run(test_getPaddedl_D1_RK4, SK_"test_getPaddedl_D1_RK4")
759 call test%run(test_setPaddedl_D1_RK4, SK_"test_setPaddedl_D1_RK4")
760#endif
761#if RK3_ENABLED
762 call test%run(test_getPaddedl_D1_RK3, SK_"test_getPaddedl_D1_RK3")
763 call test%run(test_setPaddedl_D1_RK3, SK_"test_setPaddedl_D1_RK3")
764#endif
765#if RK2_ENABLED
766 call test%run(test_getPaddedl_D1_RK2, SK_"test_getPaddedl_D1_RK2")
767 call test%run(test_setPaddedl_D1_RK2, SK_"test_setPaddedl_D1_RK2")
768#endif
769#if RK1_ENABLED
770 call test%run(test_getPaddedl_D1_RK1, SK_"test_getPaddedl_D1_RK1")
771 call test%run(test_setPaddedl_D1_RK1, SK_"test_setPaddedl_D1_RK1")
772#endif
773
774 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
775
776 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
778 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
779
780 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781
782#if SK5_ENABLED
783 call test%run(test_getPaddedr_D0_SK5, SK_"test_getPaddedr_D0_SK5")
784 call test%run(test_setPaddedr_D0_SK5, SK_"test_setPaddedr_D0_SK5")
785#endif
786#if SK4_ENABLED
787 call test%run(test_getPaddedr_D0_SK4, SK_"test_getPaddedr_D0_SK4")
788 call test%run(test_setPaddedr_D0_SK4, SK_"test_setPaddedr_D0_SK4")
789#endif
790#if SK3_ENABLED
791 call test%run(test_getPaddedr_D0_SK3, SK_"test_getPaddedr_D0_SK3")
792 call test%run(test_setPaddedr_D0_SK3, SK_"test_setPaddedr_D0_SK3")
793#endif
794#if SK2_ENABLED
795 call test%run(test_getPaddedr_D0_SK2, SK_"test_getPaddedr_D0_SK2")
796 call test%run(test_setPaddedr_D0_SK2, SK_"test_setPaddedr_D0_SK2")
797#endif
798#if SK1_ENABLED
799 call test%run(test_getPaddedr_D0_SK1, SK_"test_getPaddedr_D0_SK1")
800 call test%run(test_setPaddedr_D0_SK1, SK_"test_setPaddedr_D0_SK1")
801#endif
802
803 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
804
805#if SK5_ENABLED
806 call test%run(test_getPaddedr_D1_SK5, SK_"test_getPaddedr_D1_SK5")
807 call test%run(test_setPaddedr_D1_SK5, SK_"test_setPaddedr_D1_SK5")
808#endif
809#if SK4_ENABLED
810 call test%run(test_getPaddedr_D1_SK4, SK_"test_getPaddedr_D1_SK4")
811 call test%run(test_setPaddedr_D1_SK4, SK_"test_setPaddedr_D1_SK4")
812#endif
813#if SK3_ENABLED
814 call test%run(test_getPaddedr_D1_SK3, SK_"test_getPaddedr_D1_SK3")
815 call test%run(test_setPaddedr_D1_SK3, SK_"test_setPaddedr_D1_SK3")
816#endif
817#if SK2_ENABLED
818 call test%run(test_getPaddedr_D1_SK2, SK_"test_getPaddedr_D1_SK2")
819 call test%run(test_setPaddedr_D1_SK2, SK_"test_setPaddedr_D1_SK2")
820#endif
821#if SK1_ENABLED
822 call test%run(test_getPaddedr_D1_SK1, SK_"test_getPaddedr_D1_SK1")
823 call test%run(test_setPaddedr_D1_SK1, SK_"test_setPaddedr_D1_SK1")
824#endif
825
826 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
827
828#if IK5_ENABLED
829 call test%run(test_getPaddedr_D1_IK5, SK_"test_getPaddedr_D1_IK5")
830 call test%run(test_setPaddedr_D1_IK5, SK_"test_setPaddedr_D1_IK5")
831#endif
832#if IK4_ENABLED
833 call test%run(test_getPaddedr_D1_IK4, SK_"test_getPaddedr_D1_IK4")
834 call test%run(test_setPaddedr_D1_IK4, SK_"test_setPaddedr_D1_IK4")
835#endif
836#if IK3_ENABLED
837 call test%run(test_getPaddedr_D1_IK3, SK_"test_getPaddedr_D1_IK3")
838 call test%run(test_setPaddedr_D1_IK3, SK_"test_setPaddedr_D1_IK3")
839#endif
840#if IK2_ENABLED
841 call test%run(test_getPaddedr_D1_IK2, SK_"test_getPaddedr_D1_IK2")
842 call test%run(test_setPaddedr_D1_IK2, SK_"test_setPaddedr_D1_IK2")
843#endif
844#if IK1_ENABLED
845 call test%run(test_getPaddedr_D1_IK1, SK_"test_getPaddedr_D1_IK1")
846 call test%run(test_setPaddedr_D1_IK1, SK_"test_setPaddedr_D1_IK1")
847#endif
848
849 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
850
851#if LK5_ENABLED
852 call test%run(test_getPaddedr_D1_LK5, SK_"test_getPaddedr_D1_LK5")
853 call test%run(test_setPaddedr_D1_LK5, SK_"test_setPaddedr_D1_LK5")
854#endif
855#if LK4_ENABLED
856 call test%run(test_getPaddedr_D1_LK4, SK_"test_getPaddedr_D1_LK4")
857 call test%run(test_setPaddedr_D1_LK4, SK_"test_setPaddedr_D1_LK4")
858#endif
859#if LK3_ENABLED
860 call test%run(test_getPaddedr_D1_LK3, SK_"test_getPaddedr_D1_LK3")
861 call test%run(test_setPaddedr_D1_LK3, SK_"test_setPaddedr_D1_LK3")
862#endif
863#if LK2_ENABLED
864 call test%run(test_getPaddedr_D1_LK2, SK_"test_getPaddedr_D1_LK2")
865 call test%run(test_setPaddedr_D1_LK2, SK_"test_setPaddedr_D1_LK2")
866#endif
867#if LK1_ENABLED
868 call test%run(test_getPaddedr_D1_LK1, SK_"test_getPaddedr_D1_LK1")
869 call test%run(test_setPaddedr_D1_LK1, SK_"test_setPaddedr_D1_LK1")
870#endif
871
872 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
873
874#if CK5_ENABLED
875 call test%run(test_getPaddedr_D1_CK5, SK_"test_getPaddedr_D1_CK5")
876 call test%run(test_setPaddedr_D1_CK5, SK_"test_setPaddedr_D1_CK5")
877#endif
878#if CK4_ENABLED
879 call test%run(test_getPaddedr_D1_CK4, SK_"test_getPaddedr_D1_CK4")
880 call test%run(test_setPaddedr_D1_CK4, SK_"test_setPaddedr_D1_CK4")
881#endif
882#if CK3_ENABLED
883 call test%run(test_getPaddedr_D1_CK3, SK_"test_getPaddedr_D1_CK3")
884 call test%run(test_setPaddedr_D1_CK3, SK_"test_setPaddedr_D1_CK3")
885#endif
886#if CK2_ENABLED
887 call test%run(test_getPaddedr_D1_CK2, SK_"test_getPaddedr_D1_CK2")
888 call test%run(test_setPaddedr_D1_CK2, SK_"test_setPaddedr_D1_CK2")
889#endif
890#if CK1_ENABLED
891 call test%run(test_getPaddedr_D1_CK1, SK_"test_getPaddedr_D1_CK1")
892 call test%run(test_setPaddedr_D1_CK1, SK_"test_setPaddedr_D1_CK1")
893#endif
894
895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
896
897#if RK5_ENABLED
898 call test%run(test_getPaddedr_D1_RK5, SK_"test_getPaddedr_D1_RK5")
899 call test%run(test_setPaddedr_D1_RK5, SK_"test_setPaddedr_D1_RK5")
900#endif
901#if RK4_ENABLED
902 call test%run(test_getPaddedr_D1_RK4, SK_"test_getPaddedr_D1_RK4")
903 call test%run(test_setPaddedr_D1_RK4, SK_"test_setPaddedr_D1_RK4")
904#endif
905#if RK3_ENABLED
906 call test%run(test_getPaddedr_D1_RK3, SK_"test_getPaddedr_D1_RK3")
907 call test%run(test_setPaddedr_D1_RK3, SK_"test_setPaddedr_D1_RK3")
908#endif
909#if RK2_ENABLED
910 call test%run(test_getPaddedr_D1_RK2, SK_"test_getPaddedr_D1_RK2")
911 call test%run(test_setPaddedr_D1_RK2, SK_"test_setPaddedr_D1_RK2")
912#endif
913#if RK1_ENABLED
914 call test%run(test_getPaddedr_D1_RK1, SK_"test_getPaddedr_D1_RK1")
915 call test%run(test_setPaddedr_D1_RK1, SK_"test_setPaddedr_D1_RK1")
916#endif
917
918 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
919
920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
922 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
923
924 call test%summarize()
925
926 end subroutine setTest
927
928!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
929
930end module test_pm_arrayPad ! LCOV_EXCL_LINE
pm_arrayPad
This module contains procedures and generic interfaces for resizing an input array and padding them w...
Definition: pm_arrayPad.F90:30
pm_arrayPad::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayPad.F90:36
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_arrayPad
This module contains tests of the module pm_arrayPad.
Definition: test_pm_arrayPad.F90:27
test_pm_arrayPad::test
type(test_type) test
Definition: test_pm_arrayPad.F90:36
test_pm_arrayPad::setTest
subroutine setTest()
Definition: test_pm_arrayPad.F90:483
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