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_arrayPad](@ref pm_arrayPad).
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_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 :
478 : contains
479 :
480 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
481 :
482 1 : subroutine setTest()
483 :
484 : implicit none
485 :
486 1 : 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 1 : call test%run(test_getPadded_D0_SK1, SK_"test_getPadded_D0_SK1")
512 1 : 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 1 : call test%run(test_getPadded_D1_SK1, SK_"test_getPadded_D1_SK1")
535 1 : call test%run(test_setPadded_D1_SK1, SK_"test_setPadded_D1_SK1")
536 : #endif
537 :
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 :
540 : #if IK5_ENABLED
541 1 : call test%run(test_getPadded_D1_IK5, SK_"test_getPadded_D1_IK5")
542 1 : call test%run(test_setPadded_D1_IK5, SK_"test_setPadded_D1_IK5")
543 : #endif
544 : #if IK4_ENABLED
545 1 : call test%run(test_getPadded_D1_IK4, SK_"test_getPadded_D1_IK4")
546 1 : call test%run(test_setPadded_D1_IK4, SK_"test_setPadded_D1_IK4")
547 : #endif
548 : #if IK3_ENABLED
549 1 : call test%run(test_getPadded_D1_IK3, SK_"test_getPadded_D1_IK3")
550 1 : call test%run(test_setPadded_D1_IK3, SK_"test_setPadded_D1_IK3")
551 : #endif
552 : #if IK2_ENABLED
553 1 : call test%run(test_getPadded_D1_IK2, SK_"test_getPadded_D1_IK2")
554 1 : call test%run(test_setPadded_D1_IK2, SK_"test_setPadded_D1_IK2")
555 : #endif
556 : #if IK1_ENABLED
557 1 : call test%run(test_getPadded_D1_IK1, SK_"test_getPadded_D1_IK1")
558 1 : call test%run(test_setPadded_D1_IK1, SK_"test_setPadded_D1_IK1")
559 : #endif
560 :
561 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
562 :
563 : #if LK5_ENABLED
564 1 : call test%run(test_getPadded_D1_LK5, SK_"test_getPadded_D1_LK5")
565 1 : call test%run(test_setPadded_D1_LK5, SK_"test_setPadded_D1_LK5")
566 : #endif
567 : #if LK4_ENABLED
568 1 : call test%run(test_getPadded_D1_LK4, SK_"test_getPadded_D1_LK4")
569 1 : call test%run(test_setPadded_D1_LK4, SK_"test_setPadded_D1_LK4")
570 : #endif
571 : #if LK3_ENABLED
572 1 : call test%run(test_getPadded_D1_LK3, SK_"test_getPadded_D1_LK3")
573 1 : call test%run(test_setPadded_D1_LK3, SK_"test_setPadded_D1_LK3")
574 : #endif
575 : #if LK2_ENABLED
576 1 : call test%run(test_getPadded_D1_LK2, SK_"test_getPadded_D1_LK2")
577 1 : call test%run(test_setPadded_D1_LK2, SK_"test_setPadded_D1_LK2")
578 : #endif
579 : #if LK1_ENABLED
580 1 : call test%run(test_getPadded_D1_LK1, SK_"test_getPadded_D1_LK1")
581 1 : 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 1 : call test%run(test_getPadded_D1_CK4, SK_"test_getPadded_D1_CK4")
592 1 : call test%run(test_setPadded_D1_CK4, SK_"test_setPadded_D1_CK4")
593 : #endif
594 : #if CK3_ENABLED
595 1 : call test%run(test_getPadded_D1_CK3, SK_"test_getPadded_D1_CK3")
596 1 : call test%run(test_setPadded_D1_CK3, SK_"test_setPadded_D1_CK3")
597 : #endif
598 : #if CK2_ENABLED
599 1 : call test%run(test_getPadded_D1_CK2, SK_"test_getPadded_D1_CK2")
600 1 : call test%run(test_setPadded_D1_CK2, SK_"test_setPadded_D1_CK2")
601 : #endif
602 : #if CK1_ENABLED
603 1 : call test%run(test_getPadded_D1_CK1, SK_"test_getPadded_D1_CK1")
604 1 : 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 1 : call test%run(test_getPadded_D1_RK4, SK_"test_getPadded_D1_RK4")
615 1 : call test%run(test_setPadded_D1_RK4, SK_"test_setPadded_D1_RK4")
616 : #endif
617 : #if RK3_ENABLED
618 1 : call test%run(test_getPadded_D1_RK3, SK_"test_getPadded_D1_RK3")
619 1 : call test%run(test_setPadded_D1_RK3, SK_"test_setPadded_D1_RK3")
620 : #endif
621 : #if RK2_ENABLED
622 1 : call test%run(test_getPadded_D1_RK2, SK_"test_getPadded_D1_RK2")
623 1 : call test%run(test_setPadded_D1_RK2, SK_"test_setPadded_D1_RK2")
624 : #endif
625 : #if RK1_ENABLED
626 1 : call test%run(test_getPadded_D1_RK1, SK_"test_getPadded_D1_RK1")
627 1 : 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 1 : call test%run(test_getPaddedl_D0_SK1, SK_"test_getPaddedl_D0_SK1")
656 1 : 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 1 : call test%run(test_getPaddedl_D1_SK1, SK_"test_getPaddedl_D1_SK1")
679 1 : call test%run(test_setPaddedl_D1_SK1, SK_"test_setPaddedl_D1_SK1")
680 : #endif
681 :
682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
683 :
684 : #if IK5_ENABLED
685 1 : call test%run(test_getPaddedl_D1_IK5, SK_"test_getPaddedl_D1_IK5")
686 1 : call test%run(test_setPaddedl_D1_IK5, SK_"test_setPaddedl_D1_IK5")
687 : #endif
688 : #if IK4_ENABLED
689 1 : call test%run(test_getPaddedl_D1_IK4, SK_"test_getPaddedl_D1_IK4")
690 1 : call test%run(test_setPaddedl_D1_IK4, SK_"test_setPaddedl_D1_IK4")
691 : #endif
692 : #if IK3_ENABLED
693 1 : call test%run(test_getPaddedl_D1_IK3, SK_"test_getPaddedl_D1_IK3")
694 1 : call test%run(test_setPaddedl_D1_IK3, SK_"test_setPaddedl_D1_IK3")
695 : #endif
696 : #if IK2_ENABLED
697 1 : call test%run(test_getPaddedl_D1_IK2, SK_"test_getPaddedl_D1_IK2")
698 1 : call test%run(test_setPaddedl_D1_IK2, SK_"test_setPaddedl_D1_IK2")
699 : #endif
700 : #if IK1_ENABLED
701 1 : call test%run(test_getPaddedl_D1_IK1, SK_"test_getPaddedl_D1_IK1")
702 1 : call test%run(test_setPaddedl_D1_IK1, SK_"test_setPaddedl_D1_IK1")
703 : #endif
704 :
705 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
706 :
707 : #if LK5_ENABLED
708 1 : call test%run(test_getPaddedl_D1_LK5, SK_"test_getPaddedl_D1_LK5")
709 1 : call test%run(test_setPaddedl_D1_LK5, SK_"test_setPaddedl_D1_LK5")
710 : #endif
711 : #if LK4_ENABLED
712 1 : call test%run(test_getPaddedl_D1_LK4, SK_"test_getPaddedl_D1_LK4")
713 1 : call test%run(test_setPaddedl_D1_LK4, SK_"test_setPaddedl_D1_LK4")
714 : #endif
715 : #if LK3_ENABLED
716 1 : call test%run(test_getPaddedl_D1_LK3, SK_"test_getPaddedl_D1_LK3")
717 1 : call test%run(test_setPaddedl_D1_LK3, SK_"test_setPaddedl_D1_LK3")
718 : #endif
719 : #if LK2_ENABLED
720 1 : call test%run(test_getPaddedl_D1_LK2, SK_"test_getPaddedl_D1_LK2")
721 1 : call test%run(test_setPaddedl_D1_LK2, SK_"test_setPaddedl_D1_LK2")
722 : #endif
723 : #if LK1_ENABLED
724 1 : call test%run(test_getPaddedl_D1_LK1, SK_"test_getPaddedl_D1_LK1")
725 1 : 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 1 : call test%run(test_getPaddedl_D1_CK4, SK_"test_getPaddedl_D1_CK4")
736 1 : call test%run(test_setPaddedl_D1_CK4, SK_"test_setPaddedl_D1_CK4")
737 : #endif
738 : #if CK3_ENABLED
739 1 : call test%run(test_getPaddedl_D1_CK3, SK_"test_getPaddedl_D1_CK3")
740 1 : call test%run(test_setPaddedl_D1_CK3, SK_"test_setPaddedl_D1_CK3")
741 : #endif
742 : #if CK2_ENABLED
743 1 : call test%run(test_getPaddedl_D1_CK2, SK_"test_getPaddedl_D1_CK2")
744 1 : call test%run(test_setPaddedl_D1_CK2, SK_"test_setPaddedl_D1_CK2")
745 : #endif
746 : #if CK1_ENABLED
747 1 : call test%run(test_getPaddedl_D1_CK1, SK_"test_getPaddedl_D1_CK1")
748 1 : 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 1 : call test%run(test_getPaddedl_D1_RK4, SK_"test_getPaddedl_D1_RK4")
759 1 : call test%run(test_setPaddedl_D1_RK4, SK_"test_setPaddedl_D1_RK4")
760 : #endif
761 : #if RK3_ENABLED
762 1 : call test%run(test_getPaddedl_D1_RK3, SK_"test_getPaddedl_D1_RK3")
763 1 : call test%run(test_setPaddedl_D1_RK3, SK_"test_setPaddedl_D1_RK3")
764 : #endif
765 : #if RK2_ENABLED
766 1 : call test%run(test_getPaddedl_D1_RK2, SK_"test_getPaddedl_D1_RK2")
767 1 : call test%run(test_setPaddedl_D1_RK2, SK_"test_setPaddedl_D1_RK2")
768 : #endif
769 : #if RK1_ENABLED
770 1 : call test%run(test_getPaddedl_D1_RK1, SK_"test_getPaddedl_D1_RK1")
771 1 : 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 1 : call test%run(test_getPaddedr_D0_SK1, SK_"test_getPaddedr_D0_SK1")
800 1 : 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 1 : call test%run(test_getPaddedr_D1_SK1, SK_"test_getPaddedr_D1_SK1")
823 1 : call test%run(test_setPaddedr_D1_SK1, SK_"test_setPaddedr_D1_SK1")
824 : #endif
825 :
826 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
827 :
828 : #if IK5_ENABLED
829 1 : call test%run(test_getPaddedr_D1_IK5, SK_"test_getPaddedr_D1_IK5")
830 1 : call test%run(test_setPaddedr_D1_IK5, SK_"test_setPaddedr_D1_IK5")
831 : #endif
832 : #if IK4_ENABLED
833 1 : call test%run(test_getPaddedr_D1_IK4, SK_"test_getPaddedr_D1_IK4")
834 1 : call test%run(test_setPaddedr_D1_IK4, SK_"test_setPaddedr_D1_IK4")
835 : #endif
836 : #if IK3_ENABLED
837 1 : call test%run(test_getPaddedr_D1_IK3, SK_"test_getPaddedr_D1_IK3")
838 1 : call test%run(test_setPaddedr_D1_IK3, SK_"test_setPaddedr_D1_IK3")
839 : #endif
840 : #if IK2_ENABLED
841 1 : call test%run(test_getPaddedr_D1_IK2, SK_"test_getPaddedr_D1_IK2")
842 1 : call test%run(test_setPaddedr_D1_IK2, SK_"test_setPaddedr_D1_IK2")
843 : #endif
844 : #if IK1_ENABLED
845 1 : call test%run(test_getPaddedr_D1_IK1, SK_"test_getPaddedr_D1_IK1")
846 1 : call test%run(test_setPaddedr_D1_IK1, SK_"test_setPaddedr_D1_IK1")
847 : #endif
848 :
849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
850 :
851 : #if LK5_ENABLED
852 1 : call test%run(test_getPaddedr_D1_LK5, SK_"test_getPaddedr_D1_LK5")
853 1 : call test%run(test_setPaddedr_D1_LK5, SK_"test_setPaddedr_D1_LK5")
854 : #endif
855 : #if LK4_ENABLED
856 1 : call test%run(test_getPaddedr_D1_LK4, SK_"test_getPaddedr_D1_LK4")
857 1 : call test%run(test_setPaddedr_D1_LK4, SK_"test_setPaddedr_D1_LK4")
858 : #endif
859 : #if LK3_ENABLED
860 1 : call test%run(test_getPaddedr_D1_LK3, SK_"test_getPaddedr_D1_LK3")
861 1 : call test%run(test_setPaddedr_D1_LK3, SK_"test_setPaddedr_D1_LK3")
862 : #endif
863 : #if LK2_ENABLED
864 1 : call test%run(test_getPaddedr_D1_LK2, SK_"test_getPaddedr_D1_LK2")
865 1 : call test%run(test_setPaddedr_D1_LK2, SK_"test_setPaddedr_D1_LK2")
866 : #endif
867 : #if LK1_ENABLED
868 1 : call test%run(test_getPaddedr_D1_LK1, SK_"test_getPaddedr_D1_LK1")
869 1 : 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 1 : call test%run(test_getPaddedr_D1_CK4, SK_"test_getPaddedr_D1_CK4")
880 1 : call test%run(test_setPaddedr_D1_CK4, SK_"test_setPaddedr_D1_CK4")
881 : #endif
882 : #if CK3_ENABLED
883 1 : call test%run(test_getPaddedr_D1_CK3, SK_"test_getPaddedr_D1_CK3")
884 1 : call test%run(test_setPaddedr_D1_CK3, SK_"test_setPaddedr_D1_CK3")
885 : #endif
886 : #if CK2_ENABLED
887 1 : call test%run(test_getPaddedr_D1_CK2, SK_"test_getPaddedr_D1_CK2")
888 1 : call test%run(test_setPaddedr_D1_CK2, SK_"test_setPaddedr_D1_CK2")
889 : #endif
890 : #if CK1_ENABLED
891 1 : call test%run(test_getPaddedr_D1_CK1, SK_"test_getPaddedr_D1_CK1")
892 1 : 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 1 : call test%run(test_getPaddedr_D1_RK4, SK_"test_getPaddedr_D1_RK4")
903 1 : call test%run(test_setPaddedr_D1_RK4, SK_"test_setPaddedr_D1_RK4")
904 : #endif
905 : #if RK3_ENABLED
906 1 : call test%run(test_getPaddedr_D1_RK3, SK_"test_getPaddedr_D1_RK3")
907 1 : call test%run(test_setPaddedr_D1_RK3, SK_"test_setPaddedr_D1_RK3")
908 : #endif
909 : #if RK2_ENABLED
910 1 : call test%run(test_getPaddedr_D1_RK2, SK_"test_getPaddedr_D1_RK2")
911 1 : call test%run(test_setPaddedr_D1_RK2, SK_"test_setPaddedr_D1_RK2")
912 : #endif
913 : #if RK1_ENABLED
914 1 : call test%run(test_getPaddedr_D1_RK1, SK_"test_getPaddedr_D1_RK1")
915 1 : call test%run(test_setPaddedr_D1_RK1, SK_"test_setPaddedr_D1_RK1")
916 : #endif
917 :
918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
919 :
920 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
921 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
922 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
923 :
924 1 : call test%summarize()
925 :
926 1 : end subroutine setTest
927 :
928 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
929 :
930 : end module test_pm_arrayPad ! LCOV_EXCL_LINE
|
