ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_complexCompareAll.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_complexCompareAll
28
29 use pm_complexCompareAll
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_isallless_CK5_1() result(assertion); logical(LK) :: assertion; end function
43 module function test_isallleq_CK5_1() result(assertion); logical(LK) :: assertion; end function
44 module function test_isallneq_CK5_1() result(assertion); logical(LK) :: assertion; end function
45 module function test_isallmeq_CK5_1() result(assertion); logical(LK) :: assertion; end function
46 module function test_isallmore_CK5_1() result(assertion); logical(LK) :: assertion; end function
47#endif
48#if CK4_ENABLED
49 module function test_isallless_CK4_1() result(assertion); logical(LK) :: assertion; end function
50 module function test_isallleq_CK4_1() result(assertion); logical(LK) :: assertion; end function
51 module function test_isallneq_CK4_1() result(assertion); logical(LK) :: assertion; end function
52 module function test_isallmeq_CK4_1() result(assertion); logical(LK) :: assertion; end function
53 module function test_isallmore_CK4_1() result(assertion); logical(LK) :: assertion; end function
54#endif
55#if CK3_ENABLED
56 module function test_isallless_CK3_1() result(assertion); logical(LK) :: assertion; end function
57 module function test_isallleq_CK3_1() result(assertion); logical(LK) :: assertion; end function
58 module function test_isallneq_CK3_1() result(assertion); logical(LK) :: assertion; end function
59 module function test_isallmeq_CK3_1() result(assertion); logical(LK) :: assertion; end function
60 module function test_isallmore_CK3_1() result(assertion); logical(LK) :: assertion; end function
61#endif
62#if CK2_ENABLED
63 module function test_isallless_CK2_1() result(assertion); logical(LK) :: assertion; end function
64 module function test_isallleq_CK2_1() result(assertion); logical(LK) :: assertion; end function
65 module function test_isallneq_CK2_1() result(assertion); logical(LK) :: assertion; end function
66 module function test_isallmeq_CK2_1() result(assertion); logical(LK) :: assertion; end function
67 module function test_isallmore_CK2_1() result(assertion); logical(LK) :: assertion; end function
68#endif
69#if CK1_ENABLED
70 module function test_isallless_CK1_1() result(assertion); logical(LK) :: assertion; end function
71 module function test_isallleq_CK1_1() result(assertion); logical(LK) :: assertion; end function
72 module function test_isallneq_CK1_1() result(assertion); logical(LK) :: assertion; end function
73 module function test_isallmeq_CK1_1() result(assertion); logical(LK) :: assertion; end function
74 module function test_isallmore_CK1_1() result(assertion); logical(LK) :: assertion; end function
75#endif
76 end interface
77
78!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
79
80contains
81
82!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83
84 subroutine setTest()
85
86 implicit none
87 test = test_type(MODULE_NAME)
88
89 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90
91#if CK5_ENABLED
92 call test%run(test_isallless_CK5_1, SK_"test_isallless_CK5_1")
93 call test%run(test_isallleq_CK5_1, SK_"test_isallleq_CK5_1")
94 call test%run(test_isallneq_CK5_1, SK_"test_isallneq_CK5_1")
95 call test%run(test_isallmeq_CK5_1, SK_"test_isallmeq_CK5_1")
96 call test%run(test_isallmore_CK5_1, SK_"test_isallmore_CK5_1")
97#endif
98#if CK4_ENABLED
99 call test%run(test_isallless_CK4_1, SK_"test_isallless_CK4_1")
100 call test%run(test_isallleq_CK4_1, SK_"test_isallleq_CK4_1")
101 call test%run(test_isallneq_CK4_1, SK_"test_isallneq_CK4_1")
102 call test%run(test_isallmeq_CK4_1, SK_"test_isallmeq_CK4_1")
103 call test%run(test_isallmore_CK4_1, SK_"test_isallmore_CK4_1")
104#endif
105#if CK3_ENABLED
106 call test%run(test_isallless_CK3_1, SK_"test_isallless_CK3_1")
107 call test%run(test_isallleq_CK3_1, SK_"test_isallleq_CK3_1")
108 call test%run(test_isallneq_CK3_1, SK_"test_isallneq_CK3_1")
109 call test%run(test_isallmeq_CK3_1, SK_"test_isallmeq_CK3_1")
110 call test%run(test_isallmore_CK3_1, SK_"test_isallmore_CK3_1")
111#endif
112#if CK2_ENABLED
113 call test%run(test_isallless_CK2_1, SK_"test_isallless_CK2_1")
114 call test%run(test_isallleq_CK2_1, SK_"test_isallleq_CK2_1")
115 call test%run(test_isallneq_CK2_1, SK_"test_isallneq_CK2_1")
116 call test%run(test_isallmeq_CK2_1, SK_"test_isallmeq_CK2_1")
117 call test%run(test_isallmore_CK2_1, SK_"test_isallmore_CK2_1")
118#endif
119#if CK1_ENABLED
120 call test%run(test_isallless_CK1_1, SK_"test_isallless_CK1_1")
121 call test%run(test_isallleq_CK1_1, SK_"test_isallleq_CK1_1")
122 call test%run(test_isallneq_CK1_1, SK_"test_isallneq_CK1_1")
123 call test%run(test_isallmeq_CK1_1, SK_"test_isallmeq_CK1_1")
124 call test%run(test_isallmore_CK1_1, SK_"test_isallmore_CK1_1")
125#endif
126
127 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
128
129 call test%summarize()
130
131 end subroutine setTest
132
133!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
134
135end module test_pm_complexCompareAll ! LCOV_EXCL_LINE
pm_complexCompareAll
This module contains procedures and generic interfaces for checking if both of the corresponding real...
Definition: pm_complexCompareAll.F90:35
pm_complexCompareAll::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_complexCompareAll.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_complexCompareAll
This module contains tests of the module pm_complexCompareAll.
Definition: test_pm_complexCompareAll.F90:27
test_pm_complexCompareAll::setTest
subroutine setTest()
Definition: test_pm_complexCompareAll.F90:85
test_pm_complexCompareAll::test
type(test_type) test
Definition: test_pm_complexCompareAll.F90:36
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