ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_arrayFill.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
24
25!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26
27module test_pm_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
139contains
140
141!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
142
143 subroutine setTest()
144
145 implicit none
146
147 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 call test%run(test_getFilled_SK1_1, SK_"test_getFilled_SK1_1")
169#endif
170
171 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172
173#if IK5_ENABLED
174 call test%run(test_getFilled_IK5_1, SK_"test_getFilled_IK5_1")
175#endif
176#if IK4_ENABLED
177 call test%run(test_getFilled_IK4_1, SK_"test_getFilled_IK4_1")
178#endif
179#if IK3_ENABLED
180 call test%run(test_getFilled_IK3_1, SK_"test_getFilled_IK3_1")
181#endif
182#if IK2_ENABLED
183 call test%run(test_getFilled_IK2_1, SK_"test_getFilled_IK2_1")
184#endif
185#if IK1_ENABLED
186 call test%run(test_getFilled_IK1_1, SK_"test_getFilled_IK1_1")
187#endif
188
189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
190
191#if LK5_ENABLED
192 call test%run(test_getFilled_LK5_1, SK_"test_getFilled_LK5_1")
193#endif
194#if LK4_ENABLED
195 call test%run(test_getFilled_LK4_1, SK_"test_getFilled_LK4_1")
196#endif
197#if LK3_ENABLED
198 call test%run(test_getFilled_LK3_1, SK_"test_getFilled_LK3_1")
199#endif
200#if LK2_ENABLED
201 call test%run(test_getFilled_LK2_1, SK_"test_getFilled_LK2_1")
202#endif
203#if LK1_ENABLED
204 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 call test%run(test_getFilled_CK4_1, SK_"test_getFilled_CK4_1")
214#endif
215#if CK3_ENABLED
216 call test%run(test_getFilled_CK3_1, SK_"test_getFilled_CK3_1")
217#endif
218#if CK2_ENABLED
219 call test%run(test_getFilled_CK2_1, SK_"test_getFilled_CK2_1")
220#endif
221#if CK1_ENABLED
222 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 call test%run(test_getFilled_RK4_1, SK_"test_getFilled_RK4_1")
232#endif
233#if RK3_ENABLED
234 call test%run(test_getFilled_RK3_1, SK_"test_getFilled_RK3_1")
235#endif
236#if RK2_ENABLED
237 call test%run(test_getFilled_RK2_1, SK_"test_getFilled_RK2_1")
238#endif
239#if RK1_ENABLED
240 call test%run(test_getFilled_RK1_1, SK_"test_getFilled_RK1_1")
241#endif
242
243 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
244
245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
246 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248
249 call test%summarize()
250
251 end subroutine setTest
252
253!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254
255end module test_pm_arrayFill ! LCOV_EXCL_LINE
pm_arrayFill
This module contains procedures and generic interfaces for convenient allocation and filling of array...
Definition: pm_arrayFill.F90:42
pm_arrayFill::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayFill.F90:48
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_arrayFill
This module contains tests of the module pm_arrayFill.
Definition: test_pm_arrayFill.F90:27
test_pm_arrayFill::test
type(test_type) test
Definition: test_pm_arrayFill.F90:37
test_pm_arrayFill::setTest
subroutine setTest()
Definition: test_pm_arrayFill.F90:144
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