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_arrayCopy](@ref pm_arrayCopy).
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_arrayCopy
28 :
29 : use pm_arrayCopy
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_setCopyIndexed_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
46 : #endif
47 : #if SK4_ENABLED
48 : module function test_setCopyIndexed_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
49 : #endif
50 : #if SK3_ENABLED
51 : module function test_setCopyIndexed_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
52 : #endif
53 : #if SK2_ENABLED
54 : module function test_setCopyIndexed_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
55 : #endif
56 : #if SK1_ENABLED
57 : module function test_setCopyIndexed_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
58 : #endif
59 :
60 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61 :
62 : #if SK5_ENABLED
63 : module function test_setCopyIndexed_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
64 : #endif
65 : #if SK4_ENABLED
66 : module function test_setCopyIndexed_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
67 : #endif
68 : #if SK3_ENABLED
69 : module function test_setCopyIndexed_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
70 : #endif
71 : #if SK2_ENABLED
72 : module function test_setCopyIndexed_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
73 : #endif
74 : #if SK1_ENABLED
75 : module function test_setCopyIndexed_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
76 : #endif
77 :
78 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79 :
80 : #if IK5_ENABLED
81 : module function test_setCopyIndexed_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
82 : #endif
83 : #if IK4_ENABLED
84 : module function test_setCopyIndexed_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
85 : #endif
86 : #if IK3_ENABLED
87 : module function test_setCopyIndexed_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
88 : #endif
89 : #if IK2_ENABLED
90 : module function test_setCopyIndexed_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
91 : #endif
92 : #if IK1_ENABLED
93 : module function test_setCopyIndexed_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
94 : #endif
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 :
98 : #if LK5_ENABLED
99 : module function test_setCopyIndexed_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
100 : #endif
101 : #if LK4_ENABLED
102 : module function test_setCopyIndexed_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
103 : #endif
104 : #if LK3_ENABLED
105 : module function test_setCopyIndexed_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
106 : #endif
107 : #if LK2_ENABLED
108 : module function test_setCopyIndexed_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
109 : #endif
110 : #if LK1_ENABLED
111 : module function test_setCopyIndexed_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
112 : #endif
113 :
114 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
115 :
116 : #if CK5_ENABLED
117 : module function test_setCopyIndexed_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
118 : #endif
119 : #if CK4_ENABLED
120 : module function test_setCopyIndexed_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
121 : #endif
122 : #if CK3_ENABLED
123 : module function test_setCopyIndexed_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
124 : #endif
125 : #if CK2_ENABLED
126 : module function test_setCopyIndexed_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
127 : #endif
128 : #if CK1_ENABLED
129 : module function test_setCopyIndexed_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
130 : #endif
131 :
132 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
133 :
134 : #if RK5_ENABLED
135 : module function test_setCopyIndexed_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
136 : #endif
137 : #if RK4_ENABLED
138 : module function test_setCopyIndexed_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
139 : #endif
140 : #if RK3_ENABLED
141 : module function test_setCopyIndexed_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
142 : #endif
143 : #if RK2_ENABLED
144 : module function test_setCopyIndexed_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
145 : #endif
146 : #if RK1_ENABLED
147 : module function test_setCopyIndexed_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
148 : #endif
149 :
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 :
152 : end interface
153 :
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 :
156 : interface
157 :
158 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
159 :
160 : #if SK5_ENABLED
161 : module function test_setCopyStrided_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
162 : #endif
163 : #if SK4_ENABLED
164 : module function test_setCopyStrided_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
165 : #endif
166 : #if SK3_ENABLED
167 : module function test_setCopyStrided_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
168 : #endif
169 : #if SK2_ENABLED
170 : module function test_setCopyStrided_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
171 : #endif
172 : #if SK1_ENABLED
173 : module function test_setCopyStrided_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
174 : #endif
175 :
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 :
178 : #if SK5_ENABLED
179 : module function test_setCopyStrided_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
180 : #endif
181 : #if SK4_ENABLED
182 : module function test_setCopyStrided_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
183 : #endif
184 : #if SK3_ENABLED
185 : module function test_setCopyStrided_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
186 : #endif
187 : #if SK2_ENABLED
188 : module function test_setCopyStrided_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
189 : #endif
190 : #if SK1_ENABLED
191 : module function test_setCopyStrided_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
192 : #endif
193 :
194 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
195 :
196 : #if IK5_ENABLED
197 : module function test_setCopyStrided_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
198 : #endif
199 : #if IK4_ENABLED
200 : module function test_setCopyStrided_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
201 : #endif
202 : #if IK3_ENABLED
203 : module function test_setCopyStrided_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
204 : #endif
205 : #if IK2_ENABLED
206 : module function test_setCopyStrided_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
207 : #endif
208 : #if IK1_ENABLED
209 : module function test_setCopyStrided_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
210 : #endif
211 :
212 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
213 :
214 : #if LK5_ENABLED
215 : module function test_setCopyStrided_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
216 : #endif
217 : #if LK4_ENABLED
218 : module function test_setCopyStrided_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
219 : #endif
220 : #if LK3_ENABLED
221 : module function test_setCopyStrided_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
222 : #endif
223 : #if LK2_ENABLED
224 : module function test_setCopyStrided_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
225 : #endif
226 : #if LK1_ENABLED
227 : module function test_setCopyStrided_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
228 : #endif
229 :
230 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
231 :
232 : #if CK5_ENABLED
233 : module function test_setCopyStrided_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
234 : #endif
235 : #if CK4_ENABLED
236 : module function test_setCopyStrided_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
237 : #endif
238 : #if CK3_ENABLED
239 : module function test_setCopyStrided_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
240 : #endif
241 : #if CK2_ENABLED
242 : module function test_setCopyStrided_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
243 : #endif
244 : #if CK1_ENABLED
245 : module function test_setCopyStrided_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
246 : #endif
247 :
248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249 :
250 : #if RK5_ENABLED
251 : module function test_setCopyStrided_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
252 : #endif
253 : #if RK4_ENABLED
254 : module function test_setCopyStrided_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
255 : #endif
256 : #if RK3_ENABLED
257 : module function test_setCopyStrided_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
258 : #endif
259 : #if RK2_ENABLED
260 : module function test_setCopyStrided_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
261 : #endif
262 : #if RK1_ENABLED
263 : module function test_setCopyStrided_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
264 : #endif
265 :
266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 :
268 : end interface
269 :
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : contains
273 :
274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275 :
276 2 : subroutine setTest()
277 :
278 2 : test = test_type(MODULE_NAME)
279 :
280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
281 :
282 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
283 :
284 : #if SK5_ENABLED
285 : call test%run(test_setCopyIndexed_D0_SK5_1, SK_"test_setCopyIndexed_D0_SK5_1")
286 : #endif
287 : #if SK4_ENABLED
288 : call test%run(test_setCopyIndexed_D0_SK4_1, SK_"test_setCopyIndexed_D0_SK4_1")
289 : #endif
290 : #if SK3_ENABLED
291 : call test%run(test_setCopyIndexed_D0_SK3_1, SK_"test_setCopyIndexed_D0_SK3_1")
292 : #endif
293 : #if SK2_ENABLED
294 : call test%run(test_setCopyIndexed_D0_SK2_1, SK_"test_setCopyIndexed_D0_SK2_1")
295 : #endif
296 : #if SK1_ENABLED
297 2 : call test%run(test_setCopyIndexed_D0_SK1_1, SK_"test_setCopyIndexed_D0_SK1_1")
298 : #endif
299 :
300 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301 :
302 : #if SK5_ENABLED
303 : call test%run(test_setCopyIndexed_D1_SK5_1, SK_"test_setCopyIndexed_D1_SK5_1")
304 : #endif
305 : #if SK4_ENABLED
306 : call test%run(test_setCopyIndexed_D1_SK4_1, SK_"test_setCopyIndexed_D1_SK4_1")
307 : #endif
308 : #if SK3_ENABLED
309 : call test%run(test_setCopyIndexed_D1_SK3_1, SK_"test_setCopyIndexed_D1_SK3_1")
310 : #endif
311 : #if SK2_ENABLED
312 : call test%run(test_setCopyIndexed_D1_SK2_1, SK_"test_setCopyIndexed_D1_SK2_1")
313 : #endif
314 : #if SK1_ENABLED
315 2 : call test%run(test_setCopyIndexed_D1_SK1_1, SK_"test_setCopyIndexed_D1_SK1_1")
316 : #endif
317 :
318 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319 :
320 : #if SK5_ENABLED
321 : call test%run(test_setCopyIndexed_D1_SK5_1, SK_"test_setCopyIndexed_D1_SK5_1")
322 : #endif
323 : #if SK4_ENABLED
324 : call test%run(test_setCopyIndexed_D1_SK4_1, SK_"test_setCopyIndexed_D1_SK4_1")
325 : #endif
326 : #if SK3_ENABLED
327 : call test%run(test_setCopyIndexed_D1_SK3_1, SK_"test_setCopyIndexed_D1_SK3_1")
328 : #endif
329 : #if SK2_ENABLED
330 : call test%run(test_setCopyIndexed_D1_SK2_1, SK_"test_setCopyIndexed_D1_SK2_1")
331 : #endif
332 : #if SK1_ENABLED
333 2 : call test%run(test_setCopyIndexed_D1_SK1_1, SK_"test_setCopyIndexed_D1_SK1_1")
334 : #endif
335 :
336 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337 :
338 : #if IK5_ENABLED
339 2 : call test%run(test_setCopyIndexed_D1_IK5_1, SK_"test_setCopyIndexed_D1_IK5_1")
340 : #endif
341 : #if IK4_ENABLED
342 2 : call test%run(test_setCopyIndexed_D1_IK4_1, SK_"test_setCopyIndexed_D1_IK4_1")
343 : #endif
344 : #if IK3_ENABLED
345 2 : call test%run(test_setCopyIndexed_D1_IK3_1, SK_"test_setCopyIndexed_D1_IK3_1")
346 : #endif
347 : #if IK2_ENABLED
348 2 : call test%run(test_setCopyIndexed_D1_IK2_1, SK_"test_setCopyIndexed_D1_IK2_1")
349 : #endif
350 : #if IK1_ENABLED
351 2 : call test%run(test_setCopyIndexed_D1_IK1_1, SK_"test_setCopyIndexed_D1_IK1_1")
352 : #endif
353 :
354 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
355 :
356 : #if LK5_ENABLED
357 2 : call test%run(test_setCopyIndexed_D1_LK5_1, SK_"test_setCopyIndexed_D1_LK5_1")
358 : #endif
359 : #if LK4_ENABLED
360 2 : call test%run(test_setCopyIndexed_D1_LK4_1, SK_"test_setCopyIndexed_D1_LK4_1")
361 : #endif
362 : #if LK3_ENABLED
363 2 : call test%run(test_setCopyIndexed_D1_LK3_1, SK_"test_setCopyIndexed_D1_LK3_1")
364 : #endif
365 : #if LK2_ENABLED
366 2 : call test%run(test_setCopyIndexed_D1_LK2_1, SK_"test_setCopyIndexed_D1_LK2_1")
367 : #endif
368 : #if LK1_ENABLED
369 2 : call test%run(test_setCopyIndexed_D1_LK1_1, SK_"test_setCopyIndexed_D1_LK1_1")
370 : #endif
371 :
372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
373 :
374 : #if CK5_ENABLED
375 : call test%run(test_setCopyIndexed_D1_CK5_1, SK_"test_setCopyIndexed_D1_CK5_1")
376 : #endif
377 : #if CK4_ENABLED
378 2 : call test%run(test_setCopyIndexed_D1_CK4_1, SK_"test_setCopyIndexed_D1_CK4_1")
379 : #endif
380 : #if CK3_ENABLED
381 2 : call test%run(test_setCopyIndexed_D1_CK3_1, SK_"test_setCopyIndexed_D1_CK3_1")
382 : #endif
383 : #if CK2_ENABLED
384 2 : call test%run(test_setCopyIndexed_D1_CK2_1, SK_"test_setCopyIndexed_D1_CK2_1")
385 : #endif
386 : #if CK1_ENABLED
387 2 : call test%run(test_setCopyIndexed_D1_CK1_1, SK_"test_setCopyIndexed_D1_CK1_1")
388 : #endif
389 :
390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
391 :
392 : #if RK5_ENABLED
393 : call test%run(test_setCopyIndexed_D1_RK5_1, SK_"test_setCopyIndexed_D1_RK5_1")
394 : #endif
395 : #if RK4_ENABLED
396 2 : call test%run(test_setCopyIndexed_D1_RK4_1, SK_"test_setCopyIndexed_D1_RK4_1")
397 : #endif
398 : #if RK3_ENABLED
399 2 : call test%run(test_setCopyIndexed_D1_RK3_1, SK_"test_setCopyIndexed_D1_RK3_1")
400 : #endif
401 : #if RK2_ENABLED
402 2 : call test%run(test_setCopyIndexed_D1_RK2_1, SK_"test_setCopyIndexed_D1_RK2_1")
403 : #endif
404 : #if RK1_ENABLED
405 2 : call test%run(test_setCopyIndexed_D1_RK1_1, SK_"test_setCopyIndexed_D1_RK1_1")
406 : #endif
407 :
408 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
409 :
410 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
411 :
412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413 :
414 : #if SK5_ENABLED
415 : call test%run(test_setCopyStrided_D0_SK5_1, SK_"test_setCopyStrided_D0_SK5_1")
416 : #endif
417 : #if SK4_ENABLED
418 : call test%run(test_setCopyStrided_D0_SK4_1, SK_"test_setCopyStrided_D0_SK4_1")
419 : #endif
420 : #if SK3_ENABLED
421 : call test%run(test_setCopyStrided_D0_SK3_1, SK_"test_setCopyStrided_D0_SK3_1")
422 : #endif
423 : #if SK2_ENABLED
424 : call test%run(test_setCopyStrided_D0_SK2_1, SK_"test_setCopyStrided_D0_SK2_1")
425 : #endif
426 : #if SK1_ENABLED
427 2 : call test%run(test_setCopyStrided_D0_SK1_1, SK_"test_setCopyStrided_D0_SK1_1")
428 : #endif
429 :
430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
431 :
432 : #if SK5_ENABLED
433 : call test%run(test_setCopyStrided_D1_SK5_1, SK_"test_setCopyStrided_D1_SK5_1")
434 : #endif
435 : #if SK4_ENABLED
436 : call test%run(test_setCopyStrided_D1_SK4_1, SK_"test_setCopyStrided_D1_SK4_1")
437 : #endif
438 : #if SK3_ENABLED
439 : call test%run(test_setCopyStrided_D1_SK3_1, SK_"test_setCopyStrided_D1_SK3_1")
440 : #endif
441 : #if SK2_ENABLED
442 : call test%run(test_setCopyStrided_D1_SK2_1, SK_"test_setCopyStrided_D1_SK2_1")
443 : #endif
444 : #if SK1_ENABLED
445 2 : call test%run(test_setCopyStrided_D1_SK1_1, SK_"test_setCopyStrided_D1_SK1_1")
446 : #endif
447 :
448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449 :
450 : #if SK5_ENABLED
451 : call test%run(test_setCopyStrided_D1_SK5_1, SK_"test_setCopyStrided_D1_SK5_1")
452 : #endif
453 : #if SK4_ENABLED
454 : call test%run(test_setCopyStrided_D1_SK4_1, SK_"test_setCopyStrided_D1_SK4_1")
455 : #endif
456 : #if SK3_ENABLED
457 : call test%run(test_setCopyStrided_D1_SK3_1, SK_"test_setCopyStrided_D1_SK3_1")
458 : #endif
459 : #if SK2_ENABLED
460 : call test%run(test_setCopyStrided_D1_SK2_1, SK_"test_setCopyStrided_D1_SK2_1")
461 : #endif
462 : #if SK1_ENABLED
463 2 : call test%run(test_setCopyStrided_D1_SK1_1, SK_"test_setCopyStrided_D1_SK1_1")
464 : #endif
465 :
466 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467 :
468 : #if IK5_ENABLED
469 2 : call test%run(test_setCopyStrided_D1_IK5_1, SK_"test_setCopyStrided_D1_IK5_1")
470 : #endif
471 : #if IK4_ENABLED
472 2 : call test%run(test_setCopyStrided_D1_IK4_1, SK_"test_setCopyStrided_D1_IK4_1")
473 : #endif
474 : #if IK3_ENABLED
475 2 : call test%run(test_setCopyStrided_D1_IK3_1, SK_"test_setCopyStrided_D1_IK3_1")
476 : #endif
477 : #if IK2_ENABLED
478 2 : call test%run(test_setCopyStrided_D1_IK2_1, SK_"test_setCopyStrided_D1_IK2_1")
479 : #endif
480 : #if IK1_ENABLED
481 2 : call test%run(test_setCopyStrided_D1_IK1_1, SK_"test_setCopyStrided_D1_IK1_1")
482 : #endif
483 :
484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485 :
486 : #if LK5_ENABLED
487 2 : call test%run(test_setCopyStrided_D1_LK5_1, SK_"test_setCopyStrided_D1_LK5_1")
488 : #endif
489 : #if LK4_ENABLED
490 2 : call test%run(test_setCopyStrided_D1_LK4_1, SK_"test_setCopyStrided_D1_LK4_1")
491 : #endif
492 : #if LK3_ENABLED
493 2 : call test%run(test_setCopyStrided_D1_LK3_1, SK_"test_setCopyStrided_D1_LK3_1")
494 : #endif
495 : #if LK2_ENABLED
496 2 : call test%run(test_setCopyStrided_D1_LK2_1, SK_"test_setCopyStrided_D1_LK2_1")
497 : #endif
498 : #if LK1_ENABLED
499 2 : call test%run(test_setCopyStrided_D1_LK1_1, SK_"test_setCopyStrided_D1_LK1_1")
500 : #endif
501 :
502 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
503 :
504 : #if CK5_ENABLED
505 : call test%run(test_setCopyStrided_D1_CK5_1, SK_"test_setCopyStrided_D1_CK5_1")
506 : #endif
507 : #if CK4_ENABLED
508 2 : call test%run(test_setCopyStrided_D1_CK4_1, SK_"test_setCopyStrided_D1_CK4_1")
509 : #endif
510 : #if CK3_ENABLED
511 2 : call test%run(test_setCopyStrided_D1_CK3_1, SK_"test_setCopyStrided_D1_CK3_1")
512 : #endif
513 : #if CK2_ENABLED
514 2 : call test%run(test_setCopyStrided_D1_CK2_1, SK_"test_setCopyStrided_D1_CK2_1")
515 : #endif
516 : #if CK1_ENABLED
517 2 : call test%run(test_setCopyStrided_D1_CK1_1, SK_"test_setCopyStrided_D1_CK1_1")
518 : #endif
519 :
520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
521 :
522 : #if RK5_ENABLED
523 : call test%run(test_setCopyStrided_D1_RK5_1, SK_"test_setCopyStrided_D1_RK5_1")
524 : #endif
525 : #if RK4_ENABLED
526 2 : call test%run(test_setCopyStrided_D1_RK4_1, SK_"test_setCopyStrided_D1_RK4_1")
527 : #endif
528 : #if RK3_ENABLED
529 2 : call test%run(test_setCopyStrided_D1_RK3_1, SK_"test_setCopyStrided_D1_RK3_1")
530 : #endif
531 : #if RK2_ENABLED
532 2 : call test%run(test_setCopyStrided_D1_RK2_1, SK_"test_setCopyStrided_D1_RK2_1")
533 : #endif
534 : #if RK1_ENABLED
535 2 : call test%run(test_setCopyStrided_D1_RK1_1, SK_"test_setCopyStrided_D1_RK1_1")
536 : #endif
537 :
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 :
540 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541 :
542 2 : call test%summarize()
543 :
544 2 : end subroutine setTest
545 :
546 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547 :
548 : end module test_pm_arrayCopy ! LCOV_EXCL_LINE
|
