ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_option.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
22
23!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
24
25module test_pm_option
26
27 use pm_option
28 use pm_test, only: test_type, LK
29
30 implicit none
31
32 private
33 public :: setTest
34 type(test_type) :: test
35
36!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37
38 interface
39
40 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41
42#if CK5_ENABLED
43 module function test_getOption_CK5_1 () result(assertion); logical(LK) :: assertion; end function
44#endif
45#if CK4_ENABLED
46 module function test_getOption_CK4_1 () result(assertion); logical(LK) :: assertion; end function
47#endif
48#if CK3_ENABLED
49 module function test_getOption_CK3_1 () result(assertion); logical(LK) :: assertion; end function
50#endif
51#if CK2_ENABLED
52 module function test_getOption_CK2_1 () result(assertion); logical(LK) :: assertion; end function
53#endif
54#if CK1_ENABLED
55 module function test_getOption_CK1_1 () result(assertion); logical(LK) :: assertion; end function
56#endif
57
58 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59
60#if RK5_ENABLED
61 module function test_getOption_RK5_1 () result(assertion); logical(LK) :: assertion; end function
62#endif
63#if RK4_ENABLED
64 module function test_getOption_RK4_1 () result(assertion); logical(LK) :: assertion; end function
65#endif
66#if RK3_ENABLED
67 module function test_getOption_RK3_1 () result(assertion); logical(LK) :: assertion; end function
68#endif
69#if RK2_ENABLED
70 module function test_getOption_RK2_1 () result(assertion); logical(LK) :: assertion; end function
71#endif
72#if RK1_ENABLED
73 module function test_getOption_RK1_1 () result(assertion); logical(LK) :: assertion; end function
74#endif
75
76 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
77
78#if IK4_ENABLED
79 module function test_getOption_IK4_1 () result(assertion); logical(LK) :: assertion; end function
80#endif
81#if IK3_ENABLED
82 module function test_getOption_IK3_1 () result(assertion); logical(LK) :: assertion; end function
83#endif
84#if IK2_ENABLED
85 module function test_getOption_IK2_1 () result(assertion); logical(LK) :: assertion; end function
86#endif
87#if IK1_ENABLED
88 module function test_getOption_IK1_1 () result(assertion); logical(LK) :: assertion; end function
89#endif
90
91 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
92
93 module function test_getOption_LK_1 () result(assertion); logical(LK) :: assertion; end function
94 module function test_getOption_SK_1 () result(assertion); logical(LK) :: assertion; end function
95
96 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97
98 end interface
99
100!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
101
102contains
103
104!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
105
106 subroutine setTest()
107
108 test = test_type(MODULE_NAME)
109
110 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
111
112 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113
114#if CK5_ENABLED
115 call test%run(test_getOption_CK5_1, SK_"test_getOption_CK5_1")
116#endif
117#if CK4_ENABLED
118 call test%run(test_getOption_CK4_1, SK_"test_getOption_CK4_1")
119#endif
120#if CK3_ENABLED
121 call test%run(test_getOption_CK3_1, SK_"test_getOption_CK3_1")
122#endif
123#if CK2_ENABLED
124 call test%run(test_getOption_CK2_1, SK_"test_getOption_CK2_1")
125#endif
126#if CK1_ENABLED
127 call test%run(test_getOption_CK1_1, SK_"test_getOption_CK1_1")
128#endif
129
130 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
131
132#if RK5_ENABLED
133 call test%run(test_getOption_RK5_1, SK_"test_getOption_RK5_1")
134#endif
135#if RK4_ENABLED
136 call test%run(test_getOption_RK4_1, SK_"test_getOption_RK4_1")
137#endif
138#if RK3_ENABLED
139 call test%run(test_getOption_RK3_1, SK_"test_getOption_RK3_1")
140#endif
141#if RK2_ENABLED
142 call test%run(test_getOption_RK2_1, SK_"test_getOption_RK2_1")
143#endif
144#if RK1_ENABLED
145 call test%run(test_getOption_RK1_1, SK_"test_getOption_RK1_1")
146#endif
147
148 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
149
150#if IK4_ENABLED
151 call test%run(test_getOption_IK4_1, SK_"test_getOption_IK4_1")
152#endif
153#if IK3_ENABLED
154 call test%run(test_getOption_IK3_1, SK_"test_getOption_IK3_1")
155#endif
156#if IK2_ENABLED
157 call test%run(test_getOption_IK2_1, SK_"test_getOption_IK2_1")
158#endif
159#if IK1_ENABLED
160 call test%run(test_getOption_IK1_1 , SK_"test_getOption_IK1_1")
161#endif
162
163 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164
165 call test%run(test_getOption_LK_1, SK_"test_getOption_LK_1")
166 call test%run(test_getOption_SK_1, SK_"test_getOption_SK_1")
167
168 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
169
170 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171 call test%summarize()
172
173 end subroutine setTest
174
175!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176
177end module test_pm_option
pm_option
This module contains procedures, generic interfaces, and types for generating default values for opti...
Definition: pm_option.F90:34
pm_option::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_option.F90:40
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_option
This module contains tests of the module pm_option.
Definition: test_pm_option.F90:25
test_pm_option::setTest
subroutine setTest()
Definition: test_pm_option.F90:107
test_pm_option::test
type(test_type) test
Definition: test_pm_option.F90:34
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