ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_complexCompareAny.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_complexCompareAny
28
29 use pm_complexCompareAny
30 use pm_err, only: err_type
31 use pm_test, only: test_type, LK
32 implicit none
33
34 private
35 public :: setTest
36 type(test_type) :: test
37
38!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
39
40 interface
41#if CK5_ENABLED
42 module function test_isanyless_CK5_1() result(assertion); logical(LK) :: assertion; end function
43 module function test_isanyleq_CK5_1() result(assertion); logical(LK) :: assertion; end function
44 module function test_isanyneq_CK5_1() result(assertion); logical(LK) :: assertion; end function
45 module function test_isanyeq_CK5_1() result(assertion); logical(LK) :: assertion; end function
46 module function test_isanymeq_CK5_1() result(assertion); logical(LK) :: assertion; end function
47 module function test_isanymore_CK5_1() result(assertion); logical(LK) :: assertion; end function
48#endif
49#if CK4_ENABLED
50 module function test_isanyless_CK4_1() result(assertion); logical(LK) :: assertion; end function
51 module function test_isanyleq_CK4_1() result(assertion); logical(LK) :: assertion; end function
52 module function test_isanyneq_CK4_1() result(assertion); logical(LK) :: assertion; end function
53 module function test_isanyeq_CK4_1() result(assertion); logical(LK) :: assertion; end function
54 module function test_isanymeq_CK4_1() result(assertion); logical(LK) :: assertion; end function
55 module function test_isanymore_CK4_1() result(assertion); logical(LK) :: assertion; end function
56#endif
57#if CK3_ENABLED
58 module function test_isanyless_CK3_1() result(assertion); logical(LK) :: assertion; end function
59 module function test_isanyleq_CK3_1() result(assertion); logical(LK) :: assertion; end function
60 module function test_isanyneq_CK3_1() result(assertion); logical(LK) :: assertion; end function
61 module function test_isanyeq_CK3_1() result(assertion); logical(LK) :: assertion; end function
62 module function test_isanymeq_CK3_1() result(assertion); logical(LK) :: assertion; end function
63 module function test_isanymore_CK3_1() result(assertion); logical(LK) :: assertion; end function
64#endif
65#if CK2_ENABLED
66 module function test_isanyless_CK2_1() result(assertion); logical(LK) :: assertion; end function
67 module function test_isanyleq_CK2_1() result(assertion); logical(LK) :: assertion; end function
68 module function test_isanyneq_CK2_1() result(assertion); logical(LK) :: assertion; end function
69 module function test_isanyeq_CK2_1() result(assertion); logical(LK) :: assertion; end function
70 module function test_isanymeq_CK2_1() result(assertion); logical(LK) :: assertion; end function
71 module function test_isanymore_CK2_1() result(assertion); logical(LK) :: assertion; end function
72#endif
73#if CK1_ENABLED
74 module function test_isanyless_CK1_1() result(assertion); logical(LK) :: assertion; end function
75 module function test_isanyleq_CK1_1() result(assertion); logical(LK) :: assertion; end function
76 module function test_isanyneq_CK1_1() result(assertion); logical(LK) :: assertion; end function
77 module function test_isanyeq_CK1_1() result(assertion); logical(LK) :: assertion; end function
78 module function test_isanymeq_CK1_1() result(assertion); logical(LK) :: assertion; end function
79 module function test_isanymore_CK1_1() result(assertion); logical(LK) :: assertion; end function
80#endif
81 end interface
82
83!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
84
85contains
86
87!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
88
89 subroutine setTest()
90
91 implicit none
92 test = test_type(MODULE_NAME)
93
94 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
95
96#if CK5_ENABLED
97 call test%run(test_isanyless_CK5_1, SK_"test_isanyless_CK5_1")
98 call test%run(test_isanyleq_CK5_1, SK_"test_isanyleq_CK5_1")
99 call test%run(test_isanyneq_CK5_1, SK_"test_isanyneq_CK5_1")
100 call test%run(test_isanyeq_CK5_1, SK_"test_isanyeq_CK5_1")
101 call test%run(test_isanymeq_CK5_1, SK_"test_isanymeq_CK5_1")
102 call test%run(test_isanymore_CK5_1, SK_"test_isanymore_CK5_1")
103#endif
104#if CK4_ENABLED
105 call test%run(test_isanyless_CK4_1, SK_"test_isanyless_CK4_1")
106 call test%run(test_isanyleq_CK4_1, SK_"test_isanyleq_CK4_1")
107 call test%run(test_isanyneq_CK4_1, SK_"test_isanyneq_CK4_1")
108 call test%run(test_isanyeq_CK4_1, SK_"test_isanyeq_CK4_1")
109 call test%run(test_isanymeq_CK4_1, SK_"test_isanymeq_CK4_1")
110 call test%run(test_isanymore_CK4_1, SK_"test_isanymore_CK4_1")
111#endif
112#if CK3_ENABLED
113 call test%run(test_isanyless_CK3_1, SK_"test_isanyless_CK3_1")
114 call test%run(test_isanyleq_CK3_1, SK_"test_isanyleq_CK3_1")
115 call test%run(test_isanyneq_CK3_1, SK_"test_isanyneq_CK3_1")
116 call test%run(test_isanyeq_CK3_1, SK_"test_isanyeq_CK3_1")
117 call test%run(test_isanymeq_CK3_1, SK_"test_isanymeq_CK3_1")
118 call test%run(test_isanymore_CK3_1, SK_"test_isanymore_CK3_1")
119#endif
120#if CK2_ENABLED
121 call test%run(test_isanyless_CK2_1, SK_"test_isanyless_CK2_1")
122 call test%run(test_isanyleq_CK2_1, SK_"test_isanyleq_CK2_1")
123 call test%run(test_isanyneq_CK2_1, SK_"test_isanyneq_CK2_1")
124 call test%run(test_isanyeq_CK2_1, SK_"test_isanyeq_CK2_1")
125 call test%run(test_isanymeq_CK2_1, SK_"test_isanymeq_CK2_1")
126 call test%run(test_isanymore_CK2_1, SK_"test_isanymore_CK2_1")
127#endif
128#if CK1_ENABLED
129 call test%run(test_isanyless_CK1_1, SK_"test_isanyless_CK1_1")
130 call test%run(test_isanyleq_CK1_1, SK_"test_isanyleq_CK1_1")
131 call test%run(test_isanyneq_CK1_1, SK_"test_isanyneq_CK1_1")
132 call test%run(test_isanyeq_CK1_1, SK_"test_isanyeq_CK1_1")
133 call test%run(test_isanymeq_CK1_1, SK_"test_isanymeq_CK1_1")
134 call test%run(test_isanymore_CK1_1, SK_"test_isanymore_CK1_1")
135#endif
136
137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
138
139 call test%summarize()
140
141 end subroutine setTest
142
143!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144
145end module test_pm_complexCompareAny ! LCOV_EXCL_LINE
pm_complexCompareAny
This module contains procedures and generic interfaces for checking if either of the corresponding re...
Definition: pm_complexCompareAny.F90:35
pm_complexCompareAny::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_complexCompareAny.F90:40
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_complexCompareAny
This module contains tests of the module pm_complexCompareAny.
Definition: test_pm_complexCompareAny.F90:27
test_pm_complexCompareAny::test
type(test_type) test
Definition: test_pm_complexCompareAny.F90:36
test_pm_complexCompareAny::setTest
subroutine setTest()
Definition: test_pm_complexCompareAny.F90:90
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