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_arrayFill](@ref pm_arrayFill).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : module test_pm_arrayFill
28 :
29 : use pm_arrayFill
30 : use pm_err, only: err_type
31 : use pm_test, only: test_type, LK
32 :
33 : implicit none
34 :
35 : private
36 : public :: setTest
37 : type(test_type) :: test
38 :
39 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
40 :
41 : interface
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : #if SK5_ENABLED
46 : module function test_getFilled_SK5_1() result(assertion); logical(LK) :: assertion; end function
47 : #endif
48 : #if SK4_ENABLED
49 : module function test_getFilled_SK4_1() result(assertion); logical(LK) :: assertion; end function
50 : #endif
51 : #if SK3_ENABLED
52 : module function test_getFilled_SK3_1() result(assertion); logical(LK) :: assertion; end function
53 : #endif
54 : #if SK2_ENABLED
55 : module function test_getFilled_SK2_1() result(assertion); logical(LK) :: assertion; end function
56 : #endif
57 : #if SK1_ENABLED
58 : module function test_getFilled_SK1_1() result(assertion); logical(LK) :: assertion; end function
59 : #endif
60 :
61 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62 :
63 : #if IK5_ENABLED
64 : module function test_getFilled_IK5_1() result(assertion); logical(LK) :: assertion; end function
65 : #endif
66 : #if IK4_ENABLED
67 : module function test_getFilled_IK4_1() result(assertion); logical(LK) :: assertion; end function
68 : #endif
69 : #if IK3_ENABLED
70 : module function test_getFilled_IK3_1() result(assertion); logical(LK) :: assertion; end function
71 : #endif
72 : #if IK2_ENABLED
73 : module function test_getFilled_IK2_1() result(assertion); logical(LK) :: assertion; end function
74 : #endif
75 : #if IK1_ENABLED
76 : module function test_getFilled_IK1_1() result(assertion); logical(LK) :: assertion; end function
77 : #endif
78 :
79 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80 :
81 : #if LK5_ENABLED
82 : module function test_getFilled_LK5_1() result(assertion); logical(LK) :: assertion; end function
83 : #endif
84 : #if LK4_ENABLED
85 : module function test_getFilled_LK4_1() result(assertion); logical(LK) :: assertion; end function
86 : #endif
87 : #if LK3_ENABLED
88 : module function test_getFilled_LK3_1() result(assertion); logical(LK) :: assertion; end function
89 : #endif
90 : #if LK2_ENABLED
91 : module function test_getFilled_LK2_1() result(assertion); logical(LK) :: assertion; end function
92 : #endif
93 : #if LK1_ENABLED
94 : module function test_getFilled_LK1_1() result(assertion); logical(LK) :: assertion; end function
95 : #endif
96 :
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 :
99 : #if CK5_ENABLED
100 : module function test_getFilled_CK5_1() result(assertion); logical(LK) :: assertion; end function
101 : #endif
102 : #if CK4_ENABLED
103 : module function test_getFilled_CK4_1() result(assertion); logical(LK) :: assertion; end function
104 : #endif
105 : #if CK3_ENABLED
106 : module function test_getFilled_CK3_1() result(assertion); logical(LK) :: assertion; end function
107 : #endif
108 : #if CK2_ENABLED
109 : module function test_getFilled_CK2_1() result(assertion); logical(LK) :: assertion; end function
110 : #endif
111 : #if CK1_ENABLED
112 : module function test_getFilled_CK1_1() result(assertion); logical(LK) :: assertion; end function
113 : #endif
114 :
115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
116 :
117 : #if RK5_ENABLED
118 : module function test_getFilled_RK5_1() result(assertion); logical(LK) :: assertion; end function
119 : #endif
120 : #if RK4_ENABLED
121 : module function test_getFilled_RK4_1() result(assertion); logical(LK) :: assertion; end function
122 : #endif
123 : #if RK3_ENABLED
124 : module function test_getFilled_RK3_1() result(assertion); logical(LK) :: assertion; end function
125 : #endif
126 : #if RK2_ENABLED
127 : module function test_getFilled_RK2_1() result(assertion); logical(LK) :: assertion; end function
128 : #endif
129 : #if RK1_ENABLED
130 : module function test_getFilled_RK1_1() result(assertion); logical(LK) :: assertion; end function
131 : #endif
132 :
133 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
134 :
135 : end interface
136 :
137 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
138 :
139 : contains
140 :
141 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
142 :
143 1 : subroutine setTest()
144 :
145 : implicit none
146 :
147 1 : test = test_type(MODULE_NAME)
148 :
149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
151 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152 :
153 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
154 :
155 : #if SK5_ENABLED
156 : call test%run(test_getFilled_SK5_1, SK_"test_getFilled_SK5_1")
157 : #endif
158 : #if SK4_ENABLED
159 : call test%run(test_getFilled_SK4_1, SK_"test_getFilled_SK4_1")
160 : #endif
161 : #if SK3_ENABLED
162 : call test%run(test_getFilled_SK3_1, SK_"test_getFilled_SK3_1")
163 : #endif
164 : #if SK2_ENABLED
165 : call test%run(test_getFilled_SK2_1, SK_"test_getFilled_SK2_1")
166 : #endif
167 : #if SK1_ENABLED
168 1 : call test%run(test_getFilled_SK1_1, SK_"test_getFilled_SK1_1")
169 : #endif
170 :
171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172 :
173 : #if IK5_ENABLED
174 1 : call test%run(test_getFilled_IK5_1, SK_"test_getFilled_IK5_1")
175 : #endif
176 : #if IK4_ENABLED
177 1 : call test%run(test_getFilled_IK4_1, SK_"test_getFilled_IK4_1")
178 : #endif
179 : #if IK3_ENABLED
180 1 : call test%run(test_getFilled_IK3_1, SK_"test_getFilled_IK3_1")
181 : #endif
182 : #if IK2_ENABLED
183 1 : call test%run(test_getFilled_IK2_1, SK_"test_getFilled_IK2_1")
184 : #endif
185 : #if IK1_ENABLED
186 1 : call test%run(test_getFilled_IK1_1, SK_"test_getFilled_IK1_1")
187 : #endif
188 :
189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
190 :
191 : #if LK5_ENABLED
192 1 : call test%run(test_getFilled_LK5_1, SK_"test_getFilled_LK5_1")
193 : #endif
194 : #if LK4_ENABLED
195 1 : call test%run(test_getFilled_LK4_1, SK_"test_getFilled_LK4_1")
196 : #endif
197 : #if LK3_ENABLED
198 1 : call test%run(test_getFilled_LK3_1, SK_"test_getFilled_LK3_1")
199 : #endif
200 : #if LK2_ENABLED
201 1 : call test%run(test_getFilled_LK2_1, SK_"test_getFilled_LK2_1")
202 : #endif
203 : #if LK1_ENABLED
204 1 : call test%run(test_getFilled_LK1_1, SK_"test_getFilled_LK1_1")
205 : #endif
206 :
207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
208 :
209 : #if CK5_ENABLED
210 : call test%run(test_getFilled_CK5_1, SK_"test_getFilled_CK5_1")
211 : #endif
212 : #if CK4_ENABLED
213 1 : call test%run(test_getFilled_CK4_1, SK_"test_getFilled_CK4_1")
214 : #endif
215 : #if CK3_ENABLED
216 1 : call test%run(test_getFilled_CK3_1, SK_"test_getFilled_CK3_1")
217 : #endif
218 : #if CK2_ENABLED
219 1 : call test%run(test_getFilled_CK2_1, SK_"test_getFilled_CK2_1")
220 : #endif
221 : #if CK1_ENABLED
222 1 : call test%run(test_getFilled_CK1_1, SK_"test_getFilled_CK1_1")
223 : #endif
224 :
225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226 :
227 : #if RK5_ENABLED
228 : call test%run(test_getFilled_RK5_1, SK_"test_getFilled_RK5_1")
229 : #endif
230 : #if RK4_ENABLED
231 1 : call test%run(test_getFilled_RK4_1, SK_"test_getFilled_RK4_1")
232 : #endif
233 : #if RK3_ENABLED
234 1 : call test%run(test_getFilled_RK3_1, SK_"test_getFilled_RK3_1")
235 : #endif
236 : #if RK2_ENABLED
237 1 : call test%run(test_getFilled_RK2_1, SK_"test_getFilled_RK2_1")
238 : #endif
239 : #if RK1_ENABLED
240 1 : call test%run(test_getFilled_RK1_1, SK_"test_getFilled_RK1_1")
241 : #endif
242 :
243 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
244 :
245 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248 :
249 1 : call test%summarize()
250 :
251 1 : end subroutine setTest
252 :
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 :
255 : end module test_pm_arrayFill ! LCOV_EXCL_LINE
|
