ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_val2int.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
19
20module test_pm_val2int
21
22 use pm_val2int
23 use pm_test, only: test_type, LK
24 implicit none
25
26 private
27 public :: setTest
28 type(test_type) :: test
29
30!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31
32 interface
33#if IK4_ENABLED
34 module function test_getInt64_LK_1() result(assertion); logical(LK) :: assertion; end function
35 module function test_getInt64_SK_1() result(assertion); logical(LK) :: assertion; end function
36#endif
37#if IK3_ENABLED
38 module function test_getInt32_LK_1() result(assertion); logical(LK) :: assertion; end function
39 module function test_getInt32_SK_1() result(assertion); logical(LK) :: assertion; end function
40#endif
41#if IK2_ENABLED
42 module function test_getInt16_LK_1() result(assertion); logical(LK) :: assertion; end function
43 module function test_getInt16_SK_1() result(assertion); logical(LK) :: assertion; end function
44#endif
45#if IK1_ENABLED
46 module function test_getInt8_LK_1() result(assertion); logical(LK) :: assertion; end function
47 module function test_getInt8_SK_1() result(assertion); logical(LK) :: assertion; end function
48#endif
49 module function test_getInt_LK_1() result(assertion); logical(LK) :: assertion; end function
50 module function test_getInt_SK_1() result(assertion); logical(LK) :: assertion; end function
51 end interface
52
53!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54
55contains
56
57!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58
59 subroutine setTest()
60 test = test_type(MODULE_NAME)
61
62 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63
64#if IK4_ENABLED
65 call test%run(test_getInt64_LK_1, SK_"test_getInt64_LK_1")
66 call test%run(test_getInt64_SK_1, SK_"test_getInt64_SK_1")
67#endif
68#if IK3_ENABLED
69 call test%run(test_getInt32_LK_1, SK_"test_getInt32_LK_1")
70 call test%run(test_getInt32_SK_1, SK_"test_getInt32_SK_1")
71#endif
72#if IK2_ENABLED
73 call test%run(test_getInt16_LK_1, SK_"test_getInt16_LK_1")
74 call test%run(test_getInt16_SK_1, SK_"test_getInt16_SK_1")
75#endif
76#if IK1_ENABLED
77 call test%run(test_getInt8_LK_1, SK_"test_getInt8_LK_1")
78 call test%run(test_getInt8_SK_1, SK_"test_getInt8_SK_1")
79#endif
80 call test%run(test_getInt_LK_1, SK_"test_getInt_LK_1")
81 call test%run(test_getInt_SK_1, SK_"test_getInt_SK_1")
82
83 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
84 call test%summarize()
85
86 end subroutine setTest
87
88!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
89
90end module test_pm_val2int ! LCOV_EXCL_LINE
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
pm_val2int
This module contains procedures and types for facilitating the conversion of values of different type...
Definition: pm_val2int.F90:43
pm_val2int::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_val2int.F90:49
test_pm_val2int
This module contains tests of the module val2int_pmod.
Definition: test_pm_val2int.F90:20
test_pm_val2int::setTest
subroutine setTest()
Definition: test_pm_val2int.F90:60
test_pm_val2int::test
type(test_type) test
Definition: test_pm_val2int.F90:28
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