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_arrayReplace](@ref pm_arrayReplace).
19 : !>
20 : !> \todo
21 : !> \phigh The following tests should be extended to include allocatable arrays of arbitrary bounds.
22 : !>
23 : !> \fintest
24 : !>
25 : !> \author
26 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
27 :
28 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
29 :
30 : module 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 :
566 : contains
567 :
568 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
569 :
570 1 : subroutine setTest()
571 :
572 : implicit none
573 :
574 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : 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 1 : call test%run(test_getReplaced_recurs_alloc_1, SK_"test_getReplaced_recurs_alloc_1")
1094 1 : call test%run(test_getReplaced_recurs_alloc_2 , SK_"test_getReplaced_recurs_alloc_2")
1095 1 : call test%run(test_getReplaced_recurs_alloc_3 , SK_"test_getReplaced_recurs_alloc_3")
1096 :
1097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1098 :
1099 1 : call test%summarize()
1100 :
1101 1 : end subroutine setTest
1102 :
1103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1104 :
1105 1 : function test_getReplaced_recurs_alloc_1() result(assertion)
1106 : implicit none
1107 : logical(LK) :: assertion
1108 : character(:, SK), allocatable :: string
1109 1 : string = getReplaced_recurs_alloc(" StringString ", "Str", "")
1110 1 : assertion = string == " inging "
1111 1 : end function
1112 :
1113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1114 :
1115 1 : function test_getReplaced_recurs_alloc_2() result(assertion)
1116 : logical(LK) :: assertion
1117 : character(:, SK), allocatable :: string
1118 1 : string = getReplaced_recurs_alloc("", "", "")
1119 1 : assertion = string == ""
1120 1 : end function
1121 :
1122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1123 :
1124 1 : function test_getReplaced_recurs_alloc_3() result(assertion)
1125 :
1126 : implicit none
1127 : logical(LK) :: assertion
1128 : character(:, SK), allocatable :: string
1129 1 : string = getReplaced_recurs_alloc("AAA", "AA", "X")
1130 1 : assertion = string == "XA"
1131 1 : end function
1132 :
1133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1134 :
1135 : end module test_pm_arrayReplace ! LCOV_EXCL_LINE
|
