ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayReplace.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
27
28!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29
30module test_pm_arrayReplace
31
32 use pm_arrayReplace
33 use pm_err, only: err_type
34 use pm_test, only: test_type, LK
35 implicit none
36
37 private
38 public :: setTest
39 type(test_type) :: test
40
41!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42
43 interface
44
45 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48
49 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50
51#if SK5_ENABLED
52 module function test_getReplaced_D0_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
53 module function test_setReplaced_D0_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
54#endif
55#if SK4_ENABLED
56 module function test_getReplaced_D0_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
57 module function test_setReplaced_D0_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
58#endif
59#if SK3_ENABLED
60 module function test_getReplaced_D0_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
61 module function test_setReplaced_D0_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
62#endif
63#if SK2_ENABLED
64 module function test_getReplaced_D0_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
65 module function test_setReplaced_D0_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
66#endif
67#if SK1_ENABLED
68 module function test_getReplaced_D0_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
69 module function test_setReplaced_D0_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
70#endif
71
72 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
73
74 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
75 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
76 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
77
78 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
80#if SK5_ENABLED
81 module function test_getReplaced_D1_D1_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
82 module function test_setReplaced_D1_D1_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
83#endif
84#if SK4_ENABLED
85 module function test_getReplaced_D1_D1_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
86 module function test_setReplaced_D1_D1_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
87#endif
88#if SK3_ENABLED
89 module function test_getReplaced_D1_D1_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
90 module function test_setReplaced_D1_D1_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
91#endif
92#if SK2_ENABLED
93 module function test_getReplaced_D1_D1_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
94 module function test_setReplaced_D1_D1_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
95#endif
96#if SK1_ENABLED
97 module function test_getReplaced_D1_D1_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
98 module function test_setReplaced_D1_D1_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
99#endif
100
101 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
102
103#if IK5_ENABLED
104 module function test_getReplaced_D1_D1_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
105 module function test_setReplaced_D1_D1_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
106#endif
107#if IK4_ENABLED
108 module function test_getReplaced_D1_D1_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
109 module function test_setReplaced_D1_D1_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
110#endif
111#if IK3_ENABLED
112 module function test_getReplaced_D1_D1_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
113 module function test_setReplaced_D1_D1_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
114#endif
115#if IK2_ENABLED
116 module function test_getReplaced_D1_D1_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
117 module function test_setReplaced_D1_D1_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
118#endif
119#if IK1_ENABLED
120 module function test_getReplaced_D1_D1_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
121 module function test_setReplaced_D1_D1_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
122#endif
123
124 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
125
126#if LK5_ENABLED
127 module function test_getReplaced_D1_D1_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
128 module function test_setReplaced_D1_D1_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
129#endif
130#if LK4_ENABLED
131 module function test_getReplaced_D1_D1_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
132 module function test_setReplaced_D1_D1_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
133#endif
134#if LK3_ENABLED
135 module function test_getReplaced_D1_D1_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
136 module function test_setReplaced_D1_D1_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
137#endif
138#if LK2_ENABLED
139 module function test_getReplaced_D1_D1_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
140 module function test_setReplaced_D1_D1_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
141#endif
142#if LK1_ENABLED
143 module function test_getReplaced_D1_D1_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
144 module function test_setReplaced_D1_D1_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
145#endif
146
147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
148
149#if CK5_ENABLED
150 module function test_getReplaced_D1_D1_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
151 module function test_setReplaced_D1_D1_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
152#endif
153#if CK4_ENABLED
154 module function test_getReplaced_D1_D1_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
155 module function test_setReplaced_D1_D1_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
156#endif
157#if CK3_ENABLED
158 module function test_getReplaced_D1_D1_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
159 module function test_setReplaced_D1_D1_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
160#endif
161#if CK2_ENABLED
162 module function test_getReplaced_D1_D1_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
163 module function test_setReplaced_D1_D1_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
164#endif
165#if CK1_ENABLED
166 module function test_getReplaced_D1_D1_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
167 module function test_setReplaced_D1_D1_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
168#endif
169
170 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171
172#if RK5_ENABLED
173 module function test_getReplaced_D1_D1_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
174 module function test_setReplaced_D1_D1_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
175#endif
176#if RK4_ENABLED
177 module function test_getReplaced_D1_D1_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
178 module function test_setReplaced_D1_D1_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
179#endif
180#if RK3_ENABLED
181 module function test_getReplaced_D1_D1_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
182 module function test_setReplaced_D1_D1_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
183#endif
184#if RK2_ENABLED
185 module function test_getReplaced_D1_D1_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
186 module function test_setReplaced_D1_D1_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
187#endif
188#if RK1_ENABLED
189 module function test_getReplaced_D1_D1_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
190 module function test_setReplaced_D1_D1_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
191#endif
192
193 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
194
195 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
196 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
197 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
198
199 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
200
201#if SK5_ENABLED
202 module function test_getReplaced_D1_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
203 module function test_setReplaced_D1_D0_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
204#endif
205#if SK4_ENABLED
206 module function test_getReplaced_D1_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
207 module function test_setReplaced_D1_D0_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
208#endif
209#if SK3_ENABLED
210 module function test_getReplaced_D1_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
211 module function test_setReplaced_D1_D0_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
212#endif
213#if SK2_ENABLED
214 module function test_getReplaced_D1_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
215 module function test_setReplaced_D1_D0_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
216#endif
217#if SK1_ENABLED
218 module function test_getReplaced_D1_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
219 module function test_setReplaced_D1_D0_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
220#endif
221
222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
223
224#if IK5_ENABLED
225 module function test_getReplaced_D1_D0_D0_IK5_1 () result(assertion); logical(LK) :: assertion; end function
226 module function test_setReplaced_D1_D0_D0_IK5_1 () result(assertion); logical(LK) :: assertion; end function
227#endif
228#if IK4_ENABLED
229 module function test_getReplaced_D1_D0_D0_IK4_1 () result(assertion); logical(LK) :: assertion; end function
230 module function test_setReplaced_D1_D0_D0_IK4_1 () result(assertion); logical(LK) :: assertion; end function
231#endif
232#if IK3_ENABLED
233 module function test_getReplaced_D1_D0_D0_IK3_1 () result(assertion); logical(LK) :: assertion; end function
234 module function test_setReplaced_D1_D0_D0_IK3_1 () result(assertion); logical(LK) :: assertion; end function
235#endif
236#if IK2_ENABLED
237 module function test_getReplaced_D1_D0_D0_IK2_1 () result(assertion); logical(LK) :: assertion; end function
238 module function test_setReplaced_D1_D0_D0_IK2_1 () result(assertion); logical(LK) :: assertion; end function
239#endif
240#if IK1_ENABLED
241 module function test_getReplaced_D1_D0_D0_IK1_1 () result(assertion); logical(LK) :: assertion; end function
242 module function test_setReplaced_D1_D0_D0_IK1_1 () result(assertion); logical(LK) :: assertion; end function
243#endif
244
245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
246
247#if LK5_ENABLED
248 module function test_getReplaced_D1_D0_D0_LK5_1 () result(assertion); logical(LK) :: assertion; end function
249 module function test_setReplaced_D1_D0_D0_LK5_1 () result(assertion); logical(LK) :: assertion; end function
250#endif
251#if LK4_ENABLED
252 module function test_getReplaced_D1_D0_D0_LK4_1 () result(assertion); logical(LK) :: assertion; end function
253 module function test_setReplaced_D1_D0_D0_LK4_1 () result(assertion); logical(LK) :: assertion; end function
254#endif
255#if LK3_ENABLED
256 module function test_getReplaced_D1_D0_D0_LK3_1 () result(assertion); logical(LK) :: assertion; end function
257 module function test_setReplaced_D1_D0_D0_LK3_1 () result(assertion); logical(LK) :: assertion; end function
258#endif
259#if LK2_ENABLED
260 module function test_getReplaced_D1_D0_D0_LK2_1 () result(assertion); logical(LK) :: assertion; end function
261 module function test_setReplaced_D1_D0_D0_LK2_1 () result(assertion); logical(LK) :: assertion; end function
262#endif
263#if LK1_ENABLED
264 module function test_getReplaced_D1_D0_D0_LK1_1 () result(assertion); logical(LK) :: assertion; end function
265 module function test_setReplaced_D1_D0_D0_LK1_1 () result(assertion); logical(LK) :: assertion; end function
266#endif
267
268 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
269
270#if CK5_ENABLED
271 module function test_getReplaced_D1_D0_D0_CK5_1 () result(assertion); logical(LK) :: assertion; end function
272 module function test_setReplaced_D1_D0_D0_CK5_1 () result(assertion); logical(LK) :: assertion; end function
273#endif
274#if CK4_ENABLED
275 module function test_getReplaced_D1_D0_D0_CK4_1 () result(assertion); logical(LK) :: assertion; end function
276 module function test_setReplaced_D1_D0_D0_CK4_1 () result(assertion); logical(LK) :: assertion; end function
277#endif
278#if CK3_ENABLED
279 module function test_getReplaced_D1_D0_D0_CK3_1 () result(assertion); logical(LK) :: assertion; end function
280 module function test_setReplaced_D1_D0_D0_CK3_1 () result(assertion); logical(LK) :: assertion; end function
281#endif
282#if CK2_ENABLED
283 module function test_getReplaced_D1_D0_D0_CK2_1 () result(assertion); logical(LK) :: assertion; end function
284 module function test_setReplaced_D1_D0_D0_CK2_1 () result(assertion); logical(LK) :: assertion; end function
285#endif
286#if CK1_ENABLED
287 module function test_getReplaced_D1_D0_D0_CK1_1 () result(assertion); logical(LK) :: assertion; end function
288 module function test_setReplaced_D1_D0_D0_CK1_1 () result(assertion); logical(LK) :: assertion; end function
289#endif
290
291 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
292
293#if RK5_ENABLED
294 module function test_getReplaced_D1_D0_D0_RK5_1 () result(assertion); logical(LK) :: assertion; end function
295 module function test_setReplaced_D1_D0_D0_RK5_1 () result(assertion); logical(LK) :: assertion; end function
296#endif
297#if RK4_ENABLED
298 module function test_getReplaced_D1_D0_D0_RK4_1 () result(assertion); logical(LK) :: assertion; end function
299 module function test_setReplaced_D1_D0_D0_RK4_1 () result(assertion); logical(LK) :: assertion; end function
300#endif
301#if RK3_ENABLED
302 module function test_getReplaced_D1_D0_D0_RK3_1 () result(assertion); logical(LK) :: assertion; end function
303 module function test_setReplaced_D1_D0_D0_RK3_1 () result(assertion); logical(LK) :: assertion; end function
304#endif
305#if RK2_ENABLED
306 module function test_getReplaced_D1_D0_D0_RK2_1 () result(assertion); logical(LK) :: assertion; end function
307 module function test_setReplaced_D1_D0_D0_RK2_1 () result(assertion); logical(LK) :: assertion; end function
308#endif
309#if RK1_ENABLED
310 module function test_getReplaced_D1_D0_D0_RK1_1 () result(assertion); logical(LK) :: assertion; end function
311 module function test_setReplaced_D1_D0_D0_RK1_1 () result(assertion); logical(LK) :: assertion; end function
312#endif
313
314 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
315
316 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
317 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
319
320 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
321
322#if SK5_ENABLED
323 module function test_getReplaced_D1_D0_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
324 module function test_setReplaced_D1_D0_D1_SK5_1 () result(assertion); logical(LK) :: assertion; end function
325#endif
326#if SK4_ENABLED
327 module function test_getReplaced_D1_D0_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
328 module function test_setReplaced_D1_D0_D1_SK4_1 () result(assertion); logical(LK) :: assertion; end function
329#endif
330#if SK3_ENABLED
331 module function test_getReplaced_D1_D0_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
332 module function test_setReplaced_D1_D0_D1_SK3_1 () result(assertion); logical(LK) :: assertion; end function
333#endif
334#if SK2_ENABLED
335 module function test_getReplaced_D1_D0_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
336 module function test_setReplaced_D1_D0_D1_SK2_1 () result(assertion); logical(LK) :: assertion; end function
337#endif
338#if SK1_ENABLED
339 module function test_getReplaced_D1_D0_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
340 module function test_setReplaced_D1_D0_D1_SK1_1 () result(assertion); logical(LK) :: assertion; end function
341#endif
342
343 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
344
345#if IK5_ENABLED
346 module function test_getReplaced_D1_D0_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
347 module function test_setReplaced_D1_D0_D1_IK5_1 () result(assertion); logical(LK) :: assertion; end function
348#endif
349#if IK4_ENABLED
350 module function test_getReplaced_D1_D0_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
351 module function test_setReplaced_D1_D0_D1_IK4_1 () result(assertion); logical(LK) :: assertion; end function
352#endif
353#if IK3_ENABLED
354 module function test_getReplaced_D1_D0_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
355 module function test_setReplaced_D1_D0_D1_IK3_1 () result(assertion); logical(LK) :: assertion; end function
356#endif
357#if IK2_ENABLED
358 module function test_getReplaced_D1_D0_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
359 module function test_setReplaced_D1_D0_D1_IK2_1 () result(assertion); logical(LK) :: assertion; end function
360#endif
361#if IK1_ENABLED
362 module function test_getReplaced_D1_D0_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
363 module function test_setReplaced_D1_D0_D1_IK1_1 () result(assertion); logical(LK) :: assertion; end function
364#endif
365
366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
367
368#if LK5_ENABLED
369 module function test_getReplaced_D1_D0_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
370 module function test_setReplaced_D1_D0_D1_LK5_1 () result(assertion); logical(LK) :: assertion; end function
371#endif
372#if LK4_ENABLED
373 module function test_getReplaced_D1_D0_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
374 module function test_setReplaced_D1_D0_D1_LK4_1 () result(assertion); logical(LK) :: assertion; end function
375#endif
376#if LK3_ENABLED
377 module function test_getReplaced_D1_D0_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
378 module function test_setReplaced_D1_D0_D1_LK3_1 () result(assertion); logical(LK) :: assertion; end function
379#endif
380#if LK2_ENABLED
381 module function test_getReplaced_D1_D0_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
382 module function test_setReplaced_D1_D0_D1_LK2_1 () result(assertion); logical(LK) :: assertion; end function
383#endif
384#if LK1_ENABLED
385 module function test_getReplaced_D1_D0_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
386 module function test_setReplaced_D1_D0_D1_LK1_1 () result(assertion); logical(LK) :: assertion; end function
387#endif
388
389 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
390
391#if CK5_ENABLED
392 module function test_getReplaced_D1_D0_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
393 module function test_setReplaced_D1_D0_D1_CK5_1 () result(assertion); logical(LK) :: assertion; end function
394#endif
395#if CK4_ENABLED
396 module function test_getReplaced_D1_D0_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
397 module function test_setReplaced_D1_D0_D1_CK4_1 () result(assertion); logical(LK) :: assertion; end function
398#endif
399#if CK3_ENABLED
400 module function test_getReplaced_D1_D0_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
401 module function test_setReplaced_D1_D0_D1_CK3_1 () result(assertion); logical(LK) :: assertion; end function
402#endif
403#if CK2_ENABLED
404 module function test_getReplaced_D1_D0_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
405 module function test_setReplaced_D1_D0_D1_CK2_1 () result(assertion); logical(LK) :: assertion; end function
406#endif
407#if CK1_ENABLED
408 module function test_getReplaced_D1_D0_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
409 module function test_setReplaced_D1_D0_D1_CK1_1 () result(assertion); logical(LK) :: assertion; end function
410#endif
411
412 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
413
414#if RK5_ENABLED
415 module function test_getReplaced_D1_D0_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
416 module function test_setReplaced_D1_D0_D1_RK5_1 () result(assertion); logical(LK) :: assertion; end function
417#endif
418#if RK4_ENABLED
419 module function test_getReplaced_D1_D0_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
420 module function test_setReplaced_D1_D0_D1_RK4_1 () result(assertion); logical(LK) :: assertion; end function
421#endif
422#if RK3_ENABLED
423 module function test_getReplaced_D1_D0_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
424 module function test_setReplaced_D1_D0_D1_RK3_1 () result(assertion); logical(LK) :: assertion; end function
425#endif
426#if RK2_ENABLED
427 module function test_getReplaced_D1_D0_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
428 module function test_setReplaced_D1_D0_D1_RK2_1 () result(assertion); logical(LK) :: assertion; end function
429#endif
430#if RK1_ENABLED
431 module function test_getReplaced_D1_D0_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
432 module function test_setReplaced_D1_D0_D1_RK1_1 () result(assertion); logical(LK) :: assertion; end function
433#endif
434
435 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
436
437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
440
441 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
442
443#if SK5_ENABLED
444 module function test_getReplaced_D1_D1_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
445 module function test_setReplaced_D1_D1_D0_SK5_1 () result(assertion); logical(LK) :: assertion; end function
446#endif
447#if SK4_ENABLED
448 module function test_getReplaced_D1_D1_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
449 module function test_setReplaced_D1_D1_D0_SK4_1 () result(assertion); logical(LK) :: assertion; end function
450#endif
451#if SK3_ENABLED
452 module function test_getReplaced_D1_D1_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
453 module function test_setReplaced_D1_D1_D0_SK3_1 () result(assertion); logical(LK) :: assertion; end function
454#endif
455#if SK2_ENABLED
456 module function test_getReplaced_D1_D1_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
457 module function test_setReplaced_D1_D1_D0_SK2_1 () result(assertion); logical(LK) :: assertion; end function
458#endif
459#if SK1_ENABLED
460 module function test_getReplaced_D1_D1_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
461 module function test_setReplaced_D1_D1_D0_SK1_1 () result(assertion); logical(LK) :: assertion; end function
462#endif
463
464 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
465
466#if IK5_ENABLED
467 module function test_getReplaced_D1_D1_D0_IK5_1 () result(assertion); logical(LK) :: assertion; end function
468 module function test_setReplaced_D1_D1_D0_IK5_1 () result(assertion); logical(LK) :: assertion; end function
469#endif
470#if IK4_ENABLED
471 module function test_getReplaced_D1_D1_D0_IK4_1 () result(assertion); logical(LK) :: assertion; end function
472 module function test_setReplaced_D1_D1_D0_IK4_1 () result(assertion); logical(LK) :: assertion; end function
473#endif
474#if IK3_ENABLED
475 module function test_getReplaced_D1_D1_D0_IK3_1 () result(assertion); logical(LK) :: assertion; end function
476 module function test_setReplaced_D1_D1_D0_IK3_1 () result(assertion); logical(LK) :: assertion; end function
477#endif
478#if IK2_ENABLED
479 module function test_getReplaced_D1_D1_D0_IK2_1 () result(assertion); logical(LK) :: assertion; end function
480 module function test_setReplaced_D1_D1_D0_IK2_1 () result(assertion); logical(LK) :: assertion; end function
481#endif
482#if IK1_ENABLED
483 module function test_getReplaced_D1_D1_D0_IK1_1 () result(assertion); logical(LK) :: assertion; end function
484 module function test_setReplaced_D1_D1_D0_IK1_1 () result(assertion); logical(LK) :: assertion; end function
485#endif
486
487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
488
489#if LK5_ENABLED
490 module function test_getReplaced_D1_D1_D0_LK5_1 () result(assertion); logical(LK) :: assertion; end function
491 module function test_setReplaced_D1_D1_D0_LK5_1 () result(assertion); logical(LK) :: assertion; end function
492#endif
493#if LK4_ENABLED
494 module function test_getReplaced_D1_D1_D0_LK4_1 () result(assertion); logical(LK) :: assertion; end function
495 module function test_setReplaced_D1_D1_D0_LK4_1 () result(assertion); logical(LK) :: assertion; end function
496#endif
497#if LK3_ENABLED
498 module function test_getReplaced_D1_D1_D0_LK3_1 () result(assertion); logical(LK) :: assertion; end function
499 module function test_setReplaced_D1_D1_D0_LK3_1 () result(assertion); logical(LK) :: assertion; end function
500#endif
501#if LK2_ENABLED
502 module function test_getReplaced_D1_D1_D0_LK2_1 () result(assertion); logical(LK) :: assertion; end function
503 module function test_setReplaced_D1_D1_D0_LK2_1 () result(assertion); logical(LK) :: assertion; end function
504#endif
505#if LK1_ENABLED
506 module function test_getReplaced_D1_D1_D0_LK1_1 () result(assertion); logical(LK) :: assertion; end function
507 module function test_setReplaced_D1_D1_D0_LK1_1 () result(assertion); logical(LK) :: assertion; end function
508#endif
509
510 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
511
512#if CK5_ENABLED
513 module function test_getReplaced_D1_D1_D0_CK5_1 () result(assertion); logical(LK) :: assertion; end function
514 module function test_setReplaced_D1_D1_D0_CK5_1 () result(assertion); logical(LK) :: assertion; end function
515#endif
516#if CK4_ENABLED
517 module function test_getReplaced_D1_D1_D0_CK4_1 () result(assertion); logical(LK) :: assertion; end function
518 module function test_setReplaced_D1_D1_D0_CK4_1 () result(assertion); logical(LK) :: assertion; end function
519#endif
520#if CK3_ENABLED
521 module function test_getReplaced_D1_D1_D0_CK3_1 () result(assertion); logical(LK) :: assertion; end function
522 module function test_setReplaced_D1_D1_D0_CK3_1 () result(assertion); logical(LK) :: assertion; end function
523#endif
524#if CK2_ENABLED
525 module function test_getReplaced_D1_D1_D0_CK2_1 () result(assertion); logical(LK) :: assertion; end function
526 module function test_setReplaced_D1_D1_D0_CK2_1 () result(assertion); logical(LK) :: assertion; end function
527#endif
528#if CK1_ENABLED
529 module function test_getReplaced_D1_D1_D0_CK1_1 () result(assertion); logical(LK) :: assertion; end function
530 module function test_setReplaced_D1_D1_D0_CK1_1 () result(assertion); logical(LK) :: assertion; end function
531#endif
532
533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
534
535#if RK5_ENABLED
536 module function test_getReplaced_D1_D1_D0_RK5_1 () result(assertion); logical(LK) :: assertion; end function
537 module function test_setReplaced_D1_D1_D0_RK5_1 () result(assertion); logical(LK) :: assertion; end function
538#endif
539#if RK4_ENABLED
540 module function test_getReplaced_D1_D1_D0_RK4_1 () result(assertion); logical(LK) :: assertion; end function
541 module function test_setReplaced_D1_D1_D0_RK4_1 () result(assertion); logical(LK) :: assertion; end function
542#endif
543#if RK3_ENABLED
544 module function test_getReplaced_D1_D1_D0_RK3_1 () result(assertion); logical(LK) :: assertion; end function
545 module function test_setReplaced_D1_D1_D0_RK3_1 () result(assertion); logical(LK) :: assertion; end function
546#endif
547#if RK2_ENABLED
548 module function test_getReplaced_D1_D1_D0_RK2_1 () result(assertion); logical(LK) :: assertion; end function
549 module function test_setReplaced_D1_D1_D0_RK2_1 () result(assertion); logical(LK) :: assertion; end function
550#endif
551#if RK1_ENABLED
552 module function test_getReplaced_D1_D1_D0_RK1_1 () result(assertion); logical(LK) :: assertion; end function
553 module function test_setReplaced_D1_D1_D0_RK1_1 () result(assertion); logical(LK) :: assertion; end function
554#endif
555
556 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
557
558 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
561
562 end interface
563
564!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
565
566contains
567
568!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
569
570 subroutine setTest()
571
572 implicit none
573
574 test = test_type(MODULE_NAME)
575
576 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
577 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
578 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
579
580 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
581
582#if SK5_ENABLED
583 !call test%run(test_getReplaced_D0_D0_D0_SK5_1, SK_"test_getReplaced_D0_D0_D0_SK5_1")
584 call test%run(test_setReplaced_D0_D0_D0_SK5_1, SK_"test_setReplaced_D0_D0_D0_SK5_1")
585#endif
586#if SK4_ENABLED
587 !call test%run(test_getReplaced_D0_D0_D0_SK4_1, SK_"test_getReplaced_D0_D0_D0_SK4_1")
588 call test%run(test_setReplaced_D0_D0_D0_SK4_1, SK_"test_setReplaced_D0_D0_D0_SK4_1")
589#endif
590#if SK3_ENABLED
591 !call test%run(test_getReplaced_D0_D0_D0_SK3_1, SK_"test_getReplaced_D0_D0_D0_SK3_1")
592 call test%run(test_setReplaced_D0_D0_D0_SK3_1, SK_"test_setReplaced_D0_D0_D0_SK3_1")
593#endif
594#if SK2_ENABLED
595 !call test%run(test_getReplaced_D0_D0_D0_SK2_1, SK_"test_getReplaced_D0_D0_D0_SK2_1")
596 call test%run(test_setReplaced_D0_D0_D0_SK2_1, SK_"test_setReplaced_D0_D0_D0_SK2_1")
597#endif
598#if SK1_ENABLED
599 !call test%run(test_getReplaced_D0_D0_D0_SK1_1, SK_"test_getReplaced_D0_D0_D0_SK1_1")
600 call test%run(test_setReplaced_D0_D0_D0_SK1_1, SK_"test_setReplaced_D0_D0_D0_SK1_1")
601#endif
602
603 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
604
605 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
606 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
608
609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
610
611#if SK5_ENABLED
612 !call test%run(test_getReplaced_D1_D1_D1_SK5_1, SK_"test_getReplaced_D1_D1_D1_SK5_1")
613 call test%run(test_setReplaced_D1_D1_D1_SK5_1, SK_"test_setReplaced_D1_D1_D1_SK5_1")
614#endif
615#if SK4_ENABLED
616 !call test%run(test_getReplaced_D1_D1_D1_SK4_1, SK_"test_getReplaced_D1_D1_D1_SK4_1")
617 call test%run(test_setReplaced_D1_D1_D1_SK4_1, SK_"test_setReplaced_D1_D1_D1_SK4_1")
618#endif
619#if SK3_ENABLED
620 !call test%run(test_getReplaced_D1_D1_D1_SK3_1, SK_"test_getReplaced_D1_D1_D1_SK3_1")
621 call test%run(test_setReplaced_D1_D1_D1_SK3_1, SK_"test_setReplaced_D1_D1_D1_SK3_1")
622#endif
623#if SK2_ENABLED
624 !call test%run(test_getReplaced_D1_D1_D1_SK2_1, SK_"test_getReplaced_D1_D1_D1_SK2_1")
625 call test%run(test_setReplaced_D1_D1_D1_SK2_1, SK_"test_setReplaced_D1_D1_D1_SK2_1")
626#endif
627#if SK1_ENABLED
628 !call test%run(test_getReplaced_D1_D1_D1_SK1_1, SK_"test_getReplaced_D1_D1_D1_SK1_1")
629 call test%run(test_setReplaced_D1_D1_D1_SK1_1, SK_"test_setReplaced_D1_D1_D1_SK1_1")
630#endif
631
632 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
633
634#if IK5_ENABLED
635 !call test%run(test_getReplaced_D1_D1_D1_IK5_1, SK_"test_getReplaced_D1_D1_D1_IK5_1")
636 call test%run(test_setReplaced_D1_D1_D1_IK5_1, SK_"test_setReplaced_D1_D1_D1_IK5_1")
637#endif
638#if IK4_ENABLED
639 !call test%run(test_getReplaced_D1_D1_D1_IK4_1, SK_"test_getReplaced_D1_D1_D1_IK4_1")
640 call test%run(test_setReplaced_D1_D1_D1_IK4_1, SK_"test_setReplaced_D1_D1_D1_IK4_1")
641#endif
642#if IK3_ENABLED
643 !call test%run(test_getReplaced_D1_D1_D1_IK3_1, SK_"test_getReplaced_D1_D1_D1_IK3_1")
644 call test%run(test_setReplaced_D1_D1_D1_IK3_1, SK_"test_setReplaced_D1_D1_D1_IK3_1")
645#endif
646#if IK2_ENABLED
647 !call test%run(test_getReplaced_D1_D1_D1_IK2_1, SK_"test_getReplaced_D1_D1_D1_IK2_1")
648 call test%run(test_setReplaced_D1_D1_D1_IK2_1, SK_"test_setReplaced_D1_D1_D1_IK2_1")
649#endif
650#if IK1_ENABLED
651 !call test%run(test_getReplaced_D1_D1_D1_IK1_1, SK_"test_getReplaced_D1_D1_D1_IK1_1")
652 call test%run(test_setReplaced_D1_D1_D1_IK1_1, SK_"test_setReplaced_D1_D1_D1_IK1_1")
653#endif
654
655 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
656
657#if LK5_ENABLED
658 !call test%run(test_getReplaced_D1_D1_D1_LK5_1, SK_"test_getReplaced_D1_D1_D1_LK5_1")
659 call test%run(test_setReplaced_D1_D1_D1_LK5_1, SK_"test_setReplaced_D1_D1_D1_LK5_1")
660#endif
661#if LK4_ENABLED
662 !call test%run(test_getReplaced_D1_D1_D1_LK4_1, SK_"test_getReplaced_D1_D1_D1_LK4_1")
663 call test%run(test_setReplaced_D1_D1_D1_LK4_1, SK_"test_setReplaced_D1_D1_D1_LK4_1")
664#endif
665#if LK3_ENABLED
666 !call test%run(test_getReplaced_D1_D1_D1_LK3_1, SK_"test_getReplaced_D1_D1_D1_LK3_1")
667 call test%run(test_setReplaced_D1_D1_D1_LK3_1, SK_"test_setReplaced_D1_D1_D1_LK3_1")
668#endif
669#if LK2_ENABLED
670 !call test%run(test_getReplaced_D1_D1_D1_LK2_1, SK_"test_getReplaced_D1_D1_D1_LK2_1")
671 call test%run(test_setReplaced_D1_D1_D1_LK2_1, SK_"test_setReplaced_D1_D1_D1_LK2_1")
672#endif
673#if LK1_ENABLED
674 !call test%run(test_getReplaced_D1_D1_D1_LK1_1, SK_"test_getReplaced_D1_D1_D1_LK1_1")
675 call test%run(test_setReplaced_D1_D1_D1_LK1_1, SK_"test_setReplaced_D1_D1_D1_LK1_1")
676#endif
677
678 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
679
680#if CK5_ENABLED
681 !call test%run(test_getReplaced_D1_D1_D1_CK5_1, SK_"test_getReplaced_D1_D1_D1_CK5_1")
682 call test%run(test_setReplaced_D1_D1_D1_CK5_1, SK_"test_setReplaced_D1_D1_D1_CK5_1")
683#endif
684#if CK4_ENABLED
685 !call test%run(test_getReplaced_D1_D1_D1_CK4_1, SK_"test_getReplaced_D1_D1_D1_CK4_1")
686 call test%run(test_setReplaced_D1_D1_D1_CK4_1, SK_"test_setReplaced_D1_D1_D1_CK4_1")
687#endif
688#if CK3_ENABLED
689 !call test%run(test_getReplaced_D1_D1_D1_CK3_1, SK_"test_getReplaced_D1_D1_D1_CK3_1")
690 call test%run(test_setReplaced_D1_D1_D1_CK3_1, SK_"test_setReplaced_D1_D1_D1_CK3_1")
691#endif
692#if CK2_ENABLED
693 !call test%run(test_getReplaced_D1_D1_D1_CK2_1, SK_"test_getReplaced_D1_D1_D1_CK2_1")
694 call test%run(test_setReplaced_D1_D1_D1_CK2_1, SK_"test_setReplaced_D1_D1_D1_CK2_1")
695#endif
696#if CK1_ENABLED
697 !call test%run(test_getReplaced_D1_D1_D1_CK1_1, SK_"test_getReplaced_D1_D1_D1_CK1_1")
698 call test%run(test_setReplaced_D1_D1_D1_CK1_1, SK_"test_setReplaced_D1_D1_D1_CK1_1")
699#endif
700
701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
702
703#if RK5_ENABLED
704 !call test%run(test_getReplaced_D1_D1_D1_RK5_1, SK_"test_getReplaced_D1_D1_D1_RK5_1")
705 call test%run(test_setReplaced_D1_D1_D1_RK5_1, SK_"test_setReplaced_D1_D1_D1_RK5_1")
706#endif
707#if RK4_ENABLED
708 !call test%run(test_getReplaced_D1_D1_D1_RK4_1, SK_"test_getReplaced_D1_D1_D1_RK4_1")
709 call test%run(test_setReplaced_D1_D1_D1_RK4_1, SK_"test_setReplaced_D1_D1_D1_RK4_1")
710#endif
711#if RK3_ENABLED
712 !call test%run(test_getReplaced_D1_D1_D1_RK3_1, SK_"test_getReplaced_D1_D1_D1_RK3_1")
713 call test%run(test_setReplaced_D1_D1_D1_RK3_1, SK_"test_setReplaced_D1_D1_D1_RK3_1")
714#endif
715#if RK2_ENABLED
716 !call test%run(test_getReplaced_D1_D1_D1_RK2_1, SK_"test_getReplaced_D1_D1_D1_RK2_1")
717 call test%run(test_setReplaced_D1_D1_D1_RK2_1, SK_"test_setReplaced_D1_D1_D1_RK2_1")
718#endif
719#if RK1_ENABLED
720 !call test%run(test_getReplaced_D1_D1_D1_RK1_1, SK_"test_getReplaced_D1_D1_D1_RK1_1")
721 call test%run(test_setReplaced_D1_D1_D1_RK1_1, SK_"test_setReplaced_D1_D1_D1_RK1_1")
722#endif
723
724 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725
726 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
727 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
728 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
729
730 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
731
732#if SK5_ENABLED
733 !call test%run(test_getReplaced_D1_D1_D0_SK5_1, SK_"test_getReplaced_D1_D1_D0_SK5_1")
734 call test%run(test_setReplaced_D1_D1_D0_SK5_1, SK_"test_setReplaced_D1_D1_D0_SK5_1")
735#endif
736#if SK4_ENABLED
737 !call test%run(test_getReplaced_D1_D1_D0_SK4_1, SK_"test_getReplaced_D1_D1_D0_SK4_1")
738 call test%run(test_setReplaced_D1_D1_D0_SK4_1, SK_"test_setReplaced_D1_D1_D0_SK4_1")
739#endif
740#if SK3_ENABLED
741 !call test%run(test_getReplaced_D1_D1_D0_SK3_1, SK_"test_getReplaced_D1_D1_D0_SK3_1")
742 call test%run(test_setReplaced_D1_D1_D0_SK3_1, SK_"test_setReplaced_D1_D1_D0_SK3_1")
743#endif
744#if SK2_ENABLED
745 !call test%run(test_getReplaced_D1_D1_D0_SK2_1, SK_"test_getReplaced_D1_D1_D0_SK2_1")
746 call test%run(test_setReplaced_D1_D1_D0_SK2_1, SK_"test_setReplaced_D1_D1_D0_SK2_1")
747#endif
748#if SK1_ENABLED
749 !call test%run(test_getReplaced_D1_D1_D0_SK1_1, SK_"test_getReplaced_D1_D1_D0_SK1_1")
750 call test%run(test_setReplaced_D1_D1_D0_SK1_1, SK_"test_setReplaced_D1_D1_D0_SK1_1")
751#endif
752
753 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
754
755#if IK5_ENABLED
756 !call test%run(test_getReplaced_D1_D1_D0_IK5_1, SK_"test_getReplaced_D1_D1_D0_IK5_1")
757 call test%run(test_setReplaced_D1_D1_D0_IK5_1, SK_"test_setReplaced_D1_D1_D0_IK5_1")
758#endif
759#if IK4_ENABLED
760 !call test%run(test_getReplaced_D1_D1_D0_IK4_1, SK_"test_getReplaced_D1_D1_D0_IK4_1")
761 call test%run(test_setReplaced_D1_D1_D0_IK4_1, SK_"test_setReplaced_D1_D1_D0_IK4_1")
762#endif
763#if IK3_ENABLED
764 !call test%run(test_getReplaced_D1_D1_D0_IK3_1, SK_"test_getReplaced_D1_D1_D0_IK3_1")
765 call test%run(test_setReplaced_D1_D1_D0_IK3_1, SK_"test_setReplaced_D1_D1_D0_IK3_1")
766#endif
767#if IK2_ENABLED
768 !call test%run(test_getReplaced_D1_D1_D0_IK2_1, SK_"test_getReplaced_D1_D1_D0_IK2_1")
769 call test%run(test_setReplaced_D1_D1_D0_IK2_1, SK_"test_setReplaced_D1_D1_D0_IK2_1")
770#endif
771#if IK1_ENABLED
772 !call test%run(test_getReplaced_D1_D1_D0_IK1_1, SK_"test_getReplaced_D1_D1_D0_IK1_1")
773 call test%run(test_setReplaced_D1_D1_D0_IK1_1, SK_"test_setReplaced_D1_D1_D0_IK1_1")
774#endif
775
776 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777
778#if LK5_ENABLED
779 !call test%run(test_getReplaced_D1_D1_D0_LK5_1, SK_"test_getReplaced_D1_D1_D0_LK5_1")
780 call test%run(test_setReplaced_D1_D1_D0_LK5_1, SK_"test_setReplaced_D1_D1_D0_LK5_1")
781#endif
782#if LK4_ENABLED
783 !call test%run(test_getReplaced_D1_D1_D0_LK4_1, SK_"test_getReplaced_D1_D1_D0_LK4_1")
784 call test%run(test_setReplaced_D1_D1_D0_LK4_1, SK_"test_setReplaced_D1_D1_D0_LK4_1")
785#endif
786#if LK3_ENABLED
787 !call test%run(test_getReplaced_D1_D1_D0_LK3_1, SK_"test_getReplaced_D1_D1_D0_LK3_1")
788 call test%run(test_setReplaced_D1_D1_D0_LK3_1, SK_"test_setReplaced_D1_D1_D0_LK3_1")
789#endif
790#if LK2_ENABLED
791 !call test%run(test_getReplaced_D1_D1_D0_LK2_1, SK_"test_getReplaced_D1_D1_D0_LK2_1")
792 call test%run(test_setReplaced_D1_D1_D0_LK2_1, SK_"test_setReplaced_D1_D1_D0_LK2_1")
793#endif
794#if LK1_ENABLED
795 !call test%run(test_getReplaced_D1_D1_D0_LK1_1, SK_"test_getReplaced_D1_D1_D0_LK1_1")
796 call test%run(test_setReplaced_D1_D1_D0_LK1_1, SK_"test_setReplaced_D1_D1_D0_LK1_1")
797#endif
798
799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
800
801#if CK5_ENABLED
802 !call test%run(test_getReplaced_D1_D1_D0_CK5_1, SK_"test_getReplaced_D1_D1_D0_CK5_1")
803 call test%run(test_setReplaced_D1_D1_D0_CK5_1, SK_"test_setReplaced_D1_D1_D0_CK5_1")
804#endif
805#if CK4_ENABLED
806 !call test%run(test_getReplaced_D1_D1_D0_CK4_1, SK_"test_getReplaced_D1_D1_D0_CK4_1")
807 call test%run(test_setReplaced_D1_D1_D0_CK4_1, SK_"test_setReplaced_D1_D1_D0_CK4_1")
808#endif
809#if CK3_ENABLED
810 !call test%run(test_getReplaced_D1_D1_D0_CK3_1, SK_"test_getReplaced_D1_D1_D0_CK3_1")
811 call test%run(test_setReplaced_D1_D1_D0_CK3_1, SK_"test_setReplaced_D1_D1_D0_CK3_1")
812#endif
813#if CK2_ENABLED
814 !call test%run(test_getReplaced_D1_D1_D0_CK2_1, SK_"test_getReplaced_D1_D1_D0_CK2_1")
815 call test%run(test_setReplaced_D1_D1_D0_CK2_1, SK_"test_setReplaced_D1_D1_D0_CK2_1")
816#endif
817#if CK1_ENABLED
818 !call test%run(test_getReplaced_D1_D1_D0_CK1_1, SK_"test_getReplaced_D1_D1_D0_CK1_1")
819 call test%run(test_setReplaced_D1_D1_D0_CK1_1, SK_"test_setReplaced_D1_D1_D0_CK1_1")
820#endif
821
822 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
823
824#if RK5_ENABLED
825 !call test%run(test_getReplaced_D1_D1_D0_RK5_1, SK_"test_getReplaced_D1_D1_D0_RK5_1")
826 call test%run(test_setReplaced_D1_D1_D0_RK5_1, SK_"test_setReplaced_D1_D1_D0_RK5_1")
827#endif
828#if RK4_ENABLED
829 !call test%run(test_getReplaced_D1_D1_D0_RK4_1, SK_"test_getReplaced_D1_D1_D0_RK4_1")
830 call test%run(test_setReplaced_D1_D1_D0_RK4_1, SK_"test_setReplaced_D1_D1_D0_RK4_1")
831#endif
832#if RK3_ENABLED
833 !call test%run(test_getReplaced_D1_D1_D0_RK3_1, SK_"test_getReplaced_D1_D1_D0_RK3_1")
834 call test%run(test_setReplaced_D1_D1_D0_RK3_1, SK_"test_setReplaced_D1_D1_D0_RK3_1")
835#endif
836#if RK2_ENABLED
837 !call test%run(test_getReplaced_D1_D1_D0_RK2_1, SK_"test_getReplaced_D1_D1_D0_RK2_1")
838 call test%run(test_setReplaced_D1_D1_D0_RK2_1, SK_"test_setReplaced_D1_D1_D0_RK2_1")
839#endif
840#if RK1_ENABLED
841 !call test%run(test_getReplaced_D1_D1_D0_RK1_1, SK_"test_getReplaced_D1_D1_D0_RK1_1")
842 call test%run(test_setReplaced_D1_D1_D0_RK1_1, SK_"test_setReplaced_D1_D1_D0_RK1_1")
843#endif
844
845 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846
847 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
848 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
849 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
850
851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
852
853#if SK5_ENABLED
854 !call test%run(test_getReplaced_D1_D0_D1_SK5_1, SK_"test_getReplaced_D1_D0_D1_SK5_1")
855 call test%run(test_setReplaced_D1_D0_D1_SK5_1, SK_"test_setReplaced_D1_D0_D1_SK5_1")
856#endif
857#if SK4_ENABLED
858 !call test%run(test_getReplaced_D1_D0_D1_SK4_1, SK_"test_getReplaced_D1_D0_D1_SK4_1")
859 call test%run(test_setReplaced_D1_D0_D1_SK4_1, SK_"test_setReplaced_D1_D0_D1_SK4_1")
860#endif
861#if SK3_ENABLED
862 !call test%run(test_getReplaced_D1_D0_D1_SK3_1, SK_"test_getReplaced_D1_D0_D1_SK3_1")
863 call test%run(test_setReplaced_D1_D0_D1_SK3_1, SK_"test_setReplaced_D1_D0_D1_SK3_1")
864#endif
865#if SK2_ENABLED
866 !call test%run(test_getReplaced_D1_D0_D1_SK2_1, SK_"test_getReplaced_D1_D0_D1_SK2_1")
867 call test%run(test_setReplaced_D1_D0_D1_SK2_1, SK_"test_setReplaced_D1_D0_D1_SK2_1")
868#endif
869#if SK1_ENABLED
870 !call test%run(test_getReplaced_D1_D0_D1_SK1_1, SK_"test_getReplaced_D1_D0_D1_SK1_1")
871 call test%run(test_setReplaced_D1_D0_D1_SK1_1, SK_"test_setReplaced_D1_D0_D1_SK1_1")
872#endif
873
874 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
875
876#if IK5_ENABLED
877 !call test%run(test_getReplaced_D1_D0_D1_IK5_1, SK_"test_getReplaced_D1_D0_D1_IK5_1")
878 call test%run(test_setReplaced_D1_D0_D1_IK5_1, SK_"test_setReplaced_D1_D0_D1_IK5_1")
879#endif
880#if IK4_ENABLED
881 !call test%run(test_getReplaced_D1_D0_D1_IK4_1, SK_"test_getReplaced_D1_D0_D1_IK4_1")
882 call test%run(test_setReplaced_D1_D0_D1_IK4_1, SK_"test_setReplaced_D1_D0_D1_IK4_1")
883#endif
884#if IK3_ENABLED
885 !call test%run(test_getReplaced_D1_D0_D1_IK3_1, SK_"test_getReplaced_D1_D0_D1_IK3_1")
886 call test%run(test_setReplaced_D1_D0_D1_IK3_1, SK_"test_setReplaced_D1_D0_D1_IK3_1")
887#endif
888#if IK2_ENABLED
889 !call test%run(test_getReplaced_D1_D0_D1_IK2_1, SK_"test_getReplaced_D1_D0_D1_IK2_1")
890 call test%run(test_setReplaced_D1_D0_D1_IK2_1, SK_"test_setReplaced_D1_D0_D1_IK2_1")
891#endif
892#if IK1_ENABLED
893 !call test%run(test_getReplaced_D1_D0_D1_IK1_1, SK_"test_getReplaced_D1_D0_D1_IK1_1")
894 call test%run(test_setReplaced_D1_D0_D1_IK1_1, SK_"test_setReplaced_D1_D0_D1_IK1_1")
895#endif
896
897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
898
899#if LK5_ENABLED
900 !call test%run(test_getReplaced_D1_D0_D1_LK5_1, SK_"test_getReplaced_D1_D0_D1_LK5_1")
901 call test%run(test_setReplaced_D1_D0_D1_LK5_1, SK_"test_setReplaced_D1_D0_D1_LK5_1")
902#endif
903#if LK4_ENABLED
904 !call test%run(test_getReplaced_D1_D0_D1_LK4_1, SK_"test_getReplaced_D1_D0_D1_LK4_1")
905 call test%run(test_setReplaced_D1_D0_D1_LK4_1, SK_"test_setReplaced_D1_D0_D1_LK4_1")
906#endif
907#if LK3_ENABLED
908 !call test%run(test_getReplaced_D1_D0_D1_LK3_1, SK_"test_getReplaced_D1_D0_D1_LK3_1")
909 call test%run(test_setReplaced_D1_D0_D1_LK3_1, SK_"test_setReplaced_D1_D0_D1_LK3_1")
910#endif
911#if LK2_ENABLED
912 !call test%run(test_getReplaced_D1_D0_D1_LK2_1, SK_"test_getReplaced_D1_D0_D1_LK2_1")
913 call test%run(test_setReplaced_D1_D0_D1_LK2_1, SK_"test_setReplaced_D1_D0_D1_LK2_1")
914#endif
915#if LK1_ENABLED
916 !call test%run(test_getReplaced_D1_D0_D1_LK1_1, SK_"test_getReplaced_D1_D0_D1_LK1_1")
917 call test%run(test_setReplaced_D1_D0_D1_LK1_1, SK_"test_setReplaced_D1_D0_D1_LK1_1")
918#endif
919
920 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
921
922#if CK5_ENABLED
923 !call test%run(test_getReplaced_D1_D0_D1_CK5_1, SK_"test_getReplaced_D1_D0_D1_CK5_1")
924 call test%run(test_setReplaced_D1_D0_D1_CK5_1, SK_"test_setReplaced_D1_D0_D1_CK5_1")
925#endif
926#if CK4_ENABLED
927 !call test%run(test_getReplaced_D1_D0_D1_CK4_1, SK_"test_getReplaced_D1_D0_D1_CK4_1")
928 call test%run(test_setReplaced_D1_D0_D1_CK4_1, SK_"test_setReplaced_D1_D0_D1_CK4_1")
929#endif
930#if CK3_ENABLED
931 !call test%run(test_getReplaced_D1_D0_D1_CK3_1, SK_"test_getReplaced_D1_D0_D1_CK3_1")
932 call test%run(test_setReplaced_D1_D0_D1_CK3_1, SK_"test_setReplaced_D1_D0_D1_CK3_1")
933#endif
934#if CK2_ENABLED
935 !call test%run(test_getReplaced_D1_D0_D1_CK2_1, SK_"test_getReplaced_D1_D0_D1_CK2_1")
936 call test%run(test_setReplaced_D1_D0_D1_CK2_1, SK_"test_setReplaced_D1_D0_D1_CK2_1")
937#endif
938#if CK1_ENABLED
939 !call test%run(test_getReplaced_D1_D0_D1_CK1_1, SK_"test_getReplaced_D1_D0_D1_CK1_1")
940 call test%run(test_setReplaced_D1_D0_D1_CK1_1, SK_"test_setReplaced_D1_D0_D1_CK1_1")
941#endif
942
943 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
944
945#if RK5_ENABLED
946 !call test%run(test_getReplaced_D1_D0_D1_RK5_1, SK_"test_getReplaced_D1_D0_D1_RK5_1")
947 call test%run(test_setReplaced_D1_D0_D1_RK5_1, SK_"test_setReplaced_D1_D0_D1_RK5_1")
948#endif
949#if RK4_ENABLED
950 !call test%run(test_getReplaced_D1_D0_D1_RK4_1, SK_"test_getReplaced_D1_D0_D1_RK4_1")
951 call test%run(test_setReplaced_D1_D0_D1_RK4_1, SK_"test_setReplaced_D1_D0_D1_RK4_1")
952#endif
953#if RK3_ENABLED
954 !call test%run(test_getReplaced_D1_D0_D1_RK3_1, SK_"test_getReplaced_D1_D0_D1_RK3_1")
955 call test%run(test_setReplaced_D1_D0_D1_RK3_1, SK_"test_setReplaced_D1_D0_D1_RK3_1")
956#endif
957#if RK2_ENABLED
958 !call test%run(test_getReplaced_D1_D0_D1_RK2_1, SK_"test_getReplaced_D1_D0_D1_RK2_1")
959 call test%run(test_setReplaced_D1_D0_D1_RK2_1, SK_"test_setReplaced_D1_D0_D1_RK2_1")
960#endif
961#if RK1_ENABLED
962 !call test%run(test_getReplaced_D1_D0_D1_RK1_1, SK_"test_getReplaced_D1_D0_D1_RK1_1")
963 call test%run(test_setReplaced_D1_D0_D1_RK1_1, SK_"test_setReplaced_D1_D0_D1_RK1_1")
964#endif
965
966 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
967
968 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
969 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
970 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
971
972 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
973
974#if SK5_ENABLED
975 !call test%run(test_getReplaced_D1_D0_D0_SK5_1, SK_"test_getReplaced_D1_D0_D0_SK5_1")
976 call test%run(test_setReplaced_D1_D0_D0_SK5_1, SK_"test_setReplaced_D1_D0_D0_SK5_1")
977#endif
978#if SK4_ENABLED
979 !call test%run(test_getReplaced_D1_D0_D0_SK4_1, SK_"test_getReplaced_D1_D0_D0_SK4_1")
980 call test%run(test_setReplaced_D1_D0_D0_SK4_1, SK_"test_setReplaced_D1_D0_D0_SK4_1")
981#endif
982#if SK3_ENABLED
983 !call test%run(test_getReplaced_D1_D0_D0_SK3_1, SK_"test_getReplaced_D1_D0_D0_SK3_1")
984 call test%run(test_setReplaced_D1_D0_D0_SK3_1, SK_"test_setReplaced_D1_D0_D0_SK3_1")
985#endif
986#if SK2_ENABLED
987 !call test%run(test_getReplaced_D1_D0_D0_SK2_1, SK_"test_getReplaced_D1_D0_D0_SK2_1")
988 call test%run(test_setReplaced_D1_D0_D0_SK2_1, SK_"test_setReplaced_D1_D0_D0_SK2_1")
989#endif
990#if SK1_ENABLED
991 !call test%run(test_getReplaced_D1_D0_D0_SK1_1, SK_"test_getReplaced_D1_D0_D0_SK1_1")
992 call test%run(test_setReplaced_D1_D0_D0_SK1_1, SK_"test_setReplaced_D1_D0_D0_SK1_1")
993#endif
994
995 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
996
997#if IK5_ENABLED
998 !call test%run(test_getReplaced_D1_D0_D0_IK5_1, SK_"test_getReplaced_D1_D0_D0_IK5_1")
999 call test%run(test_setReplaced_D1_D0_D0_IK5_1, SK_"test_setReplaced_D1_D0_D0_IK5_1")
1000#endif
1001#if IK4_ENABLED
1002 !call test%run(test_getReplaced_D1_D0_D0_IK4_1, SK_"test_getReplaced_D1_D0_D0_IK4_1")
1003 call test%run(test_setReplaced_D1_D0_D0_IK4_1, SK_"test_setReplaced_D1_D0_D0_IK4_1")
1004#endif
1005#if IK3_ENABLED
1006 !call test%run(test_getReplaced_D1_D0_D0_IK3_1, SK_"test_getReplaced_D1_D0_D0_IK3_1")
1007 call test%run(test_setReplaced_D1_D0_D0_IK3_1, SK_"test_setReplaced_D1_D0_D0_IK3_1")
1008#endif
1009#if IK2_ENABLED
1010 !call test%run(test_getReplaced_D1_D0_D0_IK2_1, SK_"test_getReplaced_D1_D0_D0_IK2_1")
1011 call test%run(test_setReplaced_D1_D0_D0_IK2_1, SK_"test_setReplaced_D1_D0_D0_IK2_1")
1012#endif
1013#if IK1_ENABLED
1014 !call test%run(test_getReplaced_D1_D0_D0_IK1_1, SK_"test_getReplaced_D1_D0_D0_IK1_1")
1015 call test%run(test_setReplaced_D1_D0_D0_IK1_1, SK_"test_setReplaced_D1_D0_D0_IK1_1")
1016#endif
1017
1018 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1019
1020#if LK5_ENABLED
1021 !call test%run(test_getReplaced_D1_D0_D0_LK5_1, SK_"test_getReplaced_D1_D0_D0_LK5_1")
1022 call test%run(test_setReplaced_D1_D0_D0_LK5_1, SK_"test_setReplaced_D1_D0_D0_LK5_1")
1023#endif
1024#if LK4_ENABLED
1025 !call test%run(test_getReplaced_D1_D0_D0_LK4_1, SK_"test_getReplaced_D1_D0_D0_LK4_1")
1026 call test%run(test_setReplaced_D1_D0_D0_LK4_1, SK_"test_setReplaced_D1_D0_D0_LK4_1")
1027#endif
1028#if LK3_ENABLED
1029 !call test%run(test_getReplaced_D1_D0_D0_LK3_1, SK_"test_getReplaced_D1_D0_D0_LK3_1")
1030 call test%run(test_setReplaced_D1_D0_D0_LK3_1, SK_"test_setReplaced_D1_D0_D0_LK3_1")
1031#endif
1032#if LK2_ENABLED
1033 !call test%run(test_getReplaced_D1_D0_D0_LK2_1, SK_"test_getReplaced_D1_D0_D0_LK2_1")
1034 call test%run(test_setReplaced_D1_D0_D0_LK2_1, SK_"test_setReplaced_D1_D0_D0_LK2_1")
1035#endif
1036#if LK1_ENABLED
1037 !call test%run(test_getReplaced_D1_D0_D0_LK1_1, SK_"test_getReplaced_D1_D0_D0_LK1_1")
1038 call test%run(test_setReplaced_D1_D0_D0_LK1_1, SK_"test_setReplaced_D1_D0_D0_LK1_1")
1039#endif
1040
1041 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1042
1043#if CK5_ENABLED
1044 !call test%run(test_getReplaced_D1_D0_D0_CK5_1, SK_"test_getReplaced_D1_D0_D0_CK5_1")
1045 call test%run(test_setReplaced_D1_D0_D0_CK5_1, SK_"test_setReplaced_D1_D0_D0_CK5_1")
1046#endif
1047#if CK4_ENABLED
1048 !call test%run(test_getReplaced_D1_D0_D0_CK4_1, SK_"test_getReplaced_D1_D0_D0_CK4_1")
1049 call test%run(test_setReplaced_D1_D0_D0_CK4_1, SK_"test_setReplaced_D1_D0_D0_CK4_1")
1050#endif
1051#if CK3_ENABLED
1052 !call test%run(test_getReplaced_D1_D0_D0_CK3_1, SK_"test_getReplaced_D1_D0_D0_CK3_1")
1053 call test%run(test_setReplaced_D1_D0_D0_CK3_1, SK_"test_setReplaced_D1_D0_D0_CK3_1")
1054#endif
1055#if CK2_ENABLED
1056 !call test%run(test_getReplaced_D1_D0_D0_CK2_1, SK_"test_getReplaced_D1_D0_D0_CK2_1")
1057 call test%run(test_setReplaced_D1_D0_D0_CK2_1, SK_"test_setReplaced_D1_D0_D0_CK2_1")
1058#endif
1059#if CK1_ENABLED
1060 !call test%run(test_getReplaced_D1_D0_D0_CK1_1, SK_"test_getReplaced_D1_D0_D0_CK1_1")
1061 call test%run(test_setReplaced_D1_D0_D0_CK1_1, SK_"test_setReplaced_D1_D0_D0_CK1_1")
1062#endif
1063
1064 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1065
1066#if RK5_ENABLED
1067 !call test%run(test_getReplaced_D1_D0_D0_RK5_1, SK_"test_getReplaced_D1_D0_D0_RK5_1")
1068 call test%run(test_setReplaced_D1_D0_D0_RK5_1, SK_"test_setReplaced_D1_D0_D0_RK5_1")
1069#endif
1070#if RK4_ENABLED
1071 !call test%run(test_getReplaced_D1_D0_D0_RK4_1, SK_"test_getReplaced_D1_D0_D0_RK4_1")
1072 call test%run(test_setReplaced_D1_D0_D0_RK4_1, SK_"test_setReplaced_D1_D0_D0_RK4_1")
1073#endif
1074#if RK3_ENABLED
1075 !call test%run(test_getReplaced_D1_D0_D0_RK3_1, SK_"test_getReplaced_D1_D0_D0_RK3_1")
1076 call test%run(test_setReplaced_D1_D0_D0_RK3_1, SK_"test_setReplaced_D1_D0_D0_RK3_1")
1077#endif
1078#if RK2_ENABLED
1079 !call test%run(test_getReplaced_D1_D0_D0_RK2_1, SK_"test_getReplaced_D1_D0_D0_RK2_1")
1080 call test%run(test_setReplaced_D1_D0_D0_RK2_1, SK_"test_setReplaced_D1_D0_D0_RK2_1")
1081#endif
1082#if RK1_ENABLED
1083 !call test%run(test_getReplaced_D1_D0_D0_RK1_1, SK_"test_getReplaced_D1_D0_D0_RK1_1")
1084 call test%run(test_setReplaced_D1_D0_D0_RK1_1, SK_"test_setReplaced_D1_D0_D0_RK1_1")
1085#endif
1086
1087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1088
1089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1090 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1091 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1092
1093 call test%run(test_getReplaced_recurs_alloc_1, SK_"test_getReplaced_recurs_alloc_1")
1094 call test%run(test_getReplaced_recurs_alloc_2 , SK_"test_getReplaced_recurs_alloc_2")
1095 call test%run(test_getReplaced_recurs_alloc_3 , SK_"test_getReplaced_recurs_alloc_3")
1096
1097 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1098
1099 call test%summarize()
1100
1101 end subroutine setTest
1102
1103!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1104
1105 function test_getReplaced_recurs_alloc_1() result(assertion)
1106 implicit none
1107 logical(LK) :: assertion
1108 character(:, SK), allocatable :: string
1109 string = getReplaced_recurs_alloc(" StringString ", "Str", "")
1110 assertion = string == " inging "
1111 end function
1112
1113!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1114
1115 function test_getReplaced_recurs_alloc_2() result(assertion)
1116 logical(LK) :: assertion
1117 character(:, SK), allocatable :: string
1118 string = getReplaced_recurs_alloc("", "", "")
1119 assertion = string == ""
1120 end function
1121
1122!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1123
1124 function test_getReplaced_recurs_alloc_3() result(assertion)
1125
1126 implicit none
1127 logical(LK) :: assertion
1128 character(:, SK), allocatable :: string
1129 string = getReplaced_recurs_alloc("AAA", "AA", "X")
1130 assertion = string == "XA"
1131 end function
1132
1133!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1134
1135end module test_pm_arrayReplace ! LCOV_EXCL_LINE
pm_arrayReplace
This module contains procedures and generic interfaces for replacing patterns within arrays of variou...
Definition: pm_arrayReplace.F90:54
pm_arrayReplace::getReplaced_recurs_alloc
pure recursive character(:, SK) function, allocatable getReplaced_recurs_alloc(array, pattern, replacement)
[LEGACY code] Generate and return a copy of the input array where all instances of the input pattern...
Definition: pm_arrayReplace.F90:14613
pm_arrayReplace::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayReplace.F90:60
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_arrayReplace
This module contains tests of the module pm_arrayReplace.
Definition: test_pm_arrayReplace.F90:30
test_pm_arrayReplace::setTest
subroutine setTest()
Definition: test_pm_arrayReplace.F90:571
test_pm_arrayReplace::test
type(test_type) test
Definition: test_pm_arrayReplace.F90:39
test_pm_arrayReplace::test_getReplaced_recurs_alloc_3
logical(LK) function test_getReplaced_recurs_alloc_3()
Definition: test_pm_arrayReplace.F90:1125
test_pm_arrayReplace::test_getReplaced_recurs_alloc_1
logical(LK) function test_getReplaced_recurs_alloc_1()
Definition: test_pm_arrayReplace.F90:1106
test_pm_arrayReplace::test_getReplaced_recurs_alloc_2
logical(LK) function test_getReplaced_recurs_alloc_2()
Definition: test_pm_arrayReplace.F90:1116
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