ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_val2real.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_val2real
28
29 use pm_val2real
30 use pm_test, only: test_type, LK
31 implicit none
32
33 private
34 public :: setTest
35 type(test_type) :: test
36
37!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38
39 interface
40#if RK3_ENABLED
41 module function test_getReal128_LK_1() result(assertion); logical(LK) :: assertion; end function
42 module function test_getReal128_SK_1() result(assertion); logical(LK) :: assertion; end function
43#endif
44#if RK2_ENABLED
45 module function test_getReal64_LK_1() result(assertion); logical(LK) :: assertion; end function
46 module function test_getReal64_SK_1() result(assertion); logical(LK) :: assertion; end function
47#endif
48#if RK1_ENABLED
49 module function test_getReal32_LK_1() result(assertion); logical(LK) :: assertion; end function
50 module function test_getReal32_SK_1() result(assertion); logical(LK) :: assertion; end function
51#endif
52 module function test_getReal_LK_1() result(assertion); logical(LK) :: assertion; end function
53 module function test_getReal_SK_1() result(assertion); logical(LK) :: assertion; end function
54 end interface
55
56!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57
58contains
59
60!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61
62 subroutine setTest()
63 test = test_type(MODULE_NAME)
64
65 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66
67#if RK3_ENABLED
68 call test%run(test_getReal128_LK_1, SK_"test_getReal128_LK_1")
69 call test%run(test_getReal128_SK_1, SK_"test_getReal128_SK_1")
70#endif
71#if RK2_ENABLED
72 call test%run(test_getReal64_LK_1, SK_"test_getReal64_LK_1")
73 call test%run(test_getReal64_SK_1, SK_"test_getReal64_SK_1")
74#endif
75#if RK1_ENABLED
76 call test%run(test_getReal32_LK_1, SK_"test_getReal32_LK_1")
77 call test%run(test_getReal32_SK_1, SK_"test_getReal32_SK_1")
78#endif
79 call test%run(test_getReal_LK_1, SK_"test_getReal_LK_1")
80 call test%run(test_getReal_SK_1, SK_"test_getReal_SK_1")
81
82 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
83 call test%summarize()
84
85 end subroutine setTest
86
87!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
88
89end module test_pm_val2real ! 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_val2real
This module contains procedures and types for facilitating the conversion of values of different type...
Definition: pm_val2real.F90:43
pm_val2real::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_val2real.F90:49
test_pm_val2real
This module contains tests of the module pm_val2Real.
Definition: test_pm_val2real.F90:27
test_pm_val2real::setTest
subroutine setTest()
Definition: test_pm_val2real.F90:63
test_pm_val2real::test
type(test_type) test
Definition: test_pm_val2real.F90:35
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