ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayCopy.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_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
272contains
273
274!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
275
276 subroutine setTest()
277
278 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 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 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 call test%run(test_setCopyIndexed_D1_SK1_1, SK_"test_setCopyIndexed_D1_SK1_1")
334#endif
335
336 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
337
338#if IK5_ENABLED
339 call test%run(test_setCopyIndexed_D1_IK5_1, SK_"test_setCopyIndexed_D1_IK5_1")
340#endif
341#if IK4_ENABLED
342 call test%run(test_setCopyIndexed_D1_IK4_1, SK_"test_setCopyIndexed_D1_IK4_1")
343#endif
344#if IK3_ENABLED
345 call test%run(test_setCopyIndexed_D1_IK3_1, SK_"test_setCopyIndexed_D1_IK3_1")
346#endif
347#if IK2_ENABLED
348 call test%run(test_setCopyIndexed_D1_IK2_1, SK_"test_setCopyIndexed_D1_IK2_1")
349#endif
350#if IK1_ENABLED
351 call test%run(test_setCopyIndexed_D1_IK1_1, SK_"test_setCopyIndexed_D1_IK1_1")
352#endif
353
354 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
355
356#if LK5_ENABLED
357 call test%run(test_setCopyIndexed_D1_LK5_1, SK_"test_setCopyIndexed_D1_LK5_1")
358#endif
359#if LK4_ENABLED
360 call test%run(test_setCopyIndexed_D1_LK4_1, SK_"test_setCopyIndexed_D1_LK4_1")
361#endif
362#if LK3_ENABLED
363 call test%run(test_setCopyIndexed_D1_LK3_1, SK_"test_setCopyIndexed_D1_LK3_1")
364#endif
365#if LK2_ENABLED
366 call test%run(test_setCopyIndexed_D1_LK2_1, SK_"test_setCopyIndexed_D1_LK2_1")
367#endif
368#if LK1_ENABLED
369 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 call test%run(test_setCopyIndexed_D1_CK4_1, SK_"test_setCopyIndexed_D1_CK4_1")
379#endif
380#if CK3_ENABLED
381 call test%run(test_setCopyIndexed_D1_CK3_1, SK_"test_setCopyIndexed_D1_CK3_1")
382#endif
383#if CK2_ENABLED
384 call test%run(test_setCopyIndexed_D1_CK2_1, SK_"test_setCopyIndexed_D1_CK2_1")
385#endif
386#if CK1_ENABLED
387 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 call test%run(test_setCopyIndexed_D1_RK4_1, SK_"test_setCopyIndexed_D1_RK4_1")
397#endif
398#if RK3_ENABLED
399 call test%run(test_setCopyIndexed_D1_RK3_1, SK_"test_setCopyIndexed_D1_RK3_1")
400#endif
401#if RK2_ENABLED
402 call test%run(test_setCopyIndexed_D1_RK2_1, SK_"test_setCopyIndexed_D1_RK2_1")
403#endif
404#if RK1_ENABLED
405 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 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 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 call test%run(test_setCopyStrided_D1_SK1_1, SK_"test_setCopyStrided_D1_SK1_1")
464#endif
465
466 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
467
468#if IK5_ENABLED
469 call test%run(test_setCopyStrided_D1_IK5_1, SK_"test_setCopyStrided_D1_IK5_1")
470#endif
471#if IK4_ENABLED
472 call test%run(test_setCopyStrided_D1_IK4_1, SK_"test_setCopyStrided_D1_IK4_1")
473#endif
474#if IK3_ENABLED
475 call test%run(test_setCopyStrided_D1_IK3_1, SK_"test_setCopyStrided_D1_IK3_1")
476#endif
477#if IK2_ENABLED
478 call test%run(test_setCopyStrided_D1_IK2_1, SK_"test_setCopyStrided_D1_IK2_1")
479#endif
480#if IK1_ENABLED
481 call test%run(test_setCopyStrided_D1_IK1_1, SK_"test_setCopyStrided_D1_IK1_1")
482#endif
483
484 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
485
486#if LK5_ENABLED
487 call test%run(test_setCopyStrided_D1_LK5_1, SK_"test_setCopyStrided_D1_LK5_1")
488#endif
489#if LK4_ENABLED
490 call test%run(test_setCopyStrided_D1_LK4_1, SK_"test_setCopyStrided_D1_LK4_1")
491#endif
492#if LK3_ENABLED
493 call test%run(test_setCopyStrided_D1_LK3_1, SK_"test_setCopyStrided_D1_LK3_1")
494#endif
495#if LK2_ENABLED
496 call test%run(test_setCopyStrided_D1_LK2_1, SK_"test_setCopyStrided_D1_LK2_1")
497#endif
498#if LK1_ENABLED
499 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 call test%run(test_setCopyStrided_D1_CK4_1, SK_"test_setCopyStrided_D1_CK4_1")
509#endif
510#if CK3_ENABLED
511 call test%run(test_setCopyStrided_D1_CK3_1, SK_"test_setCopyStrided_D1_CK3_1")
512#endif
513#if CK2_ENABLED
514 call test%run(test_setCopyStrided_D1_CK2_1, SK_"test_setCopyStrided_D1_CK2_1")
515#endif
516#if CK1_ENABLED
517 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 call test%run(test_setCopyStrided_D1_RK4_1, SK_"test_setCopyStrided_D1_RK4_1")
527#endif
528#if RK3_ENABLED
529 call test%run(test_setCopyStrided_D1_RK3_1, SK_"test_setCopyStrided_D1_RK3_1")
530#endif
531#if RK2_ENABLED
532 call test%run(test_setCopyStrided_D1_RK2_1, SK_"test_setCopyStrided_D1_RK2_1")
533#endif
534#if RK1_ENABLED
535 call test%run(test_setCopyStrided_D1_RK1_1, SK_"test_setCopyStrided_D1_RK1_1")
536#endif
537
538 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539
540 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
541
542 call test%summarize()
543
544 end subroutine setTest
545
546!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
547
548end module test_pm_arrayCopy ! LCOV_EXCL_LINE
pm_arrayCopy
This module contains procedures and generic interfaces for copying strided or indexed elements of one...
Definition: pm_arrayCopy.F90:42
pm_arrayCopy::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayCopy.F90:48
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_arrayCopy
This module contains tests of the module pm_arrayCopy.
Definition: test_pm_arrayCopy.F90:27
test_pm_arrayCopy::setTest
subroutine setTest()
Definition: test_pm_arrayCopy.F90:277
test_pm_arrayCopy::test
type(test_type) test
Definition: test_pm_arrayCopy.F90:36
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