https://www.cdslab.org/paramonte/fortran/2
Current view: top level - test - test_pm_arraySort.F90 (source / functions) Hit Total Coverage
Test: ParaMonte 2.0.0 :: Serial Fortran - Code Coverage Report Lines: 304 304 100.0 %
Date: 2024-04-08 03:18:57 Functions: 1 1 100.0 %
Legend: Lines: hit not hit

          Line data    Source code
       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             : 
      17             : !>  \brief
      18             : !>  This module contains tests of the module [pm_arraySort](@ref pm_arraySort).
      19             : !>
      20             : !>  \fintest
      21             : !>
      22             : !>  \author
      23             : !>  \AmirShahmoradi, April 21, 2017, 1:54 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
      24             : 
      25             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      26             : 
      27             : module test_pm_arraySort
      28             : 
      29             :     use pm_arraySort
      30             :     use pm_test, only: test_type, LK
      31             :     use pm_kind, only: IK, RK
      32             :     use pm_kind, only: LK
      33             :     implicit none
      34             : 
      35             :     private
      36             :     public :: setTest
      37             :     type(test_type) :: test
      38             : 
      39             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      40             : 
      41             :     interface
      42             : 
      43             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      44             : 
      45             : #if     SK5_ENABLED
      46             :         module function test_isAscending_D0_SK5() result(assertion); logical(LK) :: assertion; end function
      47             : #endif
      48             : #if     SK4_ENABLED
      49             :         module function test_isAscending_D0_SK4() result(assertion); logical(LK) :: assertion; end function
      50             : #endif
      51             : #if     SK3_ENABLED
      52             :         module function test_isAscending_D0_SK3() result(assertion); logical(LK) :: assertion; end function
      53             : #endif
      54             : #if     SK2_ENABLED
      55             :         module function test_isAscending_D0_SK2() result(assertion); logical(LK) :: assertion; end function
      56             : #endif
      57             : #if     SK1_ENABLED
      58             :         module function test_isAscending_D0_SK1() result(assertion); logical(LK) :: assertion; end function
      59             : #endif
      60             : 
      61             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      62             : 
      63             : #if     SK5_ENABLED
      64             :         module function test_isAscending_D1_SK5() result(assertion); logical(LK) :: assertion; end function
      65             : #endif
      66             : #if     SK4_ENABLED
      67             :         module function test_isAscending_D1_SK4() result(assertion); logical(LK) :: assertion; end function
      68             : #endif
      69             : #if     SK3_ENABLED
      70             :         module function test_isAscending_D1_SK3() result(assertion); logical(LK) :: assertion; end function
      71             : #endif
      72             : #if     SK2_ENABLED
      73             :         module function test_isAscending_D1_SK2() result(assertion); logical(LK) :: assertion; end function
      74             : #endif
      75             : #if     SK1_ENABLED
      76             :         module function test_isAscending_D1_SK1() result(assertion); logical(LK) :: assertion; end function
      77             : #endif
      78             : 
      79             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      80             : 
      81             : #if     IK5_ENABLED
      82             :         module function test_isAscending_D1_IK5() result(assertion); logical(LK) :: assertion; end function
      83             : #endif
      84             : #if     IK4_ENABLED
      85             :         module function test_isAscending_D1_IK4() result(assertion); logical(LK) :: assertion; end function
      86             : #endif
      87             : #if     IK3_ENABLED
      88             :         module function test_isAscending_D1_IK3() result(assertion); logical(LK) :: assertion; end function
      89             : #endif
      90             : #if     IK2_ENABLED
      91             :         module function test_isAscending_D1_IK2() result(assertion); logical(LK) :: assertion; end function
      92             : #endif
      93             : #if     IK1_ENABLED
      94             :         module function test_isAscending_D1_IK1() result(assertion); logical(LK) :: assertion; end function
      95             : #endif
      96             : 
      97             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      98             : 
      99             : #if     LK5_ENABLED
     100             :         module function test_isAscending_D1_LK5() result(assertion); logical(LK) :: assertion; end function
     101             : #endif
     102             : #if     LK4_ENABLED
     103             :         module function test_isAscending_D1_LK4() result(assertion); logical(LK) :: assertion; end function
     104             : #endif
     105             : #if     LK3_ENABLED
     106             :         module function test_isAscending_D1_LK3() result(assertion); logical(LK) :: assertion; end function
     107             : #endif
     108             : #if     LK2_ENABLED
     109             :         module function test_isAscending_D1_LK2() result(assertion); logical(LK) :: assertion; end function
     110             : #endif
     111             : #if     LK1_ENABLED
     112             :         module function test_isAscending_D1_LK1() result(assertion); logical(LK) :: assertion; end function
     113             : #endif
     114             : 
     115             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     116             : 
     117             : #if     CK5_ENABLED
     118             :         module function test_isAscending_D1_CK5() result(assertion); logical(LK) :: assertion; end function
     119             : #endif
     120             : #if     CK4_ENABLED
     121             :         module function test_isAscending_D1_CK4() result(assertion); logical(LK) :: assertion; end function
     122             : #endif
     123             : #if     CK3_ENABLED
     124             :         module function test_isAscending_D1_CK3() result(assertion); logical(LK) :: assertion; end function
     125             : #endif
     126             : #if     CK2_ENABLED
     127             :         module function test_isAscending_D1_CK2() result(assertion); logical(LK) :: assertion; end function
     128             : #endif
     129             : #if     CK1_ENABLED
     130             :         module function test_isAscending_D1_CK1() result(assertion); logical(LK) :: assertion; end function
     131             : #endif
     132             : 
     133             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     134             : 
     135             : #if     RK5_ENABLED
     136             :         module function test_isAscending_D1_RK5() result(assertion); logical(LK) :: assertion; end function
     137             : #endif
     138             : #if     RK4_ENABLED
     139             :         module function test_isAscending_D1_RK4() result(assertion); logical(LK) :: assertion; end function
     140             : #endif
     141             : #if     RK3_ENABLED
     142             :         module function test_isAscending_D1_RK3() result(assertion); logical(LK) :: assertion; end function
     143             : #endif
     144             : #if     RK2_ENABLED
     145             :         module function test_isAscending_D1_RK2() result(assertion); logical(LK) :: assertion; end function
     146             : #endif
     147             : #if     RK1_ENABLED
     148             :         module function test_isAscending_D1_RK1() result(assertion); logical(LK) :: assertion; end function
     149             : #endif
     150             : 
     151             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     152             : 
     153             : #if     SK5_ENABLED
     154             :         module function test_isAscending_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
     155             : #endif
     156             : #if     SK4_ENABLED
     157             :         module function test_isAscending_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
     158             : #endif
     159             : #if     SK3_ENABLED
     160             :         module function test_isAscending_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
     161             : #endif
     162             : #if     SK2_ENABLED
     163             :         module function test_isAscending_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
     164             : #endif
     165             : #if     SK1_ENABLED
     166             :         module function test_isAscending_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
     167             : #endif
     168             : 
     169             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     170             : 
     171             :     end interface
     172             : 
     173             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     174             : 
     175             :     interface
     176             : 
     177             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     178             : 
     179             : #if     SK5_ENABLED
     180             :         module function test_isDescending_D0_SK5() result(assertion); logical(LK) :: assertion; end function
     181             : #endif
     182             : #if     SK4_ENABLED
     183             :         module function test_isDescending_D0_SK4() result(assertion); logical(LK) :: assertion; end function
     184             : #endif
     185             : #if     SK3_ENABLED
     186             :         module function test_isDescending_D0_SK3() result(assertion); logical(LK) :: assertion; end function
     187             : #endif
     188             : #if     SK2_ENABLED
     189             :         module function test_isDescending_D0_SK2() result(assertion); logical(LK) :: assertion; end function
     190             : #endif
     191             : #if     SK1_ENABLED
     192             :         module function test_isDescending_D0_SK1() result(assertion); logical(LK) :: assertion; end function
     193             : #endif
     194             : 
     195             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     196             : 
     197             : #if     SK5_ENABLED
     198             :         module function test_isDescending_D1_SK5() result(assertion); logical(LK) :: assertion; end function
     199             : #endif
     200             : #if     SK4_ENABLED
     201             :         module function test_isDescending_D1_SK4() result(assertion); logical(LK) :: assertion; end function
     202             : #endif
     203             : #if     SK3_ENABLED
     204             :         module function test_isDescending_D1_SK3() result(assertion); logical(LK) :: assertion; end function
     205             : #endif
     206             : #if     SK2_ENABLED
     207             :         module function test_isDescending_D1_SK2() result(assertion); logical(LK) :: assertion; end function
     208             : #endif
     209             : #if     SK1_ENABLED
     210             :         module function test_isDescending_D1_SK1() result(assertion); logical(LK) :: assertion; end function
     211             : #endif
     212             : 
     213             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     214             : 
     215             : #if     IK5_ENABLED
     216             :         module function test_isDescending_D1_IK5() result(assertion); logical(LK) :: assertion; end function
     217             : #endif
     218             : #if     IK4_ENABLED
     219             :         module function test_isDescending_D1_IK4() result(assertion); logical(LK) :: assertion; end function
     220             : #endif
     221             : #if     IK3_ENABLED
     222             :         module function test_isDescending_D1_IK3() result(assertion); logical(LK) :: assertion; end function
     223             : #endif
     224             : #if     IK2_ENABLED
     225             :         module function test_isDescending_D1_IK2() result(assertion); logical(LK) :: assertion; end function
     226             : #endif
     227             : #if     IK1_ENABLED
     228             :         module function test_isDescending_D1_IK1() result(assertion); logical(LK) :: assertion; end function
     229             : #endif
     230             : 
     231             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     232             : 
     233             : #if     LK5_ENABLED
     234             :         module function test_isDescending_D1_LK5() result(assertion); logical(LK) :: assertion; end function
     235             : #endif
     236             : #if     LK4_ENABLED
     237             :         module function test_isDescending_D1_LK4() result(assertion); logical(LK) :: assertion; end function
     238             : #endif
     239             : #if     LK3_ENABLED
     240             :         module function test_isDescending_D1_LK3() result(assertion); logical(LK) :: assertion; end function
     241             : #endif
     242             : #if     LK2_ENABLED
     243             :         module function test_isDescending_D1_LK2() result(assertion); logical(LK) :: assertion; end function
     244             : #endif
     245             : #if     LK1_ENABLED
     246             :         module function test_isDescending_D1_LK1() result(assertion); logical(LK) :: assertion; end function
     247             : #endif
     248             : 
     249             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     250             : 
     251             : #if     CK5_ENABLED
     252             :         module function test_isDescending_D1_CK5() result(assertion); logical(LK) :: assertion; end function
     253             : #endif
     254             : #if     CK4_ENABLED
     255             :         module function test_isDescending_D1_CK4() result(assertion); logical(LK) :: assertion; end function
     256             : #endif
     257             : #if     CK3_ENABLED
     258             :         module function test_isDescending_D1_CK3() result(assertion); logical(LK) :: assertion; end function
     259             : #endif
     260             : #if     CK2_ENABLED
     261             :         module function test_isDescending_D1_CK2() result(assertion); logical(LK) :: assertion; end function
     262             : #endif
     263             : #if     CK1_ENABLED
     264             :         module function test_isDescending_D1_CK1() result(assertion); logical(LK) :: assertion; end function
     265             : #endif
     266             : 
     267             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     268             : 
     269             : #if     RK5_ENABLED
     270             :         module function test_isDescending_D1_RK5() result(assertion); logical(LK) :: assertion; end function
     271             : #endif
     272             : #if     RK4_ENABLED
     273             :         module function test_isDescending_D1_RK4() result(assertion); logical(LK) :: assertion; end function
     274             : #endif
     275             : #if     RK3_ENABLED
     276             :         module function test_isDescending_D1_RK3() result(assertion); logical(LK) :: assertion; end function
     277             : #endif
     278             : #if     RK2_ENABLED
     279             :         module function test_isDescending_D1_RK2() result(assertion); logical(LK) :: assertion; end function
     280             : #endif
     281             : #if     RK1_ENABLED
     282             :         module function test_isDescending_D1_RK1() result(assertion); logical(LK) :: assertion; end function
     283             : #endif
     284             : 
     285             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     286             : 
     287             : #if     SK5_ENABLED
     288             :         module function test_isDescending_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
     289             : #endif
     290             : #if     SK4_ENABLED
     291             :         module function test_isDescending_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
     292             : #endif
     293             : #if     SK3_ENABLED
     294             :         module function test_isDescending_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
     295             : #endif
     296             : #if     SK2_ENABLED
     297             :         module function test_isDescending_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
     298             : #endif
     299             : #if     SK1_ENABLED
     300             :         module function test_isDescending_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
     301             : #endif
     302             : 
     303             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     304             : 
     305             :     end interface
     306             : 
     307             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     308             : 
     309             :     interface
     310             : 
     311             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     312             : 
     313             : #if     SK5_ENABLED
     314             :         module function test_isSorted_D0_SK5() result(assertion); logical(LK) :: assertion; end function
     315             : #endif
     316             : #if     SK4_ENABLED
     317             :         module function test_isSorted_D0_SK4() result(assertion); logical(LK) :: assertion; end function
     318             : #endif
     319             : #if     SK3_ENABLED
     320             :         module function test_isSorted_D0_SK3() result(assertion); logical(LK) :: assertion; end function
     321             : #endif
     322             : #if     SK2_ENABLED
     323             :         module function test_isSorted_D0_SK2() result(assertion); logical(LK) :: assertion; end function
     324             : #endif
     325             : #if     SK1_ENABLED
     326             :         module function test_isSorted_D0_SK1() result(assertion); logical(LK) :: assertion; end function
     327             : #endif
     328             : 
     329             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     330             : 
     331             : #if     SK5_ENABLED
     332             :         module function test_isSorted_D1_SK5() result(assertion); logical(LK) :: assertion; end function
     333             : #endif
     334             : #if     SK4_ENABLED
     335             :         module function test_isSorted_D1_SK4() result(assertion); logical(LK) :: assertion; end function
     336             : #endif
     337             : #if     SK3_ENABLED
     338             :         module function test_isSorted_D1_SK3() result(assertion); logical(LK) :: assertion; end function
     339             : #endif
     340             : #if     SK2_ENABLED
     341             :         module function test_isSorted_D1_SK2() result(assertion); logical(LK) :: assertion; end function
     342             : #endif
     343             : #if     SK1_ENABLED
     344             :         module function test_isSorted_D1_SK1() result(assertion); logical(LK) :: assertion; end function
     345             : #endif
     346             : 
     347             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     348             : 
     349             : #if     IK5_ENABLED
     350             :         module function test_isSorted_D1_IK5() result(assertion); logical(LK) :: assertion; end function
     351             : #endif
     352             : #if     IK4_ENABLED
     353             :         module function test_isSorted_D1_IK4() result(assertion); logical(LK) :: assertion; end function
     354             : #endif
     355             : #if     IK3_ENABLED
     356             :         module function test_isSorted_D1_IK3() result(assertion); logical(LK) :: assertion; end function
     357             : #endif
     358             : #if     IK2_ENABLED
     359             :         module function test_isSorted_D1_IK2() result(assertion); logical(LK) :: assertion; end function
     360             : #endif
     361             : #if     IK1_ENABLED
     362             :         module function test_isSorted_D1_IK1() result(assertion); logical(LK) :: assertion; end function
     363             : #endif
     364             : 
     365             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     366             : 
     367             : #if     LK5_ENABLED
     368             :         module function test_isSorted_D1_LK5() result(assertion); logical(LK) :: assertion; end function
     369             : #endif
     370             : #if     LK4_ENABLED
     371             :         module function test_isSorted_D1_LK4() result(assertion); logical(LK) :: assertion; end function
     372             : #endif
     373             : #if     LK3_ENABLED
     374             :         module function test_isSorted_D1_LK3() result(assertion); logical(LK) :: assertion; end function
     375             : #endif
     376             : #if     LK2_ENABLED
     377             :         module function test_isSorted_D1_LK2() result(assertion); logical(LK) :: assertion; end function
     378             : #endif
     379             : #if     LK1_ENABLED
     380             :         module function test_isSorted_D1_LK1() result(assertion); logical(LK) :: assertion; end function
     381             : #endif
     382             : 
     383             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     384             : 
     385             : #if     CK5_ENABLED
     386             :         module function test_isSorted_D1_CK5() result(assertion); logical(LK) :: assertion; end function
     387             : #endif
     388             : #if     CK4_ENABLED
     389             :         module function test_isSorted_D1_CK4() result(assertion); logical(LK) :: assertion; end function
     390             : #endif
     391             : #if     CK3_ENABLED
     392             :         module function test_isSorted_D1_CK3() result(assertion); logical(LK) :: assertion; end function
     393             : #endif
     394             : #if     CK2_ENABLED
     395             :         module function test_isSorted_D1_CK2() result(assertion); logical(LK) :: assertion; end function
     396             : #endif
     397             : #if     CK1_ENABLED
     398             :         module function test_isSorted_D1_CK1() result(assertion); logical(LK) :: assertion; end function
     399             : #endif
     400             : 
     401             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     402             : 
     403             : #if     RK5_ENABLED
     404             :         module function test_isSorted_D1_RK5() result(assertion); logical(LK) :: assertion; end function
     405             : #endif
     406             : #if     RK4_ENABLED
     407             :         module function test_isSorted_D1_RK4() result(assertion); logical(LK) :: assertion; end function
     408             : #endif
     409             : #if     RK3_ENABLED
     410             :         module function test_isSorted_D1_RK3() result(assertion); logical(LK) :: assertion; end function
     411             : #endif
     412             : #if     RK2_ENABLED
     413             :         module function test_isSorted_D1_RK2() result(assertion); logical(LK) :: assertion; end function
     414             : #endif
     415             : #if     RK1_ENABLED
     416             :         module function test_isSorted_D1_RK1() result(assertion); logical(LK) :: assertion; end function
     417             : #endif
     418             : 
     419             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     420             : 
     421             : #if     SK5_ENABLED
     422             :         module function test_isSorted_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
     423             : #endif
     424             : #if     SK4_ENABLED
     425             :         module function test_isSorted_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
     426             : #endif
     427             : #if     SK3_ENABLED
     428             :         module function test_isSorted_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
     429             : #endif
     430             : #if     SK2_ENABLED
     431             :         module function test_isSorted_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
     432             : #endif
     433             : #if     SK1_ENABLED
     434             :         module function test_isSorted_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
     435             : #endif
     436             : 
     437             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     438             : 
     439             :     end interface
     440             : 
     441             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     442             : 
     443             :     interface
     444             : 
     445             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     446             : 
     447             : #if     SK5_ENABLED
     448             :         module function test_setSortedIndDef_D0_SK5() result(assertion); logical(LK) :: assertion; end function
     449             : #endif
     450             : #if     SK4_ENABLED
     451             :         module function test_setSortedIndDef_D0_SK4() result(assertion); logical(LK) :: assertion; end function
     452             : #endif
     453             : #if     SK3_ENABLED
     454             :         module function test_setSortedIndDef_D0_SK3() result(assertion); logical(LK) :: assertion; end function
     455             : #endif
     456             : #if     SK2_ENABLED
     457             :         module function test_setSortedIndDef_D0_SK2() result(assertion); logical(LK) :: assertion; end function
     458             : #endif
     459             : #if     SK1_ENABLED
     460             :         module function test_setSortedIndDef_D0_SK1() result(assertion); logical(LK) :: assertion; end function
     461             : #endif
     462             : 
     463             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     464             : 
     465             : #if     SK5_ENABLED
     466             :         module function test_setSortedIndDef_D1_SK5() result(assertion); logical(LK) :: assertion; end function
     467             : #endif
     468             : #if     SK4_ENABLED
     469             :         module function test_setSortedIndDef_D1_SK4() result(assertion); logical(LK) :: assertion; end function
     470             : #endif
     471             : #if     SK3_ENABLED
     472             :         module function test_setSortedIndDef_D1_SK3() result(assertion); logical(LK) :: assertion; end function
     473             : #endif
     474             : #if     SK2_ENABLED
     475             :         module function test_setSortedIndDef_D1_SK2() result(assertion); logical(LK) :: assertion; end function
     476             : #endif
     477             : #if     SK1_ENABLED
     478             :         module function test_setSortedIndDef_D1_SK1() result(assertion); logical(LK) :: assertion; end function
     479             : #endif
     480             : 
     481             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     482             : 
     483             : #if     IK5_ENABLED
     484             :         module function test_setSortedIndDef_D1_IK5() result(assertion); logical(LK) :: assertion; end function
     485             : #endif
     486             : #if     IK4_ENABLED
     487             :         module function test_setSortedIndDef_D1_IK4() result(assertion); logical(LK) :: assertion; end function
     488             : #endif
     489             : #if     IK3_ENABLED
     490             :         module function test_setSortedIndDef_D1_IK3() result(assertion); logical(LK) :: assertion; end function
     491             : #endif
     492             : #if     IK2_ENABLED
     493             :         module function test_setSortedIndDef_D1_IK2() result(assertion); logical(LK) :: assertion; end function
     494             : #endif
     495             : #if     IK1_ENABLED
     496             :         module function test_setSortedIndDef_D1_IK1() result(assertion); logical(LK) :: assertion; end function
     497             : #endif
     498             : 
     499             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     500             : 
     501             : #if     LK5_ENABLED
     502             :         module function test_setSortedIndDef_D1_LK5() result(assertion); logical(LK) :: assertion; end function
     503             : #endif
     504             : #if     LK4_ENABLED
     505             :         module function test_setSortedIndDef_D1_LK4() result(assertion); logical(LK) :: assertion; end function
     506             : #endif
     507             : #if     LK3_ENABLED
     508             :         module function test_setSortedIndDef_D1_LK3() result(assertion); logical(LK) :: assertion; end function
     509             : #endif
     510             : #if     LK2_ENABLED
     511             :         module function test_setSortedIndDef_D1_LK2() result(assertion); logical(LK) :: assertion; end function
     512             : #endif
     513             : #if     LK1_ENABLED
     514             :         module function test_setSortedIndDef_D1_LK1() result(assertion); logical(LK) :: assertion; end function
     515             : #endif
     516             : 
     517             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     518             : 
     519             : #if     CK5_ENABLED
     520             :         module function test_setSortedIndDef_D1_CK5() result(assertion); logical(LK) :: assertion; end function
     521             : #endif
     522             : #if     CK4_ENABLED
     523             :         module function test_setSortedIndDef_D1_CK4() result(assertion); logical(LK) :: assertion; end function
     524             : #endif
     525             : #if     CK3_ENABLED
     526             :         module function test_setSortedIndDef_D1_CK3() result(assertion); logical(LK) :: assertion; end function
     527             : #endif
     528             : #if     CK2_ENABLED
     529             :         module function test_setSortedIndDef_D1_CK2() result(assertion); logical(LK) :: assertion; end function
     530             : #endif
     531             : #if     CK1_ENABLED
     532             :         module function test_setSortedIndDef_D1_CK1() result(assertion); logical(LK) :: assertion; end function
     533             : #endif
     534             : 
     535             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     536             : 
     537             : #if     RK5_ENABLED
     538             :         module function test_setSortedIndDef_D1_RK5() result(assertion); logical(LK) :: assertion; end function
     539             : #endif
     540             : #if     RK4_ENABLED
     541             :         module function test_setSortedIndDef_D1_RK4() result(assertion); logical(LK) :: assertion; end function
     542             : #endif
     543             : #if     RK3_ENABLED
     544             :         module function test_setSortedIndDef_D1_RK3() result(assertion); logical(LK) :: assertion; end function
     545             : #endif
     546             : #if     RK2_ENABLED
     547             :         module function test_setSortedIndDef_D1_RK2() result(assertion); logical(LK) :: assertion; end function
     548             : #endif
     549             : #if     RK1_ENABLED
     550             :         module function test_setSortedIndDef_D1_RK1() result(assertion); logical(LK) :: assertion; end function
     551             : #endif
     552             : 
     553             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     554             : 
     555             : #if     SK5_ENABLED
     556             :         module function test_setSortedIndDef_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
     557             : #endif
     558             : #if     SK4_ENABLED
     559             :         module function test_setSortedIndDef_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
     560             : #endif
     561             : #if     SK3_ENABLED
     562             :         module function test_setSortedIndDef_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
     563             : #endif
     564             : #if     SK2_ENABLED
     565             :         module function test_setSortedIndDef_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
     566             : #endif
     567             : #if     SK1_ENABLED
     568             :         module function test_setSortedIndDef_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
     569             : #endif
     570             : 
     571             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     572             : 
     573             :     end interface
     574             : 
     575             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     576             : 
     577             :     interface
     578             : 
     579             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     580             : 
     581             : #if     SK5_ENABLED
     582             :         module function test_setSortedArrQsorti_D0_SK5() result(assertion); logical(LK) :: assertion; end function
     583             : #endif
     584             : #if     SK4_ENABLED
     585             :         module function test_setSortedArrQsorti_D0_SK4() result(assertion); logical(LK) :: assertion; end function
     586             : #endif
     587             : #if     SK3_ENABLED
     588             :         module function test_setSortedArrQsorti_D0_SK3() result(assertion); logical(LK) :: assertion; end function
     589             : #endif
     590             : #if     SK2_ENABLED
     591             :         module function test_setSortedArrQsorti_D0_SK2() result(assertion); logical(LK) :: assertion; end function
     592             : #endif
     593             : #if     SK1_ENABLED
     594             :         module function test_setSortedArrQsorti_D0_SK1() result(assertion); logical(LK) :: assertion; end function
     595             : #endif
     596             : 
     597             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     598             : 
     599             : #if     SK5_ENABLED
     600             :         module function test_setSortedArrQsorti_D1_SK5() result(assertion); logical(LK) :: assertion; end function
     601             : #endif
     602             : #if     SK4_ENABLED
     603             :         module function test_setSortedArrQsorti_D1_SK4() result(assertion); logical(LK) :: assertion; end function
     604             : #endif
     605             : #if     SK3_ENABLED
     606             :         module function test_setSortedArrQsorti_D1_SK3() result(assertion); logical(LK) :: assertion; end function
     607             : #endif
     608             : #if     SK2_ENABLED
     609             :         module function test_setSortedArrQsorti_D1_SK2() result(assertion); logical(LK) :: assertion; end function
     610             : #endif
     611             : #if     SK1_ENABLED
     612             :         module function test_setSortedArrQsorti_D1_SK1() result(assertion); logical(LK) :: assertion; end function
     613             : #endif
     614             : 
     615             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     616             : 
     617             : #if     IK5_ENABLED
     618             :         module function test_setSortedArrQsorti_D1_IK5() result(assertion); logical(LK) :: assertion; end function
     619             : #endif
     620             : #if     IK4_ENABLED
     621             :         module function test_setSortedArrQsorti_D1_IK4() result(assertion); logical(LK) :: assertion; end function
     622             : #endif
     623             : #if     IK3_ENABLED
     624             :         module function test_setSortedArrQsorti_D1_IK3() result(assertion); logical(LK) :: assertion; end function
     625             : #endif
     626             : #if     IK2_ENABLED
     627             :         module function test_setSortedArrQsorti_D1_IK2() result(assertion); logical(LK) :: assertion; end function
     628             : #endif
     629             : #if     IK1_ENABLED
     630             :         module function test_setSortedArrQsorti_D1_IK1() result(assertion); logical(LK) :: assertion; end function
     631             : #endif
     632             : 
     633             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     634             : 
     635             : #if     LK5_ENABLED
     636             :         module function test_setSortedArrQsorti_D1_LK5() result(assertion); logical(LK) :: assertion; end function
     637             : #endif
     638             : #if     LK4_ENABLED
     639             :         module function test_setSortedArrQsorti_D1_LK4() result(assertion); logical(LK) :: assertion; end function
     640             : #endif
     641             : #if     LK3_ENABLED
     642             :         module function test_setSortedArrQsorti_D1_LK3() result(assertion); logical(LK) :: assertion; end function
     643             : #endif
     644             : #if     LK2_ENABLED
     645             :         module function test_setSortedArrQsorti_D1_LK2() result(assertion); logical(LK) :: assertion; end function
     646             : #endif
     647             : #if     LK1_ENABLED
     648             :         module function test_setSortedArrQsorti_D1_LK1() result(assertion); logical(LK) :: assertion; end function
     649             : #endif
     650             : 
     651             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     652             : 
     653             : #if     CK5_ENABLED
     654             :         module function test_setSortedArrQsorti_D1_CK5() result(assertion); logical(LK) :: assertion; end function
     655             : #endif
     656             : #if     CK4_ENABLED
     657             :         module function test_setSortedArrQsorti_D1_CK4() result(assertion); logical(LK) :: assertion; end function
     658             : #endif
     659             : #if     CK3_ENABLED
     660             :         module function test_setSortedArrQsorti_D1_CK3() result(assertion); logical(LK) :: assertion; end function
     661             : #endif
     662             : #if     CK2_ENABLED
     663             :         module function test_setSortedArrQsorti_D1_CK2() result(assertion); logical(LK) :: assertion; end function
     664             : #endif
     665             : #if     CK1_ENABLED
     666             :         module function test_setSortedArrQsorti_D1_CK1() result(assertion); logical(LK) :: assertion; end function
     667             : #endif
     668             : 
     669             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     670             : 
     671             : #if     RK5_ENABLED
     672             :         module function test_setSortedArrQsorti_D1_RK5() result(assertion); logical(LK) :: assertion; end function
     673             : #endif
     674             : #if     RK4_ENABLED
     675             :         module function test_setSortedArrQsorti_D1_RK4() result(assertion); logical(LK) :: assertion; end function
     676             : #endif
     677             : #if     RK3_ENABLED
     678             :         module function test_setSortedArrQsorti_D1_RK3() result(assertion); logical(LK) :: assertion; end function
     679             : #endif
     680             : #if     RK2_ENABLED
     681             :         module function test_setSortedArrQsorti_D1_RK2() result(assertion); logical(LK) :: assertion; end function
     682             : #endif
     683             : #if     RK1_ENABLED
     684             :         module function test_setSortedArrQsorti_D1_RK1() result(assertion); logical(LK) :: assertion; end function
     685             : #endif
     686             : 
     687             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     688             : 
     689             : #if     SK5_ENABLED
     690             :         module function test_setSortedArrQsorti_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
     691             : #endif
     692             : #if     SK4_ENABLED
     693             :         module function test_setSortedArrQsorti_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
     694             : #endif
     695             : #if     SK3_ENABLED
     696             :         module function test_setSortedArrQsorti_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
     697             : #endif
     698             : #if     SK2_ENABLED
     699             :         module function test_setSortedArrQsorti_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
     700             : #endif
     701             : #if     SK1_ENABLED
     702             :         module function test_setSortedArrQsorti_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
     703             : #endif
     704             : 
     705             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     706             : 
     707             :     end interface
     708             : 
     709             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     710             : 
     711             :     interface
     712             : 
     713             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     714             : 
     715             : #if     SK5_ENABLED
     716             :         module function test_setSortedArrQsortr_D0_SK5() result(assertion); logical(LK) :: assertion; end function
     717             : #endif
     718             : #if     SK4_ENABLED
     719             :         module function test_setSortedArrQsortr_D0_SK4() result(assertion); logical(LK) :: assertion; end function
     720             : #endif
     721             : #if     SK3_ENABLED
     722             :         module function test_setSortedArrQsortr_D0_SK3() result(assertion); logical(LK) :: assertion; end function
     723             : #endif
     724             : #if     SK2_ENABLED
     725             :         module function test_setSortedArrQsortr_D0_SK2() result(assertion); logical(LK) :: assertion; end function
     726             : #endif
     727             : #if     SK1_ENABLED
     728             :         module function test_setSortedArrQsortr_D0_SK1() result(assertion); logical(LK) :: assertion; end function
     729             : #endif
     730             : 
     731             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     732             : 
     733             : #if     SK5_ENABLED
     734             :         module function test_setSortedArrQsortr_D1_SK5() result(assertion); logical(LK) :: assertion; end function
     735             : #endif
     736             : #if     SK4_ENABLED
     737             :         module function test_setSortedArrQsortr_D1_SK4() result(assertion); logical(LK) :: assertion; end function
     738             : #endif
     739             : #if     SK3_ENABLED
     740             :         module function test_setSortedArrQsortr_D1_SK3() result(assertion); logical(LK) :: assertion; end function
     741             : #endif
     742             : #if     SK2_ENABLED
     743             :         module function test_setSortedArrQsortr_D1_SK2() result(assertion); logical(LK) :: assertion; end function
     744             : #endif
     745             : #if     SK1_ENABLED
     746             :         module function test_setSortedArrQsortr_D1_SK1() result(assertion); logical(LK) :: assertion; end function
     747             : #endif
     748             : 
     749             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     750             : 
     751             : #if     IK5_ENABLED
     752             :         module function test_setSortedArrQsortr_D1_IK5() result(assertion); logical(LK) :: assertion; end function
     753             : #endif
     754             : #if     IK4_ENABLED
     755             :         module function test_setSortedArrQsortr_D1_IK4() result(assertion); logical(LK) :: assertion; end function
     756             : #endif
     757             : #if     IK3_ENABLED
     758             :         module function test_setSortedArrQsortr_D1_IK3() result(assertion); logical(LK) :: assertion; end function
     759             : #endif
     760             : #if     IK2_ENABLED
     761             :         module function test_setSortedArrQsortr_D1_IK2() result(assertion); logical(LK) :: assertion; end function
     762             : #endif
     763             : #if     IK1_ENABLED
     764             :         module function test_setSortedArrQsortr_D1_IK1() result(assertion); logical(LK) :: assertion; end function
     765             : #endif
     766             : 
     767             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     768             : 
     769             : #if     LK5_ENABLED
     770             :         module function test_setSortedArrQsortr_D1_LK5() result(assertion); logical(LK) :: assertion; end function
     771             : #endif
     772             : #if     LK4_ENABLED
     773             :         module function test_setSortedArrQsortr_D1_LK4() result(assertion); logical(LK) :: assertion; end function
     774             : #endif
     775             : #if     LK3_ENABLED
     776             :         module function test_setSortedArrQsortr_D1_LK3() result(assertion); logical(LK) :: assertion; end function
     777             : #endif
     778             : #if     LK2_ENABLED
     779             :         module function test_setSortedArrQsortr_D1_LK2() result(assertion); logical(LK) :: assertion; end function
     780             : #endif
     781             : #if     LK1_ENABLED
     782             :         module function test_setSortedArrQsortr_D1_LK1() result(assertion); logical(LK) :: assertion; end function
     783             : #endif
     784             : 
     785             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     786             : 
     787             : #if     CK5_ENABLED
     788             :         module function test_setSortedArrQsortr_D1_CK5() result(assertion); logical(LK) :: assertion; end function
     789             : #endif
     790             : #if     CK4_ENABLED
     791             :         module function test_setSortedArrQsortr_D1_CK4() result(assertion); logical(LK) :: assertion; end function
     792             : #endif
     793             : #if     CK3_ENABLED
     794             :         module function test_setSortedArrQsortr_D1_CK3() result(assertion); logical(LK) :: assertion; end function
     795             : #endif
     796             : #if     CK2_ENABLED
     797             :         module function test_setSortedArrQsortr_D1_CK2() result(assertion); logical(LK) :: assertion; end function
     798             : #endif
     799             : #if     CK1_ENABLED
     800             :         module function test_setSortedArrQsortr_D1_CK1() result(assertion); logical(LK) :: assertion; end function
     801             : #endif
     802             : 
     803             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     804             : 
     805             : #if     RK5_ENABLED
     806             :         module function test_setSortedArrQsortr_D1_RK5() result(assertion); logical(LK) :: assertion; end function
     807             : #endif
     808             : #if     RK4_ENABLED
     809             :         module function test_setSortedArrQsortr_D1_RK4() result(assertion); logical(LK) :: assertion; end function
     810             : #endif
     811             : #if     RK3_ENABLED
     812             :         module function test_setSortedArrQsortr_D1_RK3() result(assertion); logical(LK) :: assertion; end function
     813             : #endif
     814             : #if     RK2_ENABLED
     815             :         module function test_setSortedArrQsortr_D1_RK2() result(assertion); logical(LK) :: assertion; end function
     816             : #endif
     817             : #if     RK1_ENABLED
     818             :         module function test_setSortedArrQsortr_D1_RK1() result(assertion); logical(LK) :: assertion; end function
     819             : #endif
     820             : 
     821             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     822             : 
     823             : #if     SK5_ENABLED
     824             :         module function test_setSortedArrQsortr_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
     825             : #endif
     826             : #if     SK4_ENABLED
     827             :         module function test_setSortedArrQsortr_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
     828             : #endif
     829             : #if     SK3_ENABLED
     830             :         module function test_setSortedArrQsortr_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
     831             : #endif
     832             : #if     SK2_ENABLED
     833             :         module function test_setSortedArrQsortr_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
     834             : #endif
     835             : #if     SK1_ENABLED
     836             :         module function test_setSortedArrQsortr_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
     837             : #endif
     838             : 
     839             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     840             : 
     841             :     end interface
     842             : 
     843             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     844             : 
     845             :     interface
     846             : 
     847             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     848             : 
     849             : #if     SK5_ENABLED
     850             :         module function test_setSortedArrQsortrdp_D0_SK5() result(assertion); logical(LK) :: assertion; end function
     851             : #endif
     852             : #if     SK4_ENABLED
     853             :         module function test_setSortedArrQsortrdp_D0_SK4() result(assertion); logical(LK) :: assertion; end function
     854             : #endif
     855             : #if     SK3_ENABLED
     856             :         module function test_setSortedArrQsortrdp_D0_SK3() result(assertion); logical(LK) :: assertion; end function
     857             : #endif
     858             : #if     SK2_ENABLED
     859             :         module function test_setSortedArrQsortrdp_D0_SK2() result(assertion); logical(LK) :: assertion; end function
     860             : #endif
     861             : #if     SK1_ENABLED
     862             :         module function test_setSortedArrQsortrdp_D0_SK1() result(assertion); logical(LK) :: assertion; end function
     863             : #endif
     864             : 
     865             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     866             : 
     867             : #if     SK5_ENABLED
     868             :         module function test_setSortedArrQsortrdp_D1_SK5() result(assertion); logical(LK) :: assertion; end function
     869             : #endif
     870             : #if     SK4_ENABLED
     871             :         module function test_setSortedArrQsortrdp_D1_SK4() result(assertion); logical(LK) :: assertion; end function
     872             : #endif
     873             : #if     SK3_ENABLED
     874             :         module function test_setSortedArrQsortrdp_D1_SK3() result(assertion); logical(LK) :: assertion; end function
     875             : #endif
     876             : #if     SK2_ENABLED
     877             :         module function test_setSortedArrQsortrdp_D1_SK2() result(assertion); logical(LK) :: assertion; end function
     878             : #endif
     879             : #if     SK1_ENABLED
     880             :         module function test_setSortedArrQsortrdp_D1_SK1() result(assertion); logical(LK) :: assertion; end function
     881             : #endif
     882             : 
     883             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     884             : 
     885             : #if     IK5_ENABLED
     886             :         module function test_setSortedArrQsortrdp_D1_IK5() result(assertion); logical(LK) :: assertion; end function
     887             : #endif
     888             : #if     IK4_ENABLED
     889             :         module function test_setSortedArrQsortrdp_D1_IK4() result(assertion); logical(LK) :: assertion; end function
     890             : #endif
     891             : #if     IK3_ENABLED
     892             :         module function test_setSortedArrQsortrdp_D1_IK3() result(assertion); logical(LK) :: assertion; end function
     893             : #endif
     894             : #if     IK2_ENABLED
     895             :         module function test_setSortedArrQsortrdp_D1_IK2() result(assertion); logical(LK) :: assertion; end function
     896             : #endif
     897             : #if     IK1_ENABLED
     898             :         module function test_setSortedArrQsortrdp_D1_IK1() result(assertion); logical(LK) :: assertion; end function
     899             : #endif
     900             : 
     901             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     902             : 
     903             : #if     LK5_ENABLED
     904             :         module function test_setSortedArrQsortrdp_D1_LK5() result(assertion); logical(LK) :: assertion; end function
     905             : #endif
     906             : #if     LK4_ENABLED
     907             :         module function test_setSortedArrQsortrdp_D1_LK4() result(assertion); logical(LK) :: assertion; end function
     908             : #endif
     909             : #if     LK3_ENABLED
     910             :         module function test_setSortedArrQsortrdp_D1_LK3() result(assertion); logical(LK) :: assertion; end function
     911             : #endif
     912             : #if     LK2_ENABLED
     913             :         module function test_setSortedArrQsortrdp_D1_LK2() result(assertion); logical(LK) :: assertion; end function
     914             : #endif
     915             : #if     LK1_ENABLED
     916             :         module function test_setSortedArrQsortrdp_D1_LK1() result(assertion); logical(LK) :: assertion; end function
     917             : #endif
     918             : 
     919             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     920             : 
     921             : #if     CK5_ENABLED
     922             :         module function test_setSortedArrQsortrdp_D1_CK5() result(assertion); logical(LK) :: assertion; end function
     923             : #endif
     924             : #if     CK4_ENABLED
     925             :         module function test_setSortedArrQsortrdp_D1_CK4() result(assertion); logical(LK) :: assertion; end function
     926             : #endif
     927             : #if     CK3_ENABLED
     928             :         module function test_setSortedArrQsortrdp_D1_CK3() result(assertion); logical(LK) :: assertion; end function
     929             : #endif
     930             : #if     CK2_ENABLED
     931             :         module function test_setSortedArrQsortrdp_D1_CK2() result(assertion); logical(LK) :: assertion; end function
     932             : #endif
     933             : #if     CK1_ENABLED
     934             :         module function test_setSortedArrQsortrdp_D1_CK1() result(assertion); logical(LK) :: assertion; end function
     935             : #endif
     936             : 
     937             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     938             : 
     939             : #if     RK5_ENABLED
     940             :         module function test_setSortedArrQsortrdp_D1_RK5() result(assertion); logical(LK) :: assertion; end function
     941             : #endif
     942             : #if     RK4_ENABLED
     943             :         module function test_setSortedArrQsortrdp_D1_RK4() result(assertion); logical(LK) :: assertion; end function
     944             : #endif
     945             : #if     RK3_ENABLED
     946             :         module function test_setSortedArrQsortrdp_D1_RK3() result(assertion); logical(LK) :: assertion; end function
     947             : #endif
     948             : #if     RK2_ENABLED
     949             :         module function test_setSortedArrQsortrdp_D1_RK2() result(assertion); logical(LK) :: assertion; end function
     950             : #endif
     951             : #if     RK1_ENABLED
     952             :         module function test_setSortedArrQsortrdp_D1_RK1() result(assertion); logical(LK) :: assertion; end function
     953             : #endif
     954             : 
     955             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     956             : 
     957             : #if     SK5_ENABLED
     958             :         module function test_setSortedArrQsortrdp_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
     959             : #endif
     960             : #if     SK4_ENABLED
     961             :         module function test_setSortedArrQsortrdp_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
     962             : #endif
     963             : #if     SK3_ENABLED
     964             :         module function test_setSortedArrQsortrdp_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
     965             : #endif
     966             : #if     SK2_ENABLED
     967             :         module function test_setSortedArrQsortrdp_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
     968             : #endif
     969             : #if     SK1_ENABLED
     970             :         module function test_setSortedArrQsortrdp_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
     971             : #endif
     972             : 
     973             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     974             : 
     975             :     end interface
     976             : 
     977             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     978             : 
     979             :     interface
     980             : 
     981             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     982             : 
     983             : #if     SK5_ENABLED
     984             :         module function test_setSortedArrBubble_D0_SK5() result(assertion); logical(LK) :: assertion; end function
     985             : #endif
     986             : #if     SK4_ENABLED
     987             :         module function test_setSortedArrBubble_D0_SK4() result(assertion); logical(LK) :: assertion; end function
     988             : #endif
     989             : #if     SK3_ENABLED
     990             :         module function test_setSortedArrBubble_D0_SK3() result(assertion); logical(LK) :: assertion; end function
     991             : #endif
     992             : #if     SK2_ENABLED
     993             :         module function test_setSortedArrBubble_D0_SK2() result(assertion); logical(LK) :: assertion; end function
     994             : #endif
     995             : #if     SK1_ENABLED
     996             :         module function test_setSortedArrBubble_D0_SK1() result(assertion); logical(LK) :: assertion; end function
     997             : #endif
     998             : 
     999             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1000             : 
    1001             : #if     SK5_ENABLED
    1002             :         module function test_setSortedArrBubble_D1_SK5() result(assertion); logical(LK) :: assertion; end function
    1003             : #endif
    1004             : #if     SK4_ENABLED
    1005             :         module function test_setSortedArrBubble_D1_SK4() result(assertion); logical(LK) :: assertion; end function
    1006             : #endif
    1007             : #if     SK3_ENABLED
    1008             :         module function test_setSortedArrBubble_D1_SK3() result(assertion); logical(LK) :: assertion; end function
    1009             : #endif
    1010             : #if     SK2_ENABLED
    1011             :         module function test_setSortedArrBubble_D1_SK2() result(assertion); logical(LK) :: assertion; end function
    1012             : #endif
    1013             : #if     SK1_ENABLED
    1014             :         module function test_setSortedArrBubble_D1_SK1() result(assertion); logical(LK) :: assertion; end function
    1015             : #endif
    1016             : 
    1017             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1018             : 
    1019             : #if     IK5_ENABLED
    1020             :         module function test_setSortedArrBubble_D1_IK5() result(assertion); logical(LK) :: assertion; end function
    1021             : #endif
    1022             : #if     IK4_ENABLED
    1023             :         module function test_setSortedArrBubble_D1_IK4() result(assertion); logical(LK) :: assertion; end function
    1024             : #endif
    1025             : #if     IK3_ENABLED
    1026             :         module function test_setSortedArrBubble_D1_IK3() result(assertion); logical(LK) :: assertion; end function
    1027             : #endif
    1028             : #if     IK2_ENABLED
    1029             :         module function test_setSortedArrBubble_D1_IK2() result(assertion); logical(LK) :: assertion; end function
    1030             : #endif
    1031             : #if     IK1_ENABLED
    1032             :         module function test_setSortedArrBubble_D1_IK1() result(assertion); logical(LK) :: assertion; end function
    1033             : #endif
    1034             : 
    1035             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1036             : 
    1037             : #if     LK5_ENABLED
    1038             :         module function test_setSortedArrBubble_D1_LK5() result(assertion); logical(LK) :: assertion; end function
    1039             : #endif
    1040             : #if     LK4_ENABLED
    1041             :         module function test_setSortedArrBubble_D1_LK4() result(assertion); logical(LK) :: assertion; end function
    1042             : #endif
    1043             : #if     LK3_ENABLED
    1044             :         module function test_setSortedArrBubble_D1_LK3() result(assertion); logical(LK) :: assertion; end function
    1045             : #endif
    1046             : #if     LK2_ENABLED
    1047             :         module function test_setSortedArrBubble_D1_LK2() result(assertion); logical(LK) :: assertion; end function
    1048             : #endif
    1049             : #if     LK1_ENABLED
    1050             :         module function test_setSortedArrBubble_D1_LK1() result(assertion); logical(LK) :: assertion; end function
    1051             : #endif
    1052             : 
    1053             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1054             : 
    1055             : #if     CK5_ENABLED
    1056             :         module function test_setSortedArrBubble_D1_CK5() result(assertion); logical(LK) :: assertion; end function
    1057             : #endif
    1058             : #if     CK4_ENABLED
    1059             :         module function test_setSortedArrBubble_D1_CK4() result(assertion); logical(LK) :: assertion; end function
    1060             : #endif
    1061             : #if     CK3_ENABLED
    1062             :         module function test_setSortedArrBubble_D1_CK3() result(assertion); logical(LK) :: assertion; end function
    1063             : #endif
    1064             : #if     CK2_ENABLED
    1065             :         module function test_setSortedArrBubble_D1_CK2() result(assertion); logical(LK) :: assertion; end function
    1066             : #endif
    1067             : #if     CK1_ENABLED
    1068             :         module function test_setSortedArrBubble_D1_CK1() result(assertion); logical(LK) :: assertion; end function
    1069             : #endif
    1070             : 
    1071             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1072             : 
    1073             : #if     RK5_ENABLED
    1074             :         module function test_setSortedArrBubble_D1_RK5() result(assertion); logical(LK) :: assertion; end function
    1075             : #endif
    1076             : #if     RK4_ENABLED
    1077             :         module function test_setSortedArrBubble_D1_RK4() result(assertion); logical(LK) :: assertion; end function
    1078             : #endif
    1079             : #if     RK3_ENABLED
    1080             :         module function test_setSortedArrBubble_D1_RK3() result(assertion); logical(LK) :: assertion; end function
    1081             : #endif
    1082             : #if     RK2_ENABLED
    1083             :         module function test_setSortedArrBubble_D1_RK2() result(assertion); logical(LK) :: assertion; end function
    1084             : #endif
    1085             : #if     RK1_ENABLED
    1086             :         module function test_setSortedArrBubble_D1_RK1() result(assertion); logical(LK) :: assertion; end function
    1087             : #endif
    1088             : 
    1089             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1090             : 
    1091             : #if     SK5_ENABLED
    1092             :         module function test_setSortedArrBubble_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
    1093             : #endif
    1094             : #if     SK4_ENABLED
    1095             :         module function test_setSortedArrBubble_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
    1096             : #endif
    1097             : #if     SK3_ENABLED
    1098             :         module function test_setSortedArrBubble_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
    1099             : #endif
    1100             : #if     SK2_ENABLED
    1101             :         module function test_setSortedArrBubble_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
    1102             : #endif
    1103             : #if     SK1_ENABLED
    1104             :         module function test_setSortedArrBubble_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
    1105             : #endif
    1106             : 
    1107             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1108             : 
    1109             :     end interface
    1110             : 
    1111             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1112             : 
    1113             :     interface
    1114             : 
    1115             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1116             : 
    1117             : #if     SK5_ENABLED
    1118             :         module function test_setSortedArrHeapi_D0_SK5() result(assertion); logical(LK) :: assertion; end function
    1119             : #endif
    1120             : #if     SK4_ENABLED
    1121             :         module function test_setSortedArrHeapi_D0_SK4() result(assertion); logical(LK) :: assertion; end function
    1122             : #endif
    1123             : #if     SK3_ENABLED
    1124             :         module function test_setSortedArrHeapi_D0_SK3() result(assertion); logical(LK) :: assertion; end function
    1125             : #endif
    1126             : #if     SK2_ENABLED
    1127             :         module function test_setSortedArrHeapi_D0_SK2() result(assertion); logical(LK) :: assertion; end function
    1128             : #endif
    1129             : #if     SK1_ENABLED
    1130             :         module function test_setSortedArrHeapi_D0_SK1() result(assertion); logical(LK) :: assertion; end function
    1131             : #endif
    1132             : 
    1133             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1134             : 
    1135             : #if     SK5_ENABLED
    1136             :         module function test_setSortedArrHeapi_D1_SK5() result(assertion); logical(LK) :: assertion; end function
    1137             : #endif
    1138             : #if     SK4_ENABLED
    1139             :         module function test_setSortedArrHeapi_D1_SK4() result(assertion); logical(LK) :: assertion; end function
    1140             : #endif
    1141             : #if     SK3_ENABLED
    1142             :         module function test_setSortedArrHeapi_D1_SK3() result(assertion); logical(LK) :: assertion; end function
    1143             : #endif
    1144             : #if     SK2_ENABLED
    1145             :         module function test_setSortedArrHeapi_D1_SK2() result(assertion); logical(LK) :: assertion; end function
    1146             : #endif
    1147             : #if     SK1_ENABLED
    1148             :         module function test_setSortedArrHeapi_D1_SK1() result(assertion); logical(LK) :: assertion; end function
    1149             : #endif
    1150             : 
    1151             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1152             : 
    1153             : #if     IK5_ENABLED
    1154             :         module function test_setSortedArrHeapi_D1_IK5() result(assertion); logical(LK) :: assertion; end function
    1155             : #endif
    1156             : #if     IK4_ENABLED
    1157             :         module function test_setSortedArrHeapi_D1_IK4() result(assertion); logical(LK) :: assertion; end function
    1158             : #endif
    1159             : #if     IK3_ENABLED
    1160             :         module function test_setSortedArrHeapi_D1_IK3() result(assertion); logical(LK) :: assertion; end function
    1161             : #endif
    1162             : #if     IK2_ENABLED
    1163             :         module function test_setSortedArrHeapi_D1_IK2() result(assertion); logical(LK) :: assertion; end function
    1164             : #endif
    1165             : #if     IK1_ENABLED
    1166             :         module function test_setSortedArrHeapi_D1_IK1() result(assertion); logical(LK) :: assertion; end function
    1167             : #endif
    1168             : 
    1169             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1170             : 
    1171             : #if     LK5_ENABLED
    1172             :         module function test_setSortedArrHeapi_D1_LK5() result(assertion); logical(LK) :: assertion; end function
    1173             : #endif
    1174             : #if     LK4_ENABLED
    1175             :         module function test_setSortedArrHeapi_D1_LK4() result(assertion); logical(LK) :: assertion; end function
    1176             : #endif
    1177             : #if     LK3_ENABLED
    1178             :         module function test_setSortedArrHeapi_D1_LK3() result(assertion); logical(LK) :: assertion; end function
    1179             : #endif
    1180             : #if     LK2_ENABLED
    1181             :         module function test_setSortedArrHeapi_D1_LK2() result(assertion); logical(LK) :: assertion; end function
    1182             : #endif
    1183             : #if     LK1_ENABLED
    1184             :         module function test_setSortedArrHeapi_D1_LK1() result(assertion); logical(LK) :: assertion; end function
    1185             : #endif
    1186             : 
    1187             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1188             : 
    1189             : #if     CK5_ENABLED
    1190             :         module function test_setSortedArrHeapi_D1_CK5() result(assertion); logical(LK) :: assertion; end function
    1191             : #endif
    1192             : #if     CK4_ENABLED
    1193             :         module function test_setSortedArrHeapi_D1_CK4() result(assertion); logical(LK) :: assertion; end function
    1194             : #endif
    1195             : #if     CK3_ENABLED
    1196             :         module function test_setSortedArrHeapi_D1_CK3() result(assertion); logical(LK) :: assertion; end function
    1197             : #endif
    1198             : #if     CK2_ENABLED
    1199             :         module function test_setSortedArrHeapi_D1_CK2() result(assertion); logical(LK) :: assertion; end function
    1200             : #endif
    1201             : #if     CK1_ENABLED
    1202             :         module function test_setSortedArrHeapi_D1_CK1() result(assertion); logical(LK) :: assertion; end function
    1203             : #endif
    1204             : 
    1205             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1206             : 
    1207             : #if     RK5_ENABLED
    1208             :         module function test_setSortedArrHeapi_D1_RK5() result(assertion); logical(LK) :: assertion; end function
    1209             : #endif
    1210             : #if     RK4_ENABLED
    1211             :         module function test_setSortedArrHeapi_D1_RK4() result(assertion); logical(LK) :: assertion; end function
    1212             : #endif
    1213             : #if     RK3_ENABLED
    1214             :         module function test_setSortedArrHeapi_D1_RK3() result(assertion); logical(LK) :: assertion; end function
    1215             : #endif
    1216             : #if     RK2_ENABLED
    1217             :         module function test_setSortedArrHeapi_D1_RK2() result(assertion); logical(LK) :: assertion; end function
    1218             : #endif
    1219             : #if     RK1_ENABLED
    1220             :         module function test_setSortedArrHeapi_D1_RK1() result(assertion); logical(LK) :: assertion; end function
    1221             : #endif
    1222             : 
    1223             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1224             : 
    1225             : #if     SK5_ENABLED
    1226             :         module function test_setSortedArrHeapi_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
    1227             : #endif
    1228             : #if     SK4_ENABLED
    1229             :         module function test_setSortedArrHeapi_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
    1230             : #endif
    1231             : #if     SK3_ENABLED
    1232             :         module function test_setSortedArrHeapi_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
    1233             : #endif
    1234             : #if     SK2_ENABLED
    1235             :         module function test_setSortedArrHeapi_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
    1236             : #endif
    1237             : #if     SK1_ENABLED
    1238             :         module function test_setSortedArrHeapi_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
    1239             : #endif
    1240             : 
    1241             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1242             : 
    1243             :     end interface
    1244             : 
    1245             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1246             : 
    1247             :     interface
    1248             : 
    1249             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1250             : 
    1251             : #if     SK5_ENABLED
    1252             :         module function test_setSortedArrHeapr_D0_SK5() result(assertion); logical(LK) :: assertion; end function
    1253             : #endif
    1254             : #if     SK4_ENABLED
    1255             :         module function test_setSortedArrHeapr_D0_SK4() result(assertion); logical(LK) :: assertion; end function
    1256             : #endif
    1257             : #if     SK3_ENABLED
    1258             :         module function test_setSortedArrHeapr_D0_SK3() result(assertion); logical(LK) :: assertion; end function
    1259             : #endif
    1260             : #if     SK2_ENABLED
    1261             :         module function test_setSortedArrHeapr_D0_SK2() result(assertion); logical(LK) :: assertion; end function
    1262             : #endif
    1263             : #if     SK1_ENABLED
    1264             :         module function test_setSortedArrHeapr_D0_SK1() result(assertion); logical(LK) :: assertion; end function
    1265             : #endif
    1266             : 
    1267             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1268             : 
    1269             : #if     SK5_ENABLED
    1270             :         module function test_setSortedArrHeapr_D1_SK5() result(assertion); logical(LK) :: assertion; end function
    1271             : #endif
    1272             : #if     SK4_ENABLED
    1273             :         module function test_setSortedArrHeapr_D1_SK4() result(assertion); logical(LK) :: assertion; end function
    1274             : #endif
    1275             : #if     SK3_ENABLED
    1276             :         module function test_setSortedArrHeapr_D1_SK3() result(assertion); logical(LK) :: assertion; end function
    1277             : #endif
    1278             : #if     SK2_ENABLED
    1279             :         module function test_setSortedArrHeapr_D1_SK2() result(assertion); logical(LK) :: assertion; end function
    1280             : #endif
    1281             : #if     SK1_ENABLED
    1282             :         module function test_setSortedArrHeapr_D1_SK1() result(assertion); logical(LK) :: assertion; end function
    1283             : #endif
    1284             : 
    1285             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1286             : 
    1287             : #if     IK5_ENABLED
    1288             :         module function test_setSortedArrHeapr_D1_IK5() result(assertion); logical(LK) :: assertion; end function
    1289             : #endif
    1290             : #if     IK4_ENABLED
    1291             :         module function test_setSortedArrHeapr_D1_IK4() result(assertion); logical(LK) :: assertion; end function
    1292             : #endif
    1293             : #if     IK3_ENABLED
    1294             :         module function test_setSortedArrHeapr_D1_IK3() result(assertion); logical(LK) :: assertion; end function
    1295             : #endif
    1296             : #if     IK2_ENABLED
    1297             :         module function test_setSortedArrHeapr_D1_IK2() result(assertion); logical(LK) :: assertion; end function
    1298             : #endif
    1299             : #if     IK1_ENABLED
    1300             :         module function test_setSortedArrHeapr_D1_IK1() result(assertion); logical(LK) :: assertion; end function
    1301             : #endif
    1302             : 
    1303             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1304             : 
    1305             : #if     LK5_ENABLED
    1306             :         module function test_setSortedArrHeapr_D1_LK5() result(assertion); logical(LK) :: assertion; end function
    1307             : #endif
    1308             : #if     LK4_ENABLED
    1309             :         module function test_setSortedArrHeapr_D1_LK4() result(assertion); logical(LK) :: assertion; end function
    1310             : #endif
    1311             : #if     LK3_ENABLED
    1312             :         module function test_setSortedArrHeapr_D1_LK3() result(assertion); logical(LK) :: assertion; end function
    1313             : #endif
    1314             : #if     LK2_ENABLED
    1315             :         module function test_setSortedArrHeapr_D1_LK2() result(assertion); logical(LK) :: assertion; end function
    1316             : #endif
    1317             : #if     LK1_ENABLED
    1318             :         module function test_setSortedArrHeapr_D1_LK1() result(assertion); logical(LK) :: assertion; end function
    1319             : #endif
    1320             : 
    1321             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1322             : 
    1323             : #if     CK5_ENABLED
    1324             :         module function test_setSortedArrHeapr_D1_CK5() result(assertion); logical(LK) :: assertion; end function
    1325             : #endif
    1326             : #if     CK4_ENABLED
    1327             :         module function test_setSortedArrHeapr_D1_CK4() result(assertion); logical(LK) :: assertion; end function
    1328             : #endif
    1329             : #if     CK3_ENABLED
    1330             :         module function test_setSortedArrHeapr_D1_CK3() result(assertion); logical(LK) :: assertion; end function
    1331             : #endif
    1332             : #if     CK2_ENABLED
    1333             :         module function test_setSortedArrHeapr_D1_CK2() result(assertion); logical(LK) :: assertion; end function
    1334             : #endif
    1335             : #if     CK1_ENABLED
    1336             :         module function test_setSortedArrHeapr_D1_CK1() result(assertion); logical(LK) :: assertion; end function
    1337             : #endif
    1338             : 
    1339             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1340             : 
    1341             : #if     RK5_ENABLED
    1342             :         module function test_setSortedArrHeapr_D1_RK5() result(assertion); logical(LK) :: assertion; end function
    1343             : #endif
    1344             : #if     RK4_ENABLED
    1345             :         module function test_setSortedArrHeapr_D1_RK4() result(assertion); logical(LK) :: assertion; end function
    1346             : #endif
    1347             : #if     RK3_ENABLED
    1348             :         module function test_setSortedArrHeapr_D1_RK3() result(assertion); logical(LK) :: assertion; end function
    1349             : #endif
    1350             : #if     RK2_ENABLED
    1351             :         module function test_setSortedArrHeapr_D1_RK2() result(assertion); logical(LK) :: assertion; end function
    1352             : #endif
    1353             : #if     RK1_ENABLED
    1354             :         module function test_setSortedArrHeapr_D1_RK1() result(assertion); logical(LK) :: assertion; end function
    1355             : #endif
    1356             : 
    1357             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1358             : 
    1359             : #if     SK5_ENABLED
    1360             :         module function test_setSortedArrHeapr_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
    1361             : #endif
    1362             : #if     SK4_ENABLED
    1363             :         module function test_setSortedArrHeapr_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
    1364             : #endif
    1365             : #if     SK3_ENABLED
    1366             :         module function test_setSortedArrHeapr_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
    1367             : #endif
    1368             : #if     SK2_ENABLED
    1369             :         module function test_setSortedArrHeapr_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
    1370             : #endif
    1371             : #if     SK1_ENABLED
    1372             :         module function test_setSortedArrHeapr_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
    1373             : #endif
    1374             : 
    1375             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1376             : 
    1377             :     end interface
    1378             : 
    1379             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1380             : 
    1381             :     interface
    1382             : 
    1383             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1384             : 
    1385             : #if     SK5_ENABLED
    1386             :         module function test_setSortedArrInsertionl_D0_SK5() result(assertion); logical(LK) :: assertion; end function
    1387             : #endif
    1388             : #if     SK4_ENABLED
    1389             :         module function test_setSortedArrInsertionl_D0_SK4() result(assertion); logical(LK) :: assertion; end function
    1390             : #endif
    1391             : #if     SK3_ENABLED
    1392             :         module function test_setSortedArrInsertionl_D0_SK3() result(assertion); logical(LK) :: assertion; end function
    1393             : #endif
    1394             : #if     SK2_ENABLED
    1395             :         module function test_setSortedArrInsertionl_D0_SK2() result(assertion); logical(LK) :: assertion; end function
    1396             : #endif
    1397             : #if     SK1_ENABLED
    1398             :         module function test_setSortedArrInsertionl_D0_SK1() result(assertion); logical(LK) :: assertion; end function
    1399             : #endif
    1400             : 
    1401             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1402             : 
    1403             : #if     SK5_ENABLED
    1404             :         module function test_setSortedArrInsertionl_D1_SK5() result(assertion); logical(LK) :: assertion; end function
    1405             : #endif
    1406             : #if     SK4_ENABLED
    1407             :         module function test_setSortedArrInsertionl_D1_SK4() result(assertion); logical(LK) :: assertion; end function
    1408             : #endif
    1409             : #if     SK3_ENABLED
    1410             :         module function test_setSortedArrInsertionl_D1_SK3() result(assertion); logical(LK) :: assertion; end function
    1411             : #endif
    1412             : #if     SK2_ENABLED
    1413             :         module function test_setSortedArrInsertionl_D1_SK2() result(assertion); logical(LK) :: assertion; end function
    1414             : #endif
    1415             : #if     SK1_ENABLED
    1416             :         module function test_setSortedArrInsertionl_D1_SK1() result(assertion); logical(LK) :: assertion; end function
    1417             : #endif
    1418             : 
    1419             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1420             : 
    1421             : #if     IK5_ENABLED
    1422             :         module function test_setSortedArrInsertionl_D1_IK5() result(assertion); logical(LK) :: assertion; end function
    1423             : #endif
    1424             : #if     IK4_ENABLED
    1425             :         module function test_setSortedArrInsertionl_D1_IK4() result(assertion); logical(LK) :: assertion; end function
    1426             : #endif
    1427             : #if     IK3_ENABLED
    1428             :         module function test_setSortedArrInsertionl_D1_IK3() result(assertion); logical(LK) :: assertion; end function
    1429             : #endif
    1430             : #if     IK2_ENABLED
    1431             :         module function test_setSortedArrInsertionl_D1_IK2() result(assertion); logical(LK) :: assertion; end function
    1432             : #endif
    1433             : #if     IK1_ENABLED
    1434             :         module function test_setSortedArrInsertionl_D1_IK1() result(assertion); logical(LK) :: assertion; end function
    1435             : #endif
    1436             : 
    1437             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1438             : 
    1439             : #if     LK5_ENABLED
    1440             :         module function test_setSortedArrInsertionl_D1_LK5() result(assertion); logical(LK) :: assertion; end function
    1441             : #endif
    1442             : #if     LK4_ENABLED
    1443             :         module function test_setSortedArrInsertionl_D1_LK4() result(assertion); logical(LK) :: assertion; end function
    1444             : #endif
    1445             : #if     LK3_ENABLED
    1446             :         module function test_setSortedArrInsertionl_D1_LK3() result(assertion); logical(LK) :: assertion; end function
    1447             : #endif
    1448             : #if     LK2_ENABLED
    1449             :         module function test_setSortedArrInsertionl_D1_LK2() result(assertion); logical(LK) :: assertion; end function
    1450             : #endif
    1451             : #if     LK1_ENABLED
    1452             :         module function test_setSortedArrInsertionl_D1_LK1() result(assertion); logical(LK) :: assertion; end function
    1453             : #endif
    1454             : 
    1455             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1456             : 
    1457             : #if     CK5_ENABLED
    1458             :         module function test_setSortedArrInsertionl_D1_CK5() result(assertion); logical(LK) :: assertion; end function
    1459             : #endif
    1460             : #if     CK4_ENABLED
    1461             :         module function test_setSortedArrInsertionl_D1_CK4() result(assertion); logical(LK) :: assertion; end function
    1462             : #endif
    1463             : #if     CK3_ENABLED
    1464             :         module function test_setSortedArrInsertionl_D1_CK3() result(assertion); logical(LK) :: assertion; end function
    1465             : #endif
    1466             : #if     CK2_ENABLED
    1467             :         module function test_setSortedArrInsertionl_D1_CK2() result(assertion); logical(LK) :: assertion; end function
    1468             : #endif
    1469             : #if     CK1_ENABLED
    1470             :         module function test_setSortedArrInsertionl_D1_CK1() result(assertion); logical(LK) :: assertion; end function
    1471             : #endif
    1472             : 
    1473             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1474             : 
    1475             : #if     RK5_ENABLED
    1476             :         module function test_setSortedArrInsertionl_D1_RK5() result(assertion); logical(LK) :: assertion; end function
    1477             : #endif
    1478             : #if     RK4_ENABLED
    1479             :         module function test_setSortedArrInsertionl_D1_RK4() result(assertion); logical(LK) :: assertion; end function
    1480             : #endif
    1481             : #if     RK3_ENABLED
    1482             :         module function test_setSortedArrInsertionl_D1_RK3() result(assertion); logical(LK) :: assertion; end function
    1483             : #endif
    1484             : #if     RK2_ENABLED
    1485             :         module function test_setSortedArrInsertionl_D1_RK2() result(assertion); logical(LK) :: assertion; end function
    1486             : #endif
    1487             : #if     RK1_ENABLED
    1488             :         module function test_setSortedArrInsertionl_D1_RK1() result(assertion); logical(LK) :: assertion; end function
    1489             : #endif
    1490             : 
    1491             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1492             : 
    1493             : #if     SK5_ENABLED
    1494             :         module function test_setSortedArrInsertionl_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
    1495             : #endif
    1496             : #if     SK4_ENABLED
    1497             :         module function test_setSortedArrInsertionl_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
    1498             : #endif
    1499             : #if     SK3_ENABLED
    1500             :         module function test_setSortedArrInsertionl_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
    1501             : #endif
    1502             : #if     SK2_ENABLED
    1503             :         module function test_setSortedArrInsertionl_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
    1504             : #endif
    1505             : #if     SK1_ENABLED
    1506             :         module function test_setSortedArrInsertionl_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
    1507             : #endif
    1508             : 
    1509             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1510             : 
    1511             :     end interface
    1512             : 
    1513             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1514             : 
    1515             :     interface
    1516             : 
    1517             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1518             : 
    1519             : #if     SK5_ENABLED
    1520             :         module function test_setSortedArrInsertionb_D0_SK5() result(assertion); logical(LK) :: assertion; end function
    1521             : #endif
    1522             : #if     SK4_ENABLED
    1523             :         module function test_setSortedArrInsertionb_D0_SK4() result(assertion); logical(LK) :: assertion; end function
    1524             : #endif
    1525             : #if     SK3_ENABLED
    1526             :         module function test_setSortedArrInsertionb_D0_SK3() result(assertion); logical(LK) :: assertion; end function
    1527             : #endif
    1528             : #if     SK2_ENABLED
    1529             :         module function test_setSortedArrInsertionb_D0_SK2() result(assertion); logical(LK) :: assertion; end function
    1530             : #endif
    1531             : #if     SK1_ENABLED
    1532             :         module function test_setSortedArrInsertionb_D0_SK1() result(assertion); logical(LK) :: assertion; end function
    1533             : #endif
    1534             : 
    1535             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1536             : 
    1537             : #if     SK5_ENABLED
    1538             :         module function test_setSortedArrInsertionb_D1_SK5() result(assertion); logical(LK) :: assertion; end function
    1539             : #endif
    1540             : #if     SK4_ENABLED
    1541             :         module function test_setSortedArrInsertionb_D1_SK4() result(assertion); logical(LK) :: assertion; end function
    1542             : #endif
    1543             : #if     SK3_ENABLED
    1544             :         module function test_setSortedArrInsertionb_D1_SK3() result(assertion); logical(LK) :: assertion; end function
    1545             : #endif
    1546             : #if     SK2_ENABLED
    1547             :         module function test_setSortedArrInsertionb_D1_SK2() result(assertion); logical(LK) :: assertion; end function
    1548             : #endif
    1549             : #if     SK1_ENABLED
    1550             :         module function test_setSortedArrInsertionb_D1_SK1() result(assertion); logical(LK) :: assertion; end function
    1551             : #endif
    1552             : 
    1553             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1554             : 
    1555             : #if     IK5_ENABLED
    1556             :         module function test_setSortedArrInsertionb_D1_IK5() result(assertion); logical(LK) :: assertion; end function
    1557             : #endif
    1558             : #if     IK4_ENABLED
    1559             :         module function test_setSortedArrInsertionb_D1_IK4() result(assertion); logical(LK) :: assertion; end function
    1560             : #endif
    1561             : #if     IK3_ENABLED
    1562             :         module function test_setSortedArrInsertionb_D1_IK3() result(assertion); logical(LK) :: assertion; end function
    1563             : #endif
    1564             : #if     IK2_ENABLED
    1565             :         module function test_setSortedArrInsertionb_D1_IK2() result(assertion); logical(LK) :: assertion; end function
    1566             : #endif
    1567             : #if     IK1_ENABLED
    1568             :         module function test_setSortedArrInsertionb_D1_IK1() result(assertion); logical(LK) :: assertion; end function
    1569             : #endif
    1570             : 
    1571             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1572             : 
    1573             : #if     LK5_ENABLED
    1574             :         module function test_setSortedArrInsertionb_D1_LK5() result(assertion); logical(LK) :: assertion; end function
    1575             : #endif
    1576             : #if     LK4_ENABLED
    1577             :         module function test_setSortedArrInsertionb_D1_LK4() result(assertion); logical(LK) :: assertion; end function
    1578             : #endif
    1579             : #if     LK3_ENABLED
    1580             :         module function test_setSortedArrInsertionb_D1_LK3() result(assertion); logical(LK) :: assertion; end function
    1581             : #endif
    1582             : #if     LK2_ENABLED
    1583             :         module function test_setSortedArrInsertionb_D1_LK2() result(assertion); logical(LK) :: assertion; end function
    1584             : #endif
    1585             : #if     LK1_ENABLED
    1586             :         module function test_setSortedArrInsertionb_D1_LK1() result(assertion); logical(LK) :: assertion; end function
    1587             : #endif
    1588             : 
    1589             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1590             : 
    1591             : #if     CK5_ENABLED
    1592             :         module function test_setSortedArrInsertionb_D1_CK5() result(assertion); logical(LK) :: assertion; end function
    1593             : #endif
    1594             : #if     CK4_ENABLED
    1595             :         module function test_setSortedArrInsertionb_D1_CK4() result(assertion); logical(LK) :: assertion; end function
    1596             : #endif
    1597             : #if     CK3_ENABLED
    1598             :         module function test_setSortedArrInsertionb_D1_CK3() result(assertion); logical(LK) :: assertion; end function
    1599             : #endif
    1600             : #if     CK2_ENABLED
    1601             :         module function test_setSortedArrInsertionb_D1_CK2() result(assertion); logical(LK) :: assertion; end function
    1602             : #endif
    1603             : #if     CK1_ENABLED
    1604             :         module function test_setSortedArrInsertionb_D1_CK1() result(assertion); logical(LK) :: assertion; end function
    1605             : #endif
    1606             : 
    1607             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1608             : 
    1609             : #if     RK5_ENABLED
    1610             :         module function test_setSortedArrInsertionb_D1_RK5() result(assertion); logical(LK) :: assertion; end function
    1611             : #endif
    1612             : #if     RK4_ENABLED
    1613             :         module function test_setSortedArrInsertionb_D1_RK4() result(assertion); logical(LK) :: assertion; end function
    1614             : #endif
    1615             : #if     RK3_ENABLED
    1616             :         module function test_setSortedArrInsertionb_D1_RK3() result(assertion); logical(LK) :: assertion; end function
    1617             : #endif
    1618             : #if     RK2_ENABLED
    1619             :         module function test_setSortedArrInsertionb_D1_RK2() result(assertion); logical(LK) :: assertion; end function
    1620             : #endif
    1621             : #if     RK1_ENABLED
    1622             :         module function test_setSortedArrInsertionb_D1_RK1() result(assertion); logical(LK) :: assertion; end function
    1623             : #endif
    1624             : 
    1625             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1626             : 
    1627             : #if     SK5_ENABLED
    1628             :         module function test_setSortedArrInsertionb_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
    1629             : #endif
    1630             : #if     SK4_ENABLED
    1631             :         module function test_setSortedArrInsertionb_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
    1632             : #endif
    1633             : #if     SK3_ENABLED
    1634             :         module function test_setSortedArrInsertionb_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
    1635             : #endif
    1636             : #if     SK2_ENABLED
    1637             :         module function test_setSortedArrInsertionb_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
    1638             : #endif
    1639             : #if     SK1_ENABLED
    1640             :         module function test_setSortedArrInsertionb_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
    1641             : #endif
    1642             : 
    1643             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1644             : 
    1645             :     end interface
    1646             : 
    1647             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1648             : 
    1649             :     interface
    1650             : 
    1651             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1652             : 
    1653             : #if     SK5_ENABLED
    1654             :         module function test_setSortedArrMerger_D0_SK5() result(assertion); logical(LK) :: assertion; end function
    1655             : #endif
    1656             : #if     SK4_ENABLED
    1657             :         module function test_setSortedArrMerger_D0_SK4() result(assertion); logical(LK) :: assertion; end function
    1658             : #endif
    1659             : #if     SK3_ENABLED
    1660             :         module function test_setSortedArrMerger_D0_SK3() result(assertion); logical(LK) :: assertion; end function
    1661             : #endif
    1662             : #if     SK2_ENABLED
    1663             :         module function test_setSortedArrMerger_D0_SK2() result(assertion); logical(LK) :: assertion; end function
    1664             : #endif
    1665             : #if     SK1_ENABLED
    1666             :         module function test_setSortedArrMerger_D0_SK1() result(assertion); logical(LK) :: assertion; end function
    1667             : #endif
    1668             : 
    1669             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1670             : 
    1671             : #if     SK5_ENABLED
    1672             :         module function test_setSortedArrMerger_D1_SK5() result(assertion); logical(LK) :: assertion; end function
    1673             : #endif
    1674             : #if     SK4_ENABLED
    1675             :         module function test_setSortedArrMerger_D1_SK4() result(assertion); logical(LK) :: assertion; end function
    1676             : #endif
    1677             : #if     SK3_ENABLED
    1678             :         module function test_setSortedArrMerger_D1_SK3() result(assertion); logical(LK) :: assertion; end function
    1679             : #endif
    1680             : #if     SK2_ENABLED
    1681             :         module function test_setSortedArrMerger_D1_SK2() result(assertion); logical(LK) :: assertion; end function
    1682             : #endif
    1683             : #if     SK1_ENABLED
    1684             :         module function test_setSortedArrMerger_D1_SK1() result(assertion); logical(LK) :: assertion; end function
    1685             : #endif
    1686             : 
    1687             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1688             : 
    1689             : #if     IK5_ENABLED
    1690             :         module function test_setSortedArrMerger_D1_IK5() result(assertion); logical(LK) :: assertion; end function
    1691             : #endif
    1692             : #if     IK4_ENABLED
    1693             :         module function test_setSortedArrMerger_D1_IK4() result(assertion); logical(LK) :: assertion; end function
    1694             : #endif
    1695             : #if     IK3_ENABLED
    1696             :         module function test_setSortedArrMerger_D1_IK3() result(assertion); logical(LK) :: assertion; end function
    1697             : #endif
    1698             : #if     IK2_ENABLED
    1699             :         module function test_setSortedArrMerger_D1_IK2() result(assertion); logical(LK) :: assertion; end function
    1700             : #endif
    1701             : #if     IK1_ENABLED
    1702             :         module function test_setSortedArrMerger_D1_IK1() result(assertion); logical(LK) :: assertion; end function
    1703             : #endif
    1704             : 
    1705             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1706             : 
    1707             : #if     LK5_ENABLED
    1708             :         module function test_setSortedArrMerger_D1_LK5() result(assertion); logical(LK) :: assertion; end function
    1709             : #endif
    1710             : #if     LK4_ENABLED
    1711             :         module function test_setSortedArrMerger_D1_LK4() result(assertion); logical(LK) :: assertion; end function
    1712             : #endif
    1713             : #if     LK3_ENABLED
    1714             :         module function test_setSortedArrMerger_D1_LK3() result(assertion); logical(LK) :: assertion; end function
    1715             : #endif
    1716             : #if     LK2_ENABLED
    1717             :         module function test_setSortedArrMerger_D1_LK2() result(assertion); logical(LK) :: assertion; end function
    1718             : #endif
    1719             : #if     LK1_ENABLED
    1720             :         module function test_setSortedArrMerger_D1_LK1() result(assertion); logical(LK) :: assertion; end function
    1721             : #endif
    1722             : 
    1723             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1724             : 
    1725             : #if     CK5_ENABLED
    1726             :         module function test_setSortedArrMerger_D1_CK5() result(assertion); logical(LK) :: assertion; end function
    1727             : #endif
    1728             : #if     CK4_ENABLED
    1729             :         module function test_setSortedArrMerger_D1_CK4() result(assertion); logical(LK) :: assertion; end function
    1730             : #endif
    1731             : #if     CK3_ENABLED
    1732             :         module function test_setSortedArrMerger_D1_CK3() result(assertion); logical(LK) :: assertion; end function
    1733             : #endif
    1734             : #if     CK2_ENABLED
    1735             :         module function test_setSortedArrMerger_D1_CK2() result(assertion); logical(LK) :: assertion; end function
    1736             : #endif
    1737             : #if     CK1_ENABLED
    1738             :         module function test_setSortedArrMerger_D1_CK1() result(assertion); logical(LK) :: assertion; end function
    1739             : #endif
    1740             : 
    1741             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1742             : 
    1743             : #if     RK5_ENABLED
    1744             :         module function test_setSortedArrMerger_D1_RK5() result(assertion); logical(LK) :: assertion; end function
    1745             : #endif
    1746             : #if     RK4_ENABLED
    1747             :         module function test_setSortedArrMerger_D1_RK4() result(assertion); logical(LK) :: assertion; end function
    1748             : #endif
    1749             : #if     RK3_ENABLED
    1750             :         module function test_setSortedArrMerger_D1_RK3() result(assertion); logical(LK) :: assertion; end function
    1751             : #endif
    1752             : #if     RK2_ENABLED
    1753             :         module function test_setSortedArrMerger_D1_RK2() result(assertion); logical(LK) :: assertion; end function
    1754             : #endif
    1755             : #if     RK1_ENABLED
    1756             :         module function test_setSortedArrMerger_D1_RK1() result(assertion); logical(LK) :: assertion; end function
    1757             : #endif
    1758             : 
    1759             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1760             : 
    1761             : #if     SK5_ENABLED
    1762             :         module function test_setSortedArrMerger_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
    1763             : #endif
    1764             : #if     SK4_ENABLED
    1765             :         module function test_setSortedArrMerger_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
    1766             : #endif
    1767             : #if     SK3_ENABLED
    1768             :         module function test_setSortedArrMerger_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
    1769             : #endif
    1770             : #if     SK2_ENABLED
    1771             :         module function test_setSortedArrMerger_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
    1772             : #endif
    1773             : #if     SK1_ENABLED
    1774             :         module function test_setSortedArrMerger_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
    1775             : #endif
    1776             : 
    1777             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1778             : 
    1779             :     end interface
    1780             : 
    1781             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1782             : 
    1783             :     interface
    1784             : 
    1785             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1786             : 
    1787             : #if     SK5_ENABLED
    1788             :         module function test_setSortedArrSelection_D0_SK5() result(assertion); logical(LK) :: assertion; end function
    1789             : #endif
    1790             : #if     SK4_ENABLED
    1791             :         module function test_setSortedArrSelection_D0_SK4() result(assertion); logical(LK) :: assertion; end function
    1792             : #endif
    1793             : #if     SK3_ENABLED
    1794             :         module function test_setSortedArrSelection_D0_SK3() result(assertion); logical(LK) :: assertion; end function
    1795             : #endif
    1796             : #if     SK2_ENABLED
    1797             :         module function test_setSortedArrSelection_D0_SK2() result(assertion); logical(LK) :: assertion; end function
    1798             : #endif
    1799             : #if     SK1_ENABLED
    1800             :         module function test_setSortedArrSelection_D0_SK1() result(assertion); logical(LK) :: assertion; end function
    1801             : #endif
    1802             : 
    1803             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1804             : 
    1805             : #if     SK5_ENABLED
    1806             :         module function test_setSortedArrSelection_D1_SK5() result(assertion); logical(LK) :: assertion; end function
    1807             : #endif
    1808             : #if     SK4_ENABLED
    1809             :         module function test_setSortedArrSelection_D1_SK4() result(assertion); logical(LK) :: assertion; end function
    1810             : #endif
    1811             : #if     SK3_ENABLED
    1812             :         module function test_setSortedArrSelection_D1_SK3() result(assertion); logical(LK) :: assertion; end function
    1813             : #endif
    1814             : #if     SK2_ENABLED
    1815             :         module function test_setSortedArrSelection_D1_SK2() result(assertion); logical(LK) :: assertion; end function
    1816             : #endif
    1817             : #if     SK1_ENABLED
    1818             :         module function test_setSortedArrSelection_D1_SK1() result(assertion); logical(LK) :: assertion; end function
    1819             : #endif
    1820             : 
    1821             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1822             : 
    1823             : #if     IK5_ENABLED
    1824             :         module function test_setSortedArrSelection_D1_IK5() result(assertion); logical(LK) :: assertion; end function
    1825             : #endif
    1826             : #if     IK4_ENABLED
    1827             :         module function test_setSortedArrSelection_D1_IK4() result(assertion); logical(LK) :: assertion; end function
    1828             : #endif
    1829             : #if     IK3_ENABLED
    1830             :         module function test_setSortedArrSelection_D1_IK3() result(assertion); logical(LK) :: assertion; end function
    1831             : #endif
    1832             : #if     IK2_ENABLED
    1833             :         module function test_setSortedArrSelection_D1_IK2() result(assertion); logical(LK) :: assertion; end function
    1834             : #endif
    1835             : #if     IK1_ENABLED
    1836             :         module function test_setSortedArrSelection_D1_IK1() result(assertion); logical(LK) :: assertion; end function
    1837             : #endif
    1838             : 
    1839             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1840             : 
    1841             : #if     LK5_ENABLED
    1842             :         module function test_setSortedArrSelection_D1_LK5() result(assertion); logical(LK) :: assertion; end function
    1843             : #endif
    1844             : #if     LK4_ENABLED
    1845             :         module function test_setSortedArrSelection_D1_LK4() result(assertion); logical(LK) :: assertion; end function
    1846             : #endif
    1847             : #if     LK3_ENABLED
    1848             :         module function test_setSortedArrSelection_D1_LK3() result(assertion); logical(LK) :: assertion; end function
    1849             : #endif
    1850             : #if     LK2_ENABLED
    1851             :         module function test_setSortedArrSelection_D1_LK2() result(assertion); logical(LK) :: assertion; end function
    1852             : #endif
    1853             : #if     LK1_ENABLED
    1854             :         module function test_setSortedArrSelection_D1_LK1() result(assertion); logical(LK) :: assertion; end function
    1855             : #endif
    1856             : 
    1857             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1858             : 
    1859             : #if     CK5_ENABLED
    1860             :         module function test_setSortedArrSelection_D1_CK5() result(assertion); logical(LK) :: assertion; end function
    1861             : #endif
    1862             : #if     CK4_ENABLED
    1863             :         module function test_setSortedArrSelection_D1_CK4() result(assertion); logical(LK) :: assertion; end function
    1864             : #endif
    1865             : #if     CK3_ENABLED
    1866             :         module function test_setSortedArrSelection_D1_CK3() result(assertion); logical(LK) :: assertion; end function
    1867             : #endif
    1868             : #if     CK2_ENABLED
    1869             :         module function test_setSortedArrSelection_D1_CK2() result(assertion); logical(LK) :: assertion; end function
    1870             : #endif
    1871             : #if     CK1_ENABLED
    1872             :         module function test_setSortedArrSelection_D1_CK1() result(assertion); logical(LK) :: assertion; end function
    1873             : #endif
    1874             : 
    1875             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1876             : 
    1877             : #if     RK5_ENABLED
    1878             :         module function test_setSortedArrSelection_D1_RK5() result(assertion); logical(LK) :: assertion; end function
    1879             : #endif
    1880             : #if     RK4_ENABLED
    1881             :         module function test_setSortedArrSelection_D1_RK4() result(assertion); logical(LK) :: assertion; end function
    1882             : #endif
    1883             : #if     RK3_ENABLED
    1884             :         module function test_setSortedArrSelection_D1_RK3() result(assertion); logical(LK) :: assertion; end function
    1885             : #endif
    1886             : #if     RK2_ENABLED
    1887             :         module function test_setSortedArrSelection_D1_RK2() result(assertion); logical(LK) :: assertion; end function
    1888             : #endif
    1889             : #if     RK1_ENABLED
    1890             :         module function test_setSortedArrSelection_D1_RK1() result(assertion); logical(LK) :: assertion; end function
    1891             : #endif
    1892             : 
    1893             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1894             : 
    1895             : #if     SK5_ENABLED
    1896             :         module function test_setSortedArrSelection_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
    1897             : #endif
    1898             : #if     SK4_ENABLED
    1899             :         module function test_setSortedArrSelection_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
    1900             : #endif
    1901             : #if     SK3_ENABLED
    1902             :         module function test_setSortedArrSelection_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
    1903             : #endif
    1904             : #if     SK2_ENABLED
    1905             :         module function test_setSortedArrSelection_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
    1906             : #endif
    1907             : #if     SK1_ENABLED
    1908             :         module function test_setSortedArrSelection_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
    1909             : #endif
    1910             : 
    1911             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1912             : 
    1913             :     end interface
    1914             : 
    1915             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1916             : 
    1917             :     interface
    1918             : 
    1919             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1920             : 
    1921             : #if     SK5_ENABLED
    1922             :         module function test_setSortedArrShell_D0_SK5() result(assertion); logical(LK) :: assertion; end function
    1923             : #endif
    1924             : #if     SK4_ENABLED
    1925             :         module function test_setSortedArrShell_D0_SK4() result(assertion); logical(LK) :: assertion; end function
    1926             : #endif
    1927             : #if     SK3_ENABLED
    1928             :         module function test_setSortedArrShell_D0_SK3() result(assertion); logical(LK) :: assertion; end function
    1929             : #endif
    1930             : #if     SK2_ENABLED
    1931             :         module function test_setSortedArrShell_D0_SK2() result(assertion); logical(LK) :: assertion; end function
    1932             : #endif
    1933             : #if     SK1_ENABLED
    1934             :         module function test_setSortedArrShell_D0_SK1() result(assertion); logical(LK) :: assertion; end function
    1935             : #endif
    1936             : 
    1937             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1938             : 
    1939             : #if     SK5_ENABLED
    1940             :         module function test_setSortedArrShell_D1_SK5() result(assertion); logical(LK) :: assertion; end function
    1941             : #endif
    1942             : #if     SK4_ENABLED
    1943             :         module function test_setSortedArrShell_D1_SK4() result(assertion); logical(LK) :: assertion; end function
    1944             : #endif
    1945             : #if     SK3_ENABLED
    1946             :         module function test_setSortedArrShell_D1_SK3() result(assertion); logical(LK) :: assertion; end function
    1947             : #endif
    1948             : #if     SK2_ENABLED
    1949             :         module function test_setSortedArrShell_D1_SK2() result(assertion); logical(LK) :: assertion; end function
    1950             : #endif
    1951             : #if     SK1_ENABLED
    1952             :         module function test_setSortedArrShell_D1_SK1() result(assertion); logical(LK) :: assertion; end function
    1953             : #endif
    1954             : 
    1955             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1956             : 
    1957             : #if     IK5_ENABLED
    1958             :         module function test_setSortedArrShell_D1_IK5() result(assertion); logical(LK) :: assertion; end function
    1959             : #endif
    1960             : #if     IK4_ENABLED
    1961             :         module function test_setSortedArrShell_D1_IK4() result(assertion); logical(LK) :: assertion; end function
    1962             : #endif
    1963             : #if     IK3_ENABLED
    1964             :         module function test_setSortedArrShell_D1_IK3() result(assertion); logical(LK) :: assertion; end function
    1965             : #endif
    1966             : #if     IK2_ENABLED
    1967             :         module function test_setSortedArrShell_D1_IK2() result(assertion); logical(LK) :: assertion; end function
    1968             : #endif
    1969             : #if     IK1_ENABLED
    1970             :         module function test_setSortedArrShell_D1_IK1() result(assertion); logical(LK) :: assertion; end function
    1971             : #endif
    1972             : 
    1973             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1974             : 
    1975             : #if     LK5_ENABLED
    1976             :         module function test_setSortedArrShell_D1_LK5() result(assertion); logical(LK) :: assertion; end function
    1977             : #endif
    1978             : #if     LK4_ENABLED
    1979             :         module function test_setSortedArrShell_D1_LK4() result(assertion); logical(LK) :: assertion; end function
    1980             : #endif
    1981             : #if     LK3_ENABLED
    1982             :         module function test_setSortedArrShell_D1_LK3() result(assertion); logical(LK) :: assertion; end function
    1983             : #endif
    1984             : #if     LK2_ENABLED
    1985             :         module function test_setSortedArrShell_D1_LK2() result(assertion); logical(LK) :: assertion; end function
    1986             : #endif
    1987             : #if     LK1_ENABLED
    1988             :         module function test_setSortedArrShell_D1_LK1() result(assertion); logical(LK) :: assertion; end function
    1989             : #endif
    1990             : 
    1991             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1992             : 
    1993             : #if     CK5_ENABLED
    1994             :         module function test_setSortedArrShell_D1_CK5() result(assertion); logical(LK) :: assertion; end function
    1995             : #endif
    1996             : #if     CK4_ENABLED
    1997             :         module function test_setSortedArrShell_D1_CK4() result(assertion); logical(LK) :: assertion; end function
    1998             : #endif
    1999             : #if     CK3_ENABLED
    2000             :         module function test_setSortedArrShell_D1_CK3() result(assertion); logical(LK) :: assertion; end function
    2001             : #endif
    2002             : #if     CK2_ENABLED
    2003             :         module function test_setSortedArrShell_D1_CK2() result(assertion); logical(LK) :: assertion; end function
    2004             : #endif
    2005             : #if     CK1_ENABLED
    2006             :         module function test_setSortedArrShell_D1_CK1() result(assertion); logical(LK) :: assertion; end function
    2007             : #endif
    2008             : 
    2009             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2010             : 
    2011             : #if     RK5_ENABLED
    2012             :         module function test_setSortedArrShell_D1_RK5() result(assertion); logical(LK) :: assertion; end function
    2013             : #endif
    2014             : #if     RK4_ENABLED
    2015             :         module function test_setSortedArrShell_D1_RK4() result(assertion); logical(LK) :: assertion; end function
    2016             : #endif
    2017             : #if     RK3_ENABLED
    2018             :         module function test_setSortedArrShell_D1_RK3() result(assertion); logical(LK) :: assertion; end function
    2019             : #endif
    2020             : #if     RK2_ENABLED
    2021             :         module function test_setSortedArrShell_D1_RK2() result(assertion); logical(LK) :: assertion; end function
    2022             : #endif
    2023             : #if     RK1_ENABLED
    2024             :         module function test_setSortedArrShell_D1_RK1() result(assertion); logical(LK) :: assertion; end function
    2025             : #endif
    2026             : 
    2027             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2028             : 
    2029             : #if     SK5_ENABLED
    2030             :         module function test_setSortedArrShell_D1_PSSK5() result(assertion); logical(LK) :: assertion; end function
    2031             : #endif
    2032             : #if     SK4_ENABLED
    2033             :         module function test_setSortedArrShell_D1_PSSK4() result(assertion); logical(LK) :: assertion; end function
    2034             : #endif
    2035             : #if     SK3_ENABLED
    2036             :         module function test_setSortedArrShell_D1_PSSK3() result(assertion); logical(LK) :: assertion; end function
    2037             : #endif
    2038             : #if     SK2_ENABLED
    2039             :         module function test_setSortedArrShell_D1_PSSK2() result(assertion); logical(LK) :: assertion; end function
    2040             : #endif
    2041             : #if     SK1_ENABLED
    2042             :         module function test_setSortedArrShell_D1_PSSK1() result(assertion); logical(LK) :: assertion; end function
    2043             : #endif
    2044             : 
    2045             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2046             : 
    2047             :     end interface
    2048             : 
    2049             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2050             : 
    2051             : contains
    2052             : 
    2053             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2054             : 
    2055           1 :     subroutine setTest()
    2056           1 :         test = test_type(MODULE_NAME)
    2057             : 
    2058             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2059             : 
    2060             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2061             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2062             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2063             : 
    2064             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2065             : 
    2066             : #if     SK5_ENABLED
    2067             :         call test%run(test_isAscending_D0_SK5, SK_"test_isAscending_D0_SK5")
    2068             : #endif
    2069             : #if     SK4_ENABLED
    2070             :         call test%run(test_isAscending_D0_SK4, SK_"test_isAscending_D0_SK4")
    2071             : #endif
    2072             : #if     SK3_ENABLED
    2073             :         call test%run(test_isAscending_D0_SK3, SK_"test_isAscending_D0_SK3")
    2074             : #endif
    2075             : #if     SK2_ENABLED
    2076             :         call test%run(test_isAscending_D0_SK2, SK_"test_isAscending_D0_SK2")
    2077             : #endif
    2078             : #if     SK1_ENABLED
    2079           1 :         call test%run(test_isAscending_D0_SK1, SK_"test_isAscending_D0_SK1")
    2080             : #endif
    2081             : 
    2082             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2083             : 
    2084             : #if     SK5_ENABLED
    2085             :         call test%run(test_isAscending_D1_SK5, SK_"test_isAscending_D1_SK5")
    2086             : #endif
    2087             : #if     SK4_ENABLED
    2088             :         call test%run(test_isAscending_D1_SK4, SK_"test_isAscending_D1_SK4")
    2089             : #endif
    2090             : #if     SK3_ENABLED
    2091             :         call test%run(test_isAscending_D1_SK3, SK_"test_isAscending_D1_SK3")
    2092             : #endif
    2093             : #if     SK2_ENABLED
    2094             :         call test%run(test_isAscending_D1_SK2, SK_"test_isAscending_D1_SK2")
    2095             : #endif
    2096             : #if     SK1_ENABLED
    2097           1 :         call test%run(test_isAscending_D1_SK1, SK_"test_isAscending_D1_SK1")
    2098             : #endif
    2099             : 
    2100             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2101             : 
    2102             : #if     IK5_ENABLED
    2103           1 :         call test%run(test_isAscending_D1_IK5, SK_"test_isAscending_D1_IK5")
    2104             : #endif
    2105             : #if     IK4_ENABLED
    2106           1 :         call test%run(test_isAscending_D1_IK4, SK_"test_isAscending_D1_IK4")
    2107             : #endif
    2108             : #if     IK3_ENABLED
    2109           1 :         call test%run(test_isAscending_D1_IK3, SK_"test_isAscending_D1_IK3")
    2110             : #endif
    2111             : #if     IK2_ENABLED
    2112           1 :         call test%run(test_isAscending_D1_IK2, SK_"test_isAscending_D1_IK2")
    2113             : #endif
    2114             : #if     IK1_ENABLED
    2115           1 :         call test%run(test_isAscending_D1_IK1, SK_"test_isAscending_D1_IK1")
    2116             : #endif
    2117             : 
    2118             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2119             : 
    2120             : #if     LK5_ENABLED
    2121           1 :         call test%run(test_isAscending_D1_LK5, SK_"test_isAscending_D1_LK5")
    2122             : #endif
    2123             : #if     LK4_ENABLED
    2124           1 :         call test%run(test_isAscending_D1_LK4, SK_"test_isAscending_D1_LK4")
    2125             : #endif
    2126             : #if     LK3_ENABLED
    2127           1 :         call test%run(test_isAscending_D1_LK3, SK_"test_isAscending_D1_LK3")
    2128             : #endif
    2129             : #if     LK2_ENABLED
    2130           1 :         call test%run(test_isAscending_D1_LK2, SK_"test_isAscending_D1_LK2")
    2131             : #endif
    2132             : #if     LK1_ENABLED
    2133           1 :         call test%run(test_isAscending_D1_LK1, SK_"test_isAscending_D1_LK1")
    2134             : #endif
    2135             : 
    2136             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2137             : 
    2138             : #if     CK5_ENABLED
    2139             :         call test%run(test_isAscending_D1_CK5, SK_"test_isAscending_D1_CK5")
    2140             : #endif
    2141             : #if     CK4_ENABLED
    2142           1 :         call test%run(test_isAscending_D1_CK4, SK_"test_isAscending_D1_CK4")
    2143             : #endif
    2144             : #if     CK3_ENABLED
    2145           1 :         call test%run(test_isAscending_D1_CK3, SK_"test_isAscending_D1_CK3")
    2146             : #endif
    2147             : #if     CK2_ENABLED
    2148           1 :         call test%run(test_isAscending_D1_CK2, SK_"test_isAscending_D1_CK2")
    2149             : #endif
    2150             : #if     CK1_ENABLED
    2151           1 :         call test%run(test_isAscending_D1_CK1, SK_"test_isAscending_D1_CK1")
    2152             : #endif
    2153             : 
    2154             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2155             : 
    2156             : #if     RK5_ENABLED
    2157             :         call test%run(test_isAscending_D1_RK5, SK_"test_isAscending_D1_RK5")
    2158             : #endif
    2159             : #if     RK4_ENABLED
    2160           1 :         call test%run(test_isAscending_D1_RK4, SK_"test_isAscending_D1_RK4")
    2161             : #endif
    2162             : #if     RK3_ENABLED
    2163           1 :         call test%run(test_isAscending_D1_RK3, SK_"test_isAscending_D1_RK3")
    2164             : #endif
    2165             : #if     RK2_ENABLED
    2166           1 :         call test%run(test_isAscending_D1_RK2, SK_"test_isAscending_D1_RK2")
    2167             : #endif
    2168             : #if     RK1_ENABLED
    2169           1 :         call test%run(test_isAscending_D1_RK1, SK_"test_isAscending_D1_RK1")
    2170             : #endif
    2171             : 
    2172             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2173             : #if 0
    2174             : #if     SK5_ENABLED
    2175             :         call test%run(test_isAscending_D1_PSSK5, SK_"test_isAscending_D1_PSSK5")
    2176             : #endif
    2177             : #if     SK4_ENABLED
    2178             :         call test%run(test_isAscending_D1_PSSK4, SK_"test_isAscending_D1_PSSK4")
    2179             : #endif
    2180             : #if     SK3_ENABLED
    2181             :         call test%run(test_isAscending_D1_PSSK3, SK_"test_isAscending_D1_PSSK3")
    2182             : #endif
    2183             : #if     SK2_ENABLED
    2184             :         call test%run(test_isAscending_D1_PSSK2, SK_"test_isAscending_D1_PSSK2")
    2185             : #endif
    2186             : #if     SK1_ENABLED
    2187             :         call test%run(test_isAscending_D1_PSSK1, SK_"test_isAscending_D1_PSSK1")
    2188             : #endif
    2189             : #endif
    2190             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2191             : 
    2192             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2193             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2194             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2195             : 
    2196             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2197             : 
    2198             : #if     SK5_ENABLED
    2199             :         call test%run(test_isDescending_D0_SK5, SK_"test_isDescending_D0_SK5")
    2200             : #endif
    2201             : #if     SK4_ENABLED
    2202             :         call test%run(test_isDescending_D0_SK4, SK_"test_isDescending_D0_SK4")
    2203             : #endif
    2204             : #if     SK3_ENABLED
    2205             :         call test%run(test_isDescending_D0_SK3, SK_"test_isDescending_D0_SK3")
    2206             : #endif
    2207             : #if     SK2_ENABLED
    2208             :         call test%run(test_isDescending_D0_SK2, SK_"test_isDescending_D0_SK2")
    2209             : #endif
    2210             : #if     SK1_ENABLED
    2211           1 :         call test%run(test_isDescending_D0_SK1, SK_"test_isDescending_D0_SK1")
    2212             : #endif
    2213             : 
    2214             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2215             : 
    2216             : #if     SK5_ENABLED
    2217             :         call test%run(test_isDescending_D1_SK5, SK_"test_isDescending_D1_SK5")
    2218             : #endif
    2219             : #if     SK4_ENABLED
    2220             :         call test%run(test_isDescending_D1_SK4, SK_"test_isDescending_D1_SK4")
    2221             : #endif
    2222             : #if     SK3_ENABLED
    2223             :         call test%run(test_isDescending_D1_SK3, SK_"test_isDescending_D1_SK3")
    2224             : #endif
    2225             : #if     SK2_ENABLED
    2226             :         call test%run(test_isDescending_D1_SK2, SK_"test_isDescending_D1_SK2")
    2227             : #endif
    2228             : #if     SK1_ENABLED
    2229           1 :         call test%run(test_isDescending_D1_SK1, SK_"test_isDescending_D1_SK1")
    2230             : #endif
    2231             : 
    2232             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2233             : 
    2234             : #if     IK5_ENABLED
    2235           1 :         call test%run(test_isDescending_D1_IK5, SK_"test_isDescending_D1_IK5")
    2236             : #endif
    2237             : #if     IK4_ENABLED
    2238           1 :         call test%run(test_isDescending_D1_IK4, SK_"test_isDescending_D1_IK4")
    2239             : #endif
    2240             : #if     IK3_ENABLED
    2241           1 :         call test%run(test_isDescending_D1_IK3, SK_"test_isDescending_D1_IK3")
    2242             : #endif
    2243             : #if     IK2_ENABLED
    2244           1 :         call test%run(test_isDescending_D1_IK2, SK_"test_isDescending_D1_IK2")
    2245             : #endif
    2246             : #if     IK1_ENABLED
    2247           1 :         call test%run(test_isDescending_D1_IK1, SK_"test_isDescending_D1_IK1")
    2248             : #endif
    2249             : 
    2250             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2251             : 
    2252             : #if     LK5_ENABLED
    2253           1 :         call test%run(test_isDescending_D1_LK5, SK_"test_isDescending_D1_LK5")
    2254             : #endif
    2255             : #if     LK4_ENABLED
    2256           1 :         call test%run(test_isDescending_D1_LK4, SK_"test_isDescending_D1_LK4")
    2257             : #endif
    2258             : #if     LK3_ENABLED
    2259           1 :         call test%run(test_isDescending_D1_LK3, SK_"test_isDescending_D1_LK3")
    2260             : #endif
    2261             : #if     LK2_ENABLED
    2262           1 :         call test%run(test_isDescending_D1_LK2, SK_"test_isDescending_D1_LK2")
    2263             : #endif
    2264             : #if     LK1_ENABLED
    2265           1 :         call test%run(test_isDescending_D1_LK1, SK_"test_isDescending_D1_LK1")
    2266             : #endif
    2267             : 
    2268             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2269             : 
    2270             : #if     CK5_ENABLED
    2271             :         call test%run(test_isDescending_D1_CK5, SK_"test_isDescending_D1_CK5")
    2272             : #endif
    2273             : #if     CK4_ENABLED
    2274           1 :         call test%run(test_isDescending_D1_CK4, SK_"test_isDescending_D1_CK4")
    2275             : #endif
    2276             : #if     CK3_ENABLED
    2277           1 :         call test%run(test_isDescending_D1_CK3, SK_"test_isDescending_D1_CK3")
    2278             : #endif
    2279             : #if     CK2_ENABLED
    2280           1 :         call test%run(test_isDescending_D1_CK2, SK_"test_isDescending_D1_CK2")
    2281             : #endif
    2282             : #if     CK1_ENABLED
    2283           1 :         call test%run(test_isDescending_D1_CK1, SK_"test_isDescending_D1_CK1")
    2284             : #endif
    2285             : 
    2286             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2287             : 
    2288             : #if     RK5_ENABLED
    2289             :         call test%run(test_isDescending_D1_RK5, SK_"test_isDescending_D1_RK5")
    2290             : #endif
    2291             : #if     RK4_ENABLED
    2292           1 :         call test%run(test_isDescending_D1_RK4, SK_"test_isDescending_D1_RK4")
    2293             : #endif
    2294             : #if     RK3_ENABLED
    2295           1 :         call test%run(test_isDescending_D1_RK3, SK_"test_isDescending_D1_RK3")
    2296             : #endif
    2297             : #if     RK2_ENABLED
    2298           1 :         call test%run(test_isDescending_D1_RK2, SK_"test_isDescending_D1_RK2")
    2299             : #endif
    2300             : #if     RK1_ENABLED
    2301           1 :         call test%run(test_isDescending_D1_RK1, SK_"test_isDescending_D1_RK1")
    2302             : #endif
    2303             : 
    2304             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2305             : #if 0
    2306             : #if     SK5_ENABLED
    2307             :         call test%run(test_isDescending_D1_PSSK5, SK_"test_isDescending_D1_PSSK5")
    2308             : #endif
    2309             : #if     SK4_ENABLED
    2310             :         call test%run(test_isDescending_D1_PSSK4, SK_"test_isDescending_D1_PSSK4")
    2311             : #endif
    2312             : #if     SK3_ENABLED
    2313             :         call test%run(test_isDescending_D1_PSSK3, SK_"test_isDescending_D1_PSSK3")
    2314             : #endif
    2315             : #if     SK2_ENABLED
    2316             :         call test%run(test_isDescending_D1_PSSK2, SK_"test_isDescending_D1_PSSK2")
    2317             : #endif
    2318             : #if     SK1_ENABLED
    2319             :         call test%run(test_isDescending_D1_PSSK1, SK_"test_isDescending_D1_PSSK1")
    2320             : #endif
    2321             : #endif
    2322             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2323             : 
    2324             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2325             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2326             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2327             : 
    2328             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2329             : 
    2330             : #if     SK5_ENABLED
    2331             :         call test%run(test_isSorted_D0_SK5, SK_"test_isSorted_D0_SK5")
    2332             : #endif
    2333             : #if     SK4_ENABLED
    2334             :         call test%run(test_isSorted_D0_SK4, SK_"test_isSorted_D0_SK4")
    2335             : #endif
    2336             : #if     SK3_ENABLED
    2337             :         call test%run(test_isSorted_D0_SK3, SK_"test_isSorted_D0_SK3")
    2338             : #endif
    2339             : #if     SK2_ENABLED
    2340             :         call test%run(test_isSorted_D0_SK2, SK_"test_isSorted_D0_SK2")
    2341             : #endif
    2342             : #if     SK1_ENABLED
    2343           1 :         call test%run(test_isSorted_D0_SK1, SK_"test_isSorted_D0_SK1")
    2344             : #endif
    2345             : 
    2346             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2347             : 
    2348             : #if     SK5_ENABLED
    2349             :         call test%run(test_isSorted_D1_SK5, SK_"test_isSorted_D1_SK5")
    2350             : #endif
    2351             : #if     SK4_ENABLED
    2352             :         call test%run(test_isSorted_D1_SK4, SK_"test_isSorted_D1_SK4")
    2353             : #endif
    2354             : #if     SK3_ENABLED
    2355             :         call test%run(test_isSorted_D1_SK3, SK_"test_isSorted_D1_SK3")
    2356             : #endif
    2357             : #if     SK2_ENABLED
    2358             :         call test%run(test_isSorted_D1_SK2, SK_"test_isSorted_D1_SK2")
    2359             : #endif
    2360             : #if     SK1_ENABLED
    2361           1 :         call test%run(test_isSorted_D1_SK1, SK_"test_isSorted_D1_SK1")
    2362             : #endif
    2363             : 
    2364             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2365             : 
    2366             : #if     IK5_ENABLED
    2367           1 :         call test%run(test_isSorted_D1_IK5, SK_"test_isSorted_D1_IK5")
    2368             : #endif
    2369             : #if     IK4_ENABLED
    2370           1 :         call test%run(test_isSorted_D1_IK4, SK_"test_isSorted_D1_IK4")
    2371             : #endif
    2372             : #if     IK3_ENABLED
    2373           1 :         call test%run(test_isSorted_D1_IK3, SK_"test_isSorted_D1_IK3")
    2374             : #endif
    2375             : #if     IK2_ENABLED
    2376           1 :         call test%run(test_isSorted_D1_IK2, SK_"test_isSorted_D1_IK2")
    2377             : #endif
    2378             : #if     IK1_ENABLED
    2379           1 :         call test%run(test_isSorted_D1_IK1, SK_"test_isSorted_D1_IK1")
    2380             : #endif
    2381             : 
    2382             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2383             : 
    2384             : #if     LK5_ENABLED
    2385           1 :         call test%run(test_isSorted_D1_LK5, SK_"test_isSorted_D1_LK5")
    2386             : #endif
    2387             : #if     LK4_ENABLED
    2388           1 :         call test%run(test_isSorted_D1_LK4, SK_"test_isSorted_D1_LK4")
    2389             : #endif
    2390             : #if     LK3_ENABLED
    2391           1 :         call test%run(test_isSorted_D1_LK3, SK_"test_isSorted_D1_LK3")
    2392             : #endif
    2393             : #if     LK2_ENABLED
    2394           1 :         call test%run(test_isSorted_D1_LK2, SK_"test_isSorted_D1_LK2")
    2395             : #endif
    2396             : #if     LK1_ENABLED
    2397           1 :         call test%run(test_isSorted_D1_LK1, SK_"test_isSorted_D1_LK1")
    2398             : #endif
    2399             : 
    2400             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2401             : 
    2402             : #if     CK5_ENABLED
    2403             :         call test%run(test_isSorted_D1_CK5, SK_"test_isSorted_D1_CK5")
    2404             : #endif
    2405             : #if     CK4_ENABLED
    2406           1 :         call test%run(test_isSorted_D1_CK4, SK_"test_isSorted_D1_CK4")
    2407             : #endif
    2408             : #if     CK3_ENABLED
    2409           1 :         call test%run(test_isSorted_D1_CK3, SK_"test_isSorted_D1_CK3")
    2410             : #endif
    2411             : #if     CK2_ENABLED
    2412           1 :         call test%run(test_isSorted_D1_CK2, SK_"test_isSorted_D1_CK2")
    2413             : #endif
    2414             : #if     CK1_ENABLED
    2415           1 :         call test%run(test_isSorted_D1_CK1, SK_"test_isSorted_D1_CK1")
    2416             : #endif
    2417             : 
    2418             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2419             : 
    2420             : #if     RK5_ENABLED
    2421             :         call test%run(test_isSorted_D1_RK5, SK_"test_isSorted_D1_RK5")
    2422             : #endif
    2423             : #if     RK4_ENABLED
    2424           1 :         call test%run(test_isSorted_D1_RK4, SK_"test_isSorted_D1_RK4")
    2425             : #endif
    2426             : #if     RK3_ENABLED
    2427           1 :         call test%run(test_isSorted_D1_RK3, SK_"test_isSorted_D1_RK3")
    2428             : #endif
    2429             : #if     RK2_ENABLED
    2430           1 :         call test%run(test_isSorted_D1_RK2, SK_"test_isSorted_D1_RK2")
    2431             : #endif
    2432             : #if     RK1_ENABLED
    2433           1 :         call test%run(test_isSorted_D1_RK1, SK_"test_isSorted_D1_RK1")
    2434             : #endif
    2435             : 
    2436             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2437             : #if 0
    2438             : #if     SK5_ENABLED
    2439             :         call test%run(test_isSorted_D1_PSSK5, SK_"test_isSorted_D1_PSSK5")
    2440             : #endif
    2441             : #if     SK4_ENABLED
    2442             :         call test%run(test_isSorted_D1_PSSK4, SK_"test_isSorted_D1_PSSK4")
    2443             : #endif
    2444             : #if     SK3_ENABLED
    2445             :         call test%run(test_isSorted_D1_PSSK3, SK_"test_isSorted_D1_PSSK3")
    2446             : #endif
    2447             : #if     SK2_ENABLED
    2448             :         call test%run(test_isSorted_D1_PSSK2, SK_"test_isSorted_D1_PSSK2")
    2449             : #endif
    2450             : #if     SK1_ENABLED
    2451             :         call test%run(test_isSorted_D1_PSSK1, SK_"test_isSorted_D1_PSSK1")
    2452             : #endif
    2453             : #endif
    2454             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2455             : 
    2456             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2457             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2458             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2459             : 
    2460             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2461             : 
    2462             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2463             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2464             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2465             : 
    2466             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2467             : 
    2468             : #if     SK5_ENABLED
    2469             :         call test%run(test_setSortedIndDef_D0_SK5, SK_"test_setSortedIndDef_D0_SK5")
    2470             : #endif
    2471             : #if     SK4_ENABLED
    2472             :         call test%run(test_setSortedIndDef_D0_SK4, SK_"test_setSortedIndDef_D0_SK4")
    2473             : #endif
    2474             : #if     SK3_ENABLED
    2475             :         call test%run(test_setSortedIndDef_D0_SK3, SK_"test_setSortedIndDef_D0_SK3")
    2476             : #endif
    2477             : #if     SK2_ENABLED
    2478             :         call test%run(test_setSortedIndDef_D0_SK2, SK_"test_setSortedIndDef_D0_SK2")
    2479             : #endif
    2480             : #if     SK1_ENABLED
    2481           1 :         call test%run(test_setSortedIndDef_D0_SK1, SK_"test_setSortedIndDef_D0_SK1")
    2482             : #endif
    2483             : 
    2484             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2485             : 
    2486             : #if     SK5_ENABLED
    2487             :         call test%run(test_setSortedIndDef_D1_SK5, SK_"test_setSortedIndDef_D1_SK5")
    2488             : #endif
    2489             : #if     SK4_ENABLED
    2490             :         call test%run(test_setSortedIndDef_D1_SK4, SK_"test_setSortedIndDef_D1_SK4")
    2491             : #endif
    2492             : #if     SK3_ENABLED
    2493             :         call test%run(test_setSortedIndDef_D1_SK3, SK_"test_setSortedIndDef_D1_SK3")
    2494             : #endif
    2495             : #if     SK2_ENABLED
    2496             :         call test%run(test_setSortedIndDef_D1_SK2, SK_"test_setSortedIndDef_D1_SK2")
    2497             : #endif
    2498             : #if     SK1_ENABLED
    2499           1 :         call test%run(test_setSortedIndDef_D1_SK1, SK_"test_setSortedIndDef_D1_SK1")
    2500             : #endif
    2501             : 
    2502             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2503             : 
    2504             : #if     IK5_ENABLED
    2505           1 :         call test%run(test_setSortedIndDef_D1_IK5, SK_"test_setSortedIndDef_D1_IK5")
    2506             : #endif
    2507             : #if     IK4_ENABLED
    2508           1 :         call test%run(test_setSortedIndDef_D1_IK4, SK_"test_setSortedIndDef_D1_IK4")
    2509             : #endif
    2510             : #if     IK3_ENABLED
    2511           1 :         call test%run(test_setSortedIndDef_D1_IK3, SK_"test_setSortedIndDef_D1_IK3")
    2512             : #endif
    2513             : #if     IK2_ENABLED
    2514           1 :         call test%run(test_setSortedIndDef_D1_IK2, SK_"test_setSortedIndDef_D1_IK2")
    2515             : #endif
    2516             : #if     IK1_ENABLED
    2517           1 :         call test%run(test_setSortedIndDef_D1_IK1, SK_"test_setSortedIndDef_D1_IK1")
    2518             : #endif
    2519             : 
    2520             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2521             : 
    2522             : #if     LK5_ENABLED
    2523           1 :         call test%run(test_setSortedIndDef_D1_LK5, SK_"test_setSortedIndDef_D1_LK5")
    2524             : #endif
    2525             : #if     LK4_ENABLED
    2526           1 :         call test%run(test_setSortedIndDef_D1_LK4, SK_"test_setSortedIndDef_D1_LK4")
    2527             : #endif
    2528             : #if     LK3_ENABLED
    2529           1 :         call test%run(test_setSortedIndDef_D1_LK3, SK_"test_setSortedIndDef_D1_LK3")
    2530             : #endif
    2531             : #if     LK2_ENABLED
    2532           1 :         call test%run(test_setSortedIndDef_D1_LK2, SK_"test_setSortedIndDef_D1_LK2")
    2533             : #endif
    2534             : #if     LK1_ENABLED
    2535           1 :         call test%run(test_setSortedIndDef_D1_LK1, SK_"test_setSortedIndDef_D1_LK1")
    2536             : #endif
    2537             : 
    2538             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2539             : 
    2540             : #if     CK5_ENABLED
    2541             :         call test%run(test_setSortedIndDef_D1_CK5, SK_"test_setSortedIndDef_D1_CK5")
    2542             : #endif
    2543             : #if     CK4_ENABLED
    2544           1 :         call test%run(test_setSortedIndDef_D1_CK4, SK_"test_setSortedIndDef_D1_CK4")
    2545             : #endif
    2546             : #if     CK3_ENABLED
    2547           1 :         call test%run(test_setSortedIndDef_D1_CK3, SK_"test_setSortedIndDef_D1_CK3")
    2548             : #endif
    2549             : #if     CK2_ENABLED
    2550           1 :         call test%run(test_setSortedIndDef_D1_CK2, SK_"test_setSortedIndDef_D1_CK2")
    2551             : #endif
    2552             : #if     CK1_ENABLED
    2553           1 :         call test%run(test_setSortedIndDef_D1_CK1, SK_"test_setSortedIndDef_D1_CK1")
    2554             : #endif
    2555             : 
    2556             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2557             : 
    2558             : #if     RK5_ENABLED
    2559             :         call test%run(test_setSortedIndDef_D1_RK5, SK_"test_setSortedIndDef_D1_RK5")
    2560             : #endif
    2561             : #if     RK4_ENABLED
    2562           1 :         call test%run(test_setSortedIndDef_D1_RK4, SK_"test_setSortedIndDef_D1_RK4")
    2563             : #endif
    2564             : #if     RK3_ENABLED
    2565           1 :         call test%run(test_setSortedIndDef_D1_RK3, SK_"test_setSortedIndDef_D1_RK3")
    2566             : #endif
    2567             : #if     RK2_ENABLED
    2568           1 :         call test%run(test_setSortedIndDef_D1_RK2, SK_"test_setSortedIndDef_D1_RK2")
    2569             : #endif
    2570             : #if     RK1_ENABLED
    2571           1 :         call test%run(test_setSortedIndDef_D1_RK1, SK_"test_setSortedIndDef_D1_RK1")
    2572             : #endif
    2573             : 
    2574             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2575             : #if 0
    2576             : #if     SK5_ENABLED
    2577             :         call test%run(test_setSortedIndDef_D1_PSSK5, SK_"test_setSortedIndDef_D1_PSSK5")
    2578             : #endif
    2579             : #if     SK4_ENABLED
    2580             :         call test%run(test_setSortedIndDef_D1_PSSK4, SK_"test_setSortedIndDef_D1_PSSK4")
    2581             : #endif
    2582             : #if     SK3_ENABLED
    2583             :         call test%run(test_setSortedIndDef_D1_PSSK3, SK_"test_setSortedIndDef_D1_PSSK3")
    2584             : #endif
    2585             : #if     SK2_ENABLED
    2586             :         call test%run(test_setSortedIndDef_D1_PSSK2, SK_"test_setSortedIndDef_D1_PSSK2")
    2587             : #endif
    2588             : #if     SK1_ENABLED
    2589             :         call test%run(test_setSortedIndDef_D1_PSSK1, SK_"test_setSortedIndDef_D1_PSSK1")
    2590             : #endif
    2591             : #endif
    2592             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2593             : 
    2594             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2595             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2596             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2597             : 
    2598             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2599             : 
    2600             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2601             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2602             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2603             : 
    2604             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2605             : 
    2606             : #if     SK5_ENABLED
    2607             :         call test%run(test_setSortedArrQsorti_D0_SK5, SK_"test_setSortedArrQsorti_D0_SK5")
    2608             : #endif
    2609             : #if     SK4_ENABLED
    2610             :         call test%run(test_setSortedArrQsorti_D0_SK4, SK_"test_setSortedArrQsorti_D0_SK4")
    2611             : #endif
    2612             : #if     SK3_ENABLED
    2613             :         call test%run(test_setSortedArrQsorti_D0_SK3, SK_"test_setSortedArrQsorti_D0_SK3")
    2614             : #endif
    2615             : #if     SK2_ENABLED
    2616             :         call test%run(test_setSortedArrQsorti_D0_SK2, SK_"test_setSortedArrQsorti_D0_SK2")
    2617             : #endif
    2618             : #if     SK1_ENABLED
    2619           1 :         call test%run(test_setSortedArrQsorti_D0_SK1, SK_"test_setSortedArrQsorti_D0_SK1")
    2620             : #endif
    2621             : 
    2622             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2623             : 
    2624             : #if     SK5_ENABLED
    2625             :         call test%run(test_setSortedArrQsorti_D1_SK5, SK_"test_setSortedArrQsorti_D1_SK5")
    2626             : #endif
    2627             : #if     SK4_ENABLED
    2628             :         call test%run(test_setSortedArrQsorti_D1_SK4, SK_"test_setSortedArrQsorti_D1_SK4")
    2629             : #endif
    2630             : #if     SK3_ENABLED
    2631             :         call test%run(test_setSortedArrQsorti_D1_SK3, SK_"test_setSortedArrQsorti_D1_SK3")
    2632             : #endif
    2633             : #if     SK2_ENABLED
    2634             :         call test%run(test_setSortedArrQsorti_D1_SK2, SK_"test_setSortedArrQsorti_D1_SK2")
    2635             : #endif
    2636             : #if     SK1_ENABLED
    2637           1 :         call test%run(test_setSortedArrQsorti_D1_SK1, SK_"test_setSortedArrQsorti_D1_SK1")
    2638             : #endif
    2639             : 
    2640             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2641             : 
    2642             : #if     IK5_ENABLED
    2643           1 :         call test%run(test_setSortedArrQsorti_D1_IK5, SK_"test_setSortedArrQsorti_D1_IK5")
    2644             : #endif
    2645             : #if     IK4_ENABLED
    2646           1 :         call test%run(test_setSortedArrQsorti_D1_IK4, SK_"test_setSortedArrQsorti_D1_IK4")
    2647             : #endif
    2648             : #if     IK3_ENABLED
    2649           1 :         call test%run(test_setSortedArrQsorti_D1_IK3, SK_"test_setSortedArrQsorti_D1_IK3")
    2650             : #endif
    2651             : #if     IK2_ENABLED
    2652           1 :         call test%run(test_setSortedArrQsorti_D1_IK2, SK_"test_setSortedArrQsorti_D1_IK2")
    2653             : #endif
    2654             : #if     IK1_ENABLED
    2655           1 :         call test%run(test_setSortedArrQsorti_D1_IK1, SK_"test_setSortedArrQsorti_D1_IK1")
    2656             : #endif
    2657             : 
    2658             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2659             : 
    2660             : #if     LK5_ENABLED
    2661           1 :         call test%run(test_setSortedArrQsorti_D1_LK5, SK_"test_setSortedArrQsorti_D1_LK5")
    2662             : #endif
    2663             : #if     LK4_ENABLED
    2664           1 :         call test%run(test_setSortedArrQsorti_D1_LK4, SK_"test_setSortedArrQsorti_D1_LK4")
    2665             : #endif
    2666             : #if     LK3_ENABLED
    2667           1 :         call test%run(test_setSortedArrQsorti_D1_LK3, SK_"test_setSortedArrQsorti_D1_LK3")
    2668             : #endif
    2669             : #if     LK2_ENABLED
    2670           1 :         call test%run(test_setSortedArrQsorti_D1_LK2, SK_"test_setSortedArrQsorti_D1_LK2")
    2671             : #endif
    2672             : #if     LK1_ENABLED
    2673           1 :         call test%run(test_setSortedArrQsorti_D1_LK1, SK_"test_setSortedArrQsorti_D1_LK1")
    2674             : #endif
    2675             : 
    2676             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2677             : 
    2678             : #if     CK5_ENABLED
    2679             :         call test%run(test_setSortedArrQsorti_D1_CK5, SK_"test_setSortedArrQsorti_D1_CK5")
    2680             : #endif
    2681             : #if     CK4_ENABLED
    2682           1 :         call test%run(test_setSortedArrQsorti_D1_CK4, SK_"test_setSortedArrQsorti_D1_CK4")
    2683             : #endif
    2684             : #if     CK3_ENABLED
    2685           1 :         call test%run(test_setSortedArrQsorti_D1_CK3, SK_"test_setSortedArrQsorti_D1_CK3")
    2686             : #endif
    2687             : #if     CK2_ENABLED
    2688           1 :         call test%run(test_setSortedArrQsorti_D1_CK2, SK_"test_setSortedArrQsorti_D1_CK2")
    2689             : #endif
    2690             : #if     CK1_ENABLED
    2691           1 :         call test%run(test_setSortedArrQsorti_D1_CK1, SK_"test_setSortedArrQsorti_D1_CK1")
    2692             : #endif
    2693             : 
    2694             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2695             : 
    2696             : #if     RK5_ENABLED
    2697             :         call test%run(test_setSortedArrQsorti_D1_RK5, SK_"test_setSortedArrQsorti_D1_RK5")
    2698             : #endif
    2699             : #if     RK4_ENABLED
    2700           1 :         call test%run(test_setSortedArrQsorti_D1_RK4, SK_"test_setSortedArrQsorti_D1_RK4")
    2701             : #endif
    2702             : #if     RK3_ENABLED
    2703           1 :         call test%run(test_setSortedArrQsorti_D1_RK3, SK_"test_setSortedArrQsorti_D1_RK3")
    2704             : #endif
    2705             : #if     RK2_ENABLED
    2706           1 :         call test%run(test_setSortedArrQsorti_D1_RK2, SK_"test_setSortedArrQsorti_D1_RK2")
    2707             : #endif
    2708             : #if     RK1_ENABLED
    2709           1 :         call test%run(test_setSortedArrQsorti_D1_RK1, SK_"test_setSortedArrQsorti_D1_RK1")
    2710             : #endif
    2711             : 
    2712             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2713             : #if 0
    2714             : #if     SK5_ENABLED
    2715             :         call test%run(test_setSortedArrQsorti_D1_PSSK5, SK_"test_setSortedArrQsorti_D1_PSSK5")
    2716             : #endif
    2717             : #if     SK4_ENABLED
    2718             :         call test%run(test_setSortedArrQsorti_D1_PSSK4, SK_"test_setSortedArrQsorti_D1_PSSK4")
    2719             : #endif
    2720             : #if     SK3_ENABLED
    2721             :         call test%run(test_setSortedArrQsorti_D1_PSSK3, SK_"test_setSortedArrQsorti_D1_PSSK3")
    2722             : #endif
    2723             : #if     SK2_ENABLED
    2724             :         call test%run(test_setSortedArrQsorti_D1_PSSK2, SK_"test_setSortedArrQsorti_D1_PSSK2")
    2725             : #endif
    2726             : #if     SK1_ENABLED
    2727             :         call test%run(test_setSortedArrQsorti_D1_PSSK1, SK_"test_setSortedArrQsorti_D1_PSSK1")
    2728             : #endif
    2729             : #endif
    2730             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2731             : 
    2732             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2733             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2734             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2735             : 
    2736             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2737             : 
    2738             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2739             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2740             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2741             : 
    2742             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2743             : 
    2744             : #if     SK5_ENABLED
    2745             :         call test%run(test_setSortedArrQsortr_D0_SK5, SK_"test_setSortedArrQsortr_D0_SK5")
    2746             : #endif
    2747             : #if     SK4_ENABLED
    2748             :         call test%run(test_setSortedArrQsortr_D0_SK4, SK_"test_setSortedArrQsortr_D0_SK4")
    2749             : #endif
    2750             : #if     SK3_ENABLED
    2751             :         call test%run(test_setSortedArrQsortr_D0_SK3, SK_"test_setSortedArrQsortr_D0_SK3")
    2752             : #endif
    2753             : #if     SK2_ENABLED
    2754             :         call test%run(test_setSortedArrQsortr_D0_SK2, SK_"test_setSortedArrQsortr_D0_SK2")
    2755             : #endif
    2756             : #if     SK1_ENABLED
    2757           1 :         call test%run(test_setSortedArrQsortr_D0_SK1, SK_"test_setSortedArrQsortr_D0_SK1")
    2758             : #endif
    2759             : 
    2760             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2761             : 
    2762             : #if     SK5_ENABLED
    2763             :         call test%run(test_setSortedArrQsortr_D1_SK5, SK_"test_setSortedArrQsortr_D1_SK5")
    2764             : #endif
    2765             : #if     SK4_ENABLED
    2766             :         call test%run(test_setSortedArrQsortr_D1_SK4, SK_"test_setSortedArrQsortr_D1_SK4")
    2767             : #endif
    2768             : #if     SK3_ENABLED
    2769             :         call test%run(test_setSortedArrQsortr_D1_SK3, SK_"test_setSortedArrQsortr_D1_SK3")
    2770             : #endif
    2771             : #if     SK2_ENABLED
    2772             :         call test%run(test_setSortedArrQsortr_D1_SK2, SK_"test_setSortedArrQsortr_D1_SK2")
    2773             : #endif
    2774             : #if     SK1_ENABLED
    2775           1 :         call test%run(test_setSortedArrQsortr_D1_SK1, SK_"test_setSortedArrQsortr_D1_SK1")
    2776             : #endif
    2777             : 
    2778             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2779             : 
    2780             : #if     IK5_ENABLED
    2781           1 :         call test%run(test_setSortedArrQsortr_D1_IK5, SK_"test_setSortedArrQsortr_D1_IK5")
    2782             : #endif
    2783             : #if     IK4_ENABLED
    2784           1 :         call test%run(test_setSortedArrQsortr_D1_IK4, SK_"test_setSortedArrQsortr_D1_IK4")
    2785             : #endif
    2786             : #if     IK3_ENABLED
    2787           1 :         call test%run(test_setSortedArrQsortr_D1_IK3, SK_"test_setSortedArrQsortr_D1_IK3")
    2788             : #endif
    2789             : #if     IK2_ENABLED
    2790           1 :         call test%run(test_setSortedArrQsortr_D1_IK2, SK_"test_setSortedArrQsortr_D1_IK2")
    2791             : #endif
    2792             : #if     IK1_ENABLED
    2793           1 :         call test%run(test_setSortedArrQsortr_D1_IK1, SK_"test_setSortedArrQsortr_D1_IK1")
    2794             : #endif
    2795             : 
    2796             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2797             : 
    2798             : #if     LK5_ENABLED
    2799           1 :         call test%run(test_setSortedArrQsortr_D1_LK5, SK_"test_setSortedArrQsortr_D1_LK5")
    2800             : #endif
    2801             : #if     LK4_ENABLED
    2802           1 :         call test%run(test_setSortedArrQsortr_D1_LK4, SK_"test_setSortedArrQsortr_D1_LK4")
    2803             : #endif
    2804             : #if     LK3_ENABLED
    2805           1 :         call test%run(test_setSortedArrQsortr_D1_LK3, SK_"test_setSortedArrQsortr_D1_LK3")
    2806             : #endif
    2807             : #if     LK2_ENABLED
    2808           1 :         call test%run(test_setSortedArrQsortr_D1_LK2, SK_"test_setSortedArrQsortr_D1_LK2")
    2809             : #endif
    2810             : #if     LK1_ENABLED
    2811           1 :         call test%run(test_setSortedArrQsortr_D1_LK1, SK_"test_setSortedArrQsortr_D1_LK1")
    2812             : #endif
    2813             : 
    2814             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2815             : 
    2816             : #if     CK5_ENABLED
    2817             :         call test%run(test_setSortedArrQsortr_D1_CK5, SK_"test_setSortedArrQsortr_D1_CK5")
    2818             : #endif
    2819             : #if     CK4_ENABLED
    2820           1 :         call test%run(test_setSortedArrQsortr_D1_CK4, SK_"test_setSortedArrQsortr_D1_CK4")
    2821             : #endif
    2822             : #if     CK3_ENABLED
    2823           1 :         call test%run(test_setSortedArrQsortr_D1_CK3, SK_"test_setSortedArrQsortr_D1_CK3")
    2824             : #endif
    2825             : #if     CK2_ENABLED
    2826           1 :         call test%run(test_setSortedArrQsortr_D1_CK2, SK_"test_setSortedArrQsortr_D1_CK2")
    2827             : #endif
    2828             : #if     CK1_ENABLED
    2829           1 :         call test%run(test_setSortedArrQsortr_D1_CK1, SK_"test_setSortedArrQsortr_D1_CK1")
    2830             : #endif
    2831             : 
    2832             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2833             : 
    2834             : #if     RK5_ENABLED
    2835             :         call test%run(test_setSortedArrQsortr_D1_RK5, SK_"test_setSortedArrQsortr_D1_RK5")
    2836             : #endif
    2837             : #if     RK4_ENABLED
    2838           1 :         call test%run(test_setSortedArrQsortr_D1_RK4, SK_"test_setSortedArrQsortr_D1_RK4")
    2839             : #endif
    2840             : #if     RK3_ENABLED
    2841           1 :         call test%run(test_setSortedArrQsortr_D1_RK3, SK_"test_setSortedArrQsortr_D1_RK3")
    2842             : #endif
    2843             : #if     RK2_ENABLED
    2844           1 :         call test%run(test_setSortedArrQsortr_D1_RK2, SK_"test_setSortedArrQsortr_D1_RK2")
    2845             : #endif
    2846             : #if     RK1_ENABLED
    2847           1 :         call test%run(test_setSortedArrQsortr_D1_RK1, SK_"test_setSortedArrQsortr_D1_RK1")
    2848             : #endif
    2849             : 
    2850             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2851             : #if 0
    2852             : #if     SK5_ENABLED
    2853             :         call test%run(test_setSortedArrQsortr_D1_PSSK5, SK_"test_setSortedArrQsortr_D1_PSSK5")
    2854             : #endif
    2855             : #if     SK4_ENABLED
    2856             :         call test%run(test_setSortedArrQsortr_D1_PSSK4, SK_"test_setSortedArrQsortr_D1_PSSK4")
    2857             : #endif
    2858             : #if     SK3_ENABLED
    2859             :         call test%run(test_setSortedArrQsortr_D1_PSSK3, SK_"test_setSortedArrQsortr_D1_PSSK3")
    2860             : #endif
    2861             : #if     SK2_ENABLED
    2862             :         call test%run(test_setSortedArrQsortr_D1_PSSK2, SK_"test_setSortedArrQsortr_D1_PSSK2")
    2863             : #endif
    2864             : #if     SK1_ENABLED
    2865             :         call test%run(test_setSortedArrQsortr_D1_PSSK1, SK_"test_setSortedArrQsortr_D1_PSSK1")
    2866             : #endif
    2867             : #endif
    2868             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2869             : 
    2870             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2871             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2872             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2873             : 
    2874             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2875             : 
    2876             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2877             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2878             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2879             : 
    2880             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2881             : 
    2882             : #if     SK5_ENABLED
    2883             :         call test%run(test_setSortedArrQsortrdp_D0_SK5, SK_"test_setSortedArrQsortrdp_D0_SK5")
    2884             : #endif
    2885             : #if     SK4_ENABLED
    2886             :         call test%run(test_setSortedArrQsortrdp_D0_SK4, SK_"test_setSortedArrQsortrdp_D0_SK4")
    2887             : #endif
    2888             : #if     SK3_ENABLED
    2889             :         call test%run(test_setSortedArrQsortrdp_D0_SK3, SK_"test_setSortedArrQsortrdp_D0_SK3")
    2890             : #endif
    2891             : #if     SK2_ENABLED
    2892             :         call test%run(test_setSortedArrQsortrdp_D0_SK2, SK_"test_setSortedArrQsortrdp_D0_SK2")
    2893             : #endif
    2894             : #if     SK1_ENABLED
    2895           1 :         call test%run(test_setSortedArrQsortrdp_D0_SK1, SK_"test_setSortedArrQsortrdp_D0_SK1")
    2896             : #endif
    2897             : 
    2898             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2899             : 
    2900             : #if     SK5_ENABLED
    2901             :         call test%run(test_setSortedArrQsortrdp_D1_SK5, SK_"test_setSortedArrQsortrdp_D1_SK5")
    2902             : #endif
    2903             : #if     SK4_ENABLED
    2904             :         call test%run(test_setSortedArrQsortrdp_D1_SK4, SK_"test_setSortedArrQsortrdp_D1_SK4")
    2905             : #endif
    2906             : #if     SK3_ENABLED
    2907             :         call test%run(test_setSortedArrQsortrdp_D1_SK3, SK_"test_setSortedArrQsortrdp_D1_SK3")
    2908             : #endif
    2909             : #if     SK2_ENABLED
    2910             :         call test%run(test_setSortedArrQsortrdp_D1_SK2, SK_"test_setSortedArrQsortrdp_D1_SK2")
    2911             : #endif
    2912             : #if     SK1_ENABLED
    2913           1 :         call test%run(test_setSortedArrQsortrdp_D1_SK1, SK_"test_setSortedArrQsortrdp_D1_SK1")
    2914             : #endif
    2915             : 
    2916             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2917             : 
    2918             : #if     IK5_ENABLED
    2919           1 :         call test%run(test_setSortedArrQsortrdp_D1_IK5, SK_"test_setSortedArrQsortrdp_D1_IK5")
    2920             : #endif
    2921             : #if     IK4_ENABLED
    2922           1 :         call test%run(test_setSortedArrQsortrdp_D1_IK4, SK_"test_setSortedArrQsortrdp_D1_IK4")
    2923             : #endif
    2924             : #if     IK3_ENABLED
    2925           1 :         call test%run(test_setSortedArrQsortrdp_D1_IK3, SK_"test_setSortedArrQsortrdp_D1_IK3")
    2926             : #endif
    2927             : #if     IK2_ENABLED
    2928           1 :         call test%run(test_setSortedArrQsortrdp_D1_IK2, SK_"test_setSortedArrQsortrdp_D1_IK2")
    2929             : #endif
    2930             : #if     IK1_ENABLED
    2931           1 :         call test%run(test_setSortedArrQsortrdp_D1_IK1, SK_"test_setSortedArrQsortrdp_D1_IK1")
    2932             : #endif
    2933             : 
    2934             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2935             : 
    2936             : #if     LK5_ENABLED
    2937           1 :         call test%run(test_setSortedArrQsortrdp_D1_LK5, SK_"test_setSortedArrQsortrdp_D1_LK5")
    2938             : #endif
    2939             : #if     LK4_ENABLED
    2940           1 :         call test%run(test_setSortedArrQsortrdp_D1_LK4, SK_"test_setSortedArrQsortrdp_D1_LK4")
    2941             : #endif
    2942             : #if     LK3_ENABLED
    2943           1 :         call test%run(test_setSortedArrQsortrdp_D1_LK3, SK_"test_setSortedArrQsortrdp_D1_LK3")
    2944             : #endif
    2945             : #if     LK2_ENABLED
    2946           1 :         call test%run(test_setSortedArrQsortrdp_D1_LK2, SK_"test_setSortedArrQsortrdp_D1_LK2")
    2947             : #endif
    2948             : #if     LK1_ENABLED
    2949           1 :         call test%run(test_setSortedArrQsortrdp_D1_LK1, SK_"test_setSortedArrQsortrdp_D1_LK1")
    2950             : #endif
    2951             : 
    2952             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2953             : 
    2954             : #if     CK5_ENABLED
    2955             :         call test%run(test_setSortedArrQsortrdp_D1_CK5, SK_"test_setSortedArrQsortrdp_D1_CK5")
    2956             : #endif
    2957             : #if     CK4_ENABLED
    2958           1 :         call test%run(test_setSortedArrQsortrdp_D1_CK4, SK_"test_setSortedArrQsortrdp_D1_CK4")
    2959             : #endif
    2960             : #if     CK3_ENABLED
    2961           1 :         call test%run(test_setSortedArrQsortrdp_D1_CK3, SK_"test_setSortedArrQsortrdp_D1_CK3")
    2962             : #endif
    2963             : #if     CK2_ENABLED
    2964           1 :         call test%run(test_setSortedArrQsortrdp_D1_CK2, SK_"test_setSortedArrQsortrdp_D1_CK2")
    2965             : #endif
    2966             : #if     CK1_ENABLED
    2967           1 :         call test%run(test_setSortedArrQsortrdp_D1_CK1, SK_"test_setSortedArrQsortrdp_D1_CK1")
    2968             : #endif
    2969             : 
    2970             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2971             : 
    2972             : #if     RK5_ENABLED
    2973             :         call test%run(test_setSortedArrQsortrdp_D1_RK5, SK_"test_setSortedArrQsortrdp_D1_RK5")
    2974             : #endif
    2975             : #if     RK4_ENABLED
    2976           1 :         call test%run(test_setSortedArrQsortrdp_D1_RK4, SK_"test_setSortedArrQsortrdp_D1_RK4")
    2977             : #endif
    2978             : #if     RK3_ENABLED
    2979           1 :         call test%run(test_setSortedArrQsortrdp_D1_RK3, SK_"test_setSortedArrQsortrdp_D1_RK3")
    2980             : #endif
    2981             : #if     RK2_ENABLED
    2982           1 :         call test%run(test_setSortedArrQsortrdp_D1_RK2, SK_"test_setSortedArrQsortrdp_D1_RK2")
    2983             : #endif
    2984             : #if     RK1_ENABLED
    2985           1 :         call test%run(test_setSortedArrQsortrdp_D1_RK1, SK_"test_setSortedArrQsortrdp_D1_RK1")
    2986             : #endif
    2987             : 
    2988             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2989             : #if 0
    2990             : #if     SK5_ENABLED
    2991             :         call test%run(test_setSortedArrQsortrdp_D1_PSSK5, SK_"test_setSortedArrQsortrdp_D1_PSSK5")
    2992             : #endif
    2993             : #if     SK4_ENABLED
    2994             :         call test%run(test_setSortedArrQsortrdp_D1_PSSK4, SK_"test_setSortedArrQsortrdp_D1_PSSK4")
    2995             : #endif
    2996             : #if     SK3_ENABLED
    2997             :         call test%run(test_setSortedArrQsortrdp_D1_PSSK3, SK_"test_setSortedArrQsortrdp_D1_PSSK3")
    2998             : #endif
    2999             : #if     SK2_ENABLED
    3000             :         call test%run(test_setSortedArrQsortrdp_D1_PSSK2, SK_"test_setSortedArrQsortrdp_D1_PSSK2")
    3001             : #endif
    3002             : #if     SK1_ENABLED
    3003             :         call test%run(test_setSortedArrQsortrdp_D1_PSSK1, SK_"test_setSortedArrQsortrdp_D1_PSSK1")
    3004             : #endif
    3005             : #endif
    3006             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3007             : 
    3008             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3009             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3010             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3011             : 
    3012             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3013             : 
    3014             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3015             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3016             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3017             : 
    3018             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3019             : 
    3020             : #if     SK5_ENABLED
    3021             :         call test%run(test_setSortedArrBubble_D0_SK5, SK_"test_setSortedArrBubble_D0_SK5")
    3022             : #endif
    3023             : #if     SK4_ENABLED
    3024             :         call test%run(test_setSortedArrBubble_D0_SK4, SK_"test_setSortedArrBubble_D0_SK4")
    3025             : #endif
    3026             : #if     SK3_ENABLED
    3027             :         call test%run(test_setSortedArrBubble_D0_SK3, SK_"test_setSortedArrBubble_D0_SK3")
    3028             : #endif
    3029             : #if     SK2_ENABLED
    3030             :         call test%run(test_setSortedArrBubble_D0_SK2, SK_"test_setSortedArrBubble_D0_SK2")
    3031             : #endif
    3032             : #if     SK1_ENABLED
    3033           1 :         call test%run(test_setSortedArrBubble_D0_SK1, SK_"test_setSortedArrBubble_D0_SK1")
    3034             : #endif
    3035             : 
    3036             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3037             : 
    3038             : #if     SK5_ENABLED
    3039             :         call test%run(test_setSortedArrBubble_D1_SK5, SK_"test_setSortedArrBubble_D1_SK5")
    3040             : #endif
    3041             : #if     SK4_ENABLED
    3042             :         call test%run(test_setSortedArrBubble_D1_SK4, SK_"test_setSortedArrBubble_D1_SK4")
    3043             : #endif
    3044             : #if     SK3_ENABLED
    3045             :         call test%run(test_setSortedArrBubble_D1_SK3, SK_"test_setSortedArrBubble_D1_SK3")
    3046             : #endif
    3047             : #if     SK2_ENABLED
    3048             :         call test%run(test_setSortedArrBubble_D1_SK2, SK_"test_setSortedArrBubble_D1_SK2")
    3049             : #endif
    3050             : #if     SK1_ENABLED
    3051           1 :         call test%run(test_setSortedArrBubble_D1_SK1, SK_"test_setSortedArrBubble_D1_SK1")
    3052             : #endif
    3053             : 
    3054             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3055             : 
    3056             : #if     IK5_ENABLED
    3057           1 :         call test%run(test_setSortedArrBubble_D1_IK5, SK_"test_setSortedArrBubble_D1_IK5")
    3058             : #endif
    3059             : #if     IK4_ENABLED
    3060           1 :         call test%run(test_setSortedArrBubble_D1_IK4, SK_"test_setSortedArrBubble_D1_IK4")
    3061             : #endif
    3062             : #if     IK3_ENABLED
    3063           1 :         call test%run(test_setSortedArrBubble_D1_IK3, SK_"test_setSortedArrBubble_D1_IK3")
    3064             : #endif
    3065             : #if     IK2_ENABLED
    3066           1 :         call test%run(test_setSortedArrBubble_D1_IK2, SK_"test_setSortedArrBubble_D1_IK2")
    3067             : #endif
    3068             : #if     IK1_ENABLED
    3069           1 :         call test%run(test_setSortedArrBubble_D1_IK1, SK_"test_setSortedArrBubble_D1_IK1")
    3070             : #endif
    3071             : 
    3072             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3073             : 
    3074             : #if     LK5_ENABLED
    3075           1 :         call test%run(test_setSortedArrBubble_D1_LK5, SK_"test_setSortedArrBubble_D1_LK5")
    3076             : #endif
    3077             : #if     LK4_ENABLED
    3078           1 :         call test%run(test_setSortedArrBubble_D1_LK4, SK_"test_setSortedArrBubble_D1_LK4")
    3079             : #endif
    3080             : #if     LK3_ENABLED
    3081           1 :         call test%run(test_setSortedArrBubble_D1_LK3, SK_"test_setSortedArrBubble_D1_LK3")
    3082             : #endif
    3083             : #if     LK2_ENABLED
    3084           1 :         call test%run(test_setSortedArrBubble_D1_LK2, SK_"test_setSortedArrBubble_D1_LK2")
    3085             : #endif
    3086             : #if     LK1_ENABLED
    3087           1 :         call test%run(test_setSortedArrBubble_D1_LK1, SK_"test_setSortedArrBubble_D1_LK1")
    3088             : #endif
    3089             : 
    3090             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3091             : 
    3092             : #if     CK5_ENABLED
    3093             :         call test%run(test_setSortedArrBubble_D1_CK5, SK_"test_setSortedArrBubble_D1_CK5")
    3094             : #endif
    3095             : #if     CK4_ENABLED
    3096           1 :         call test%run(test_setSortedArrBubble_D1_CK4, SK_"test_setSortedArrBubble_D1_CK4")
    3097             : #endif
    3098             : #if     CK3_ENABLED
    3099           1 :         call test%run(test_setSortedArrBubble_D1_CK3, SK_"test_setSortedArrBubble_D1_CK3")
    3100             : #endif
    3101             : #if     CK2_ENABLED
    3102           1 :         call test%run(test_setSortedArrBubble_D1_CK2, SK_"test_setSortedArrBubble_D1_CK2")
    3103             : #endif
    3104             : #if     CK1_ENABLED
    3105           1 :         call test%run(test_setSortedArrBubble_D1_CK1, SK_"test_setSortedArrBubble_D1_CK1")
    3106             : #endif
    3107             : 
    3108             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3109             : 
    3110             : #if     RK5_ENABLED
    3111             :         call test%run(test_setSortedArrBubble_D1_RK5, SK_"test_setSortedArrBubble_D1_RK5")
    3112             : #endif
    3113             : #if     RK4_ENABLED
    3114           1 :         call test%run(test_setSortedArrBubble_D1_RK4, SK_"test_setSortedArrBubble_D1_RK4")
    3115             : #endif
    3116             : #if     RK3_ENABLED
    3117           1 :         call test%run(test_setSortedArrBubble_D1_RK3, SK_"test_setSortedArrBubble_D1_RK3")
    3118             : #endif
    3119             : #if     RK2_ENABLED
    3120           1 :         call test%run(test_setSortedArrBubble_D1_RK2, SK_"test_setSortedArrBubble_D1_RK2")
    3121             : #endif
    3122             : #if     RK1_ENABLED
    3123           1 :         call test%run(test_setSortedArrBubble_D1_RK1, SK_"test_setSortedArrBubble_D1_RK1")
    3124             : #endif
    3125             : 
    3126             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3127             : #if 0
    3128             : #if     SK5_ENABLED
    3129             :         call test%run(test_setSortedArrBubble_D1_PSSK5, SK_"test_setSortedArrBubble_D1_PSSK5")
    3130             : #endif
    3131             : #if     SK4_ENABLED
    3132             :         call test%run(test_setSortedArrBubble_D1_PSSK4, SK_"test_setSortedArrBubble_D1_PSSK4")
    3133             : #endif
    3134             : #if     SK3_ENABLED
    3135             :         call test%run(test_setSortedArrBubble_D1_PSSK3, SK_"test_setSortedArrBubble_D1_PSSK3")
    3136             : #endif
    3137             : #if     SK2_ENABLED
    3138             :         call test%run(test_setSortedArrBubble_D1_PSSK2, SK_"test_setSortedArrBubble_D1_PSSK2")
    3139             : #endif
    3140             : #if     SK1_ENABLED
    3141             :         call test%run(test_setSortedArrBubble_D1_PSSK1, SK_"test_setSortedArrBubble_D1_PSSK1")
    3142             : #endif
    3143             : #endif
    3144             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3145             : 
    3146             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3147             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3148             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3149             : 
    3150             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3151             : 
    3152             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3153             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3154             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3155             : 
    3156             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3157             : 
    3158             : #if     SK5_ENABLED
    3159             :         call test%run(test_setSortedArrHeapi_D0_SK5, SK_"test_setSortedArrHeapi_D0_SK5")
    3160             : #endif
    3161             : #if     SK4_ENABLED
    3162             :         call test%run(test_setSortedArrHeapi_D0_SK4, SK_"test_setSortedArrHeapi_D0_SK4")
    3163             : #endif
    3164             : #if     SK3_ENABLED
    3165             :         call test%run(test_setSortedArrHeapi_D0_SK3, SK_"test_setSortedArrHeapi_D0_SK3")
    3166             : #endif
    3167             : #if     SK2_ENABLED
    3168             :         call test%run(test_setSortedArrHeapi_D0_SK2, SK_"test_setSortedArrHeapi_D0_SK2")
    3169             : #endif
    3170             : #if     SK1_ENABLED
    3171           1 :         call test%run(test_setSortedArrHeapi_D0_SK1, SK_"test_setSortedArrHeapi_D0_SK1")
    3172             : #endif
    3173             : 
    3174             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3175             : 
    3176             : #if     SK5_ENABLED
    3177             :         call test%run(test_setSortedArrHeapi_D1_SK5, SK_"test_setSortedArrHeapi_D1_SK5")
    3178             : #endif
    3179             : #if     SK4_ENABLED
    3180             :         call test%run(test_setSortedArrHeapi_D1_SK4, SK_"test_setSortedArrHeapi_D1_SK4")
    3181             : #endif
    3182             : #if     SK3_ENABLED
    3183             :         call test%run(test_setSortedArrHeapi_D1_SK3, SK_"test_setSortedArrHeapi_D1_SK3")
    3184             : #endif
    3185             : #if     SK2_ENABLED
    3186             :         call test%run(test_setSortedArrHeapi_D1_SK2, SK_"test_setSortedArrHeapi_D1_SK2")
    3187             : #endif
    3188             : #if     SK1_ENABLED
    3189           1 :         call test%run(test_setSortedArrHeapi_D1_SK1, SK_"test_setSortedArrHeapi_D1_SK1")
    3190             : #endif
    3191             : 
    3192             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3193             : 
    3194             : #if     IK5_ENABLED
    3195           1 :         call test%run(test_setSortedArrHeapi_D1_IK5, SK_"test_setSortedArrHeapi_D1_IK5")
    3196             : #endif
    3197             : #if     IK4_ENABLED
    3198           1 :         call test%run(test_setSortedArrHeapi_D1_IK4, SK_"test_setSortedArrHeapi_D1_IK4")
    3199             : #endif
    3200             : #if     IK3_ENABLED
    3201           1 :         call test%run(test_setSortedArrHeapi_D1_IK3, SK_"test_setSortedArrHeapi_D1_IK3")
    3202             : #endif
    3203             : #if     IK2_ENABLED
    3204           1 :         call test%run(test_setSortedArrHeapi_D1_IK2, SK_"test_setSortedArrHeapi_D1_IK2")
    3205             : #endif
    3206             : #if     IK1_ENABLED
    3207           1 :         call test%run(test_setSortedArrHeapi_D1_IK1, SK_"test_setSortedArrHeapi_D1_IK1")
    3208             : #endif
    3209             : 
    3210             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3211             : 
    3212             : #if     LK5_ENABLED
    3213           1 :         call test%run(test_setSortedArrHeapi_D1_LK5, SK_"test_setSortedArrHeapi_D1_LK5")
    3214             : #endif
    3215             : #if     LK4_ENABLED
    3216           1 :         call test%run(test_setSortedArrHeapi_D1_LK4, SK_"test_setSortedArrHeapi_D1_LK4")
    3217             : #endif
    3218             : #if     LK3_ENABLED
    3219           1 :         call test%run(test_setSortedArrHeapi_D1_LK3, SK_"test_setSortedArrHeapi_D1_LK3")
    3220             : #endif
    3221             : #if     LK2_ENABLED
    3222           1 :         call test%run(test_setSortedArrHeapi_D1_LK2, SK_"test_setSortedArrHeapi_D1_LK2")
    3223             : #endif
    3224             : #if     LK1_ENABLED
    3225           1 :         call test%run(test_setSortedArrHeapi_D1_LK1, SK_"test_setSortedArrHeapi_D1_LK1")
    3226             : #endif
    3227             : 
    3228             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3229             : 
    3230             : #if     CK5_ENABLED
    3231             :         call test%run(test_setSortedArrHeapi_D1_CK5, SK_"test_setSortedArrHeapi_D1_CK5")
    3232             : #endif
    3233             : #if     CK4_ENABLED
    3234           1 :         call test%run(test_setSortedArrHeapi_D1_CK4, SK_"test_setSortedArrHeapi_D1_CK4")
    3235             : #endif
    3236             : #if     CK3_ENABLED
    3237           1 :         call test%run(test_setSortedArrHeapi_D1_CK3, SK_"test_setSortedArrHeapi_D1_CK3")
    3238             : #endif
    3239             : #if     CK2_ENABLED
    3240           1 :         call test%run(test_setSortedArrHeapi_D1_CK2, SK_"test_setSortedArrHeapi_D1_CK2")
    3241             : #endif
    3242             : #if     CK1_ENABLED
    3243           1 :         call test%run(test_setSortedArrHeapi_D1_CK1, SK_"test_setSortedArrHeapi_D1_CK1")
    3244             : #endif
    3245             : 
    3246             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3247             : 
    3248             : #if     RK5_ENABLED
    3249             :         call test%run(test_setSortedArrHeapi_D1_RK5, SK_"test_setSortedArrHeapi_D1_RK5")
    3250             : #endif
    3251             : #if     RK4_ENABLED
    3252           1 :         call test%run(test_setSortedArrHeapi_D1_RK4, SK_"test_setSortedArrHeapi_D1_RK4")
    3253             : #endif
    3254             : #if     RK3_ENABLED
    3255           1 :         call test%run(test_setSortedArrHeapi_D1_RK3, SK_"test_setSortedArrHeapi_D1_RK3")
    3256             : #endif
    3257             : #if     RK2_ENABLED
    3258           1 :         call test%run(test_setSortedArrHeapi_D1_RK2, SK_"test_setSortedArrHeapi_D1_RK2")
    3259             : #endif
    3260             : #if     RK1_ENABLED
    3261           1 :         call test%run(test_setSortedArrHeapi_D1_RK1, SK_"test_setSortedArrHeapi_D1_RK1")
    3262             : #endif
    3263             : 
    3264             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3265             : #if 0
    3266             : #if     SK5_ENABLED
    3267             :         call test%run(test_setSortedArrHeapi_D1_PSSK5, SK_"test_setSortedArrHeapi_D1_PSSK5")
    3268             : #endif
    3269             : #if     SK4_ENABLED
    3270             :         call test%run(test_setSortedArrHeapi_D1_PSSK4, SK_"test_setSortedArrHeapi_D1_PSSK4")
    3271             : #endif
    3272             : #if     SK3_ENABLED
    3273             :         call test%run(test_setSortedArrHeapi_D1_PSSK3, SK_"test_setSortedArrHeapi_D1_PSSK3")
    3274             : #endif
    3275             : #if     SK2_ENABLED
    3276             :         call test%run(test_setSortedArrHeapi_D1_PSSK2, SK_"test_setSortedArrHeapi_D1_PSSK2")
    3277             : #endif
    3278             : #if     SK1_ENABLED
    3279             :         call test%run(test_setSortedArrHeapi_D1_PSSK1, SK_"test_setSortedArrHeapi_D1_PSSK1")
    3280             : #endif
    3281             : #endif
    3282             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3283             : 
    3284             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3285             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3286             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3287             : 
    3288             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3289             : 
    3290             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3291             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3292             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3293             : 
    3294             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3295             : 
    3296             : #if     SK5_ENABLED
    3297             :         call test%run(test_setSortedArrHeapr_D0_SK5, SK_"test_setSortedArrHeapr_D0_SK5")
    3298             : #endif
    3299             : #if     SK4_ENABLED
    3300             :         call test%run(test_setSortedArrHeapr_D0_SK4, SK_"test_setSortedArrHeapr_D0_SK4")
    3301             : #endif
    3302             : #if     SK3_ENABLED
    3303             :         call test%run(test_setSortedArrHeapr_D0_SK3, SK_"test_setSortedArrHeapr_D0_SK3")
    3304             : #endif
    3305             : #if     SK2_ENABLED
    3306             :         call test%run(test_setSortedArrHeapr_D0_SK2, SK_"test_setSortedArrHeapr_D0_SK2")
    3307             : #endif
    3308             : #if     SK1_ENABLED
    3309           1 :         call test%run(test_setSortedArrHeapr_D0_SK1, SK_"test_setSortedArrHeapr_D0_SK1")
    3310             : #endif
    3311             : 
    3312             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3313             : 
    3314             : #if     SK5_ENABLED
    3315             :         call test%run(test_setSortedArrHeapr_D1_SK5, SK_"test_setSortedArrHeapr_D1_SK5")
    3316             : #endif
    3317             : #if     SK4_ENABLED
    3318             :         call test%run(test_setSortedArrHeapr_D1_SK4, SK_"test_setSortedArrHeapr_D1_SK4")
    3319             : #endif
    3320             : #if     SK3_ENABLED
    3321             :         call test%run(test_setSortedArrHeapr_D1_SK3, SK_"test_setSortedArrHeapr_D1_SK3")
    3322             : #endif
    3323             : #if     SK2_ENABLED
    3324             :         call test%run(test_setSortedArrHeapr_D1_SK2, SK_"test_setSortedArrHeapr_D1_SK2")
    3325             : #endif
    3326             : #if     SK1_ENABLED
    3327           1 :         call test%run(test_setSortedArrHeapr_D1_SK1, SK_"test_setSortedArrHeapr_D1_SK1")
    3328             : #endif
    3329             : 
    3330             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3331             : 
    3332             : #if     IK5_ENABLED
    3333           1 :         call test%run(test_setSortedArrHeapr_D1_IK5, SK_"test_setSortedArrHeapr_D1_IK5")
    3334             : #endif
    3335             : #if     IK4_ENABLED
    3336           1 :         call test%run(test_setSortedArrHeapr_D1_IK4, SK_"test_setSortedArrHeapr_D1_IK4")
    3337             : #endif
    3338             : #if     IK3_ENABLED
    3339           1 :         call test%run(test_setSortedArrHeapr_D1_IK3, SK_"test_setSortedArrHeapr_D1_IK3")
    3340             : #endif
    3341             : #if     IK2_ENABLED
    3342           1 :         call test%run(test_setSortedArrHeapr_D1_IK2, SK_"test_setSortedArrHeapr_D1_IK2")
    3343             : #endif
    3344             : #if     IK1_ENABLED
    3345           1 :         call test%run(test_setSortedArrHeapr_D1_IK1, SK_"test_setSortedArrHeapr_D1_IK1")
    3346             : #endif
    3347             : 
    3348             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3349             : 
    3350             : #if     LK5_ENABLED
    3351           1 :         call test%run(test_setSortedArrHeapr_D1_LK5, SK_"test_setSortedArrHeapr_D1_LK5")
    3352             : #endif
    3353             : #if     LK4_ENABLED
    3354           1 :         call test%run(test_setSortedArrHeapr_D1_LK4, SK_"test_setSortedArrHeapr_D1_LK4")
    3355             : #endif
    3356             : #if     LK3_ENABLED
    3357           1 :         call test%run(test_setSortedArrHeapr_D1_LK3, SK_"test_setSortedArrHeapr_D1_LK3")
    3358             : #endif
    3359             : #if     LK2_ENABLED
    3360           1 :         call test%run(test_setSortedArrHeapr_D1_LK2, SK_"test_setSortedArrHeapr_D1_LK2")
    3361             : #endif
    3362             : #if     LK1_ENABLED
    3363           1 :         call test%run(test_setSortedArrHeapr_D1_LK1, SK_"test_setSortedArrHeapr_D1_LK1")
    3364             : #endif
    3365             : 
    3366             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3367             : 
    3368             : #if     CK5_ENABLED
    3369             :         call test%run(test_setSortedArrHeapr_D1_CK5, SK_"test_setSortedArrHeapr_D1_CK5")
    3370             : #endif
    3371             : #if     CK4_ENABLED
    3372           1 :         call test%run(test_setSortedArrHeapr_D1_CK4, SK_"test_setSortedArrHeapr_D1_CK4")
    3373             : #endif
    3374             : #if     CK3_ENABLED
    3375           1 :         call test%run(test_setSortedArrHeapr_D1_CK3, SK_"test_setSortedArrHeapr_D1_CK3")
    3376             : #endif
    3377             : #if     CK2_ENABLED
    3378           1 :         call test%run(test_setSortedArrHeapr_D1_CK2, SK_"test_setSortedArrHeapr_D1_CK2")
    3379             : #endif
    3380             : #if     CK1_ENABLED
    3381           1 :         call test%run(test_setSortedArrHeapr_D1_CK1, SK_"test_setSortedArrHeapr_D1_CK1")
    3382             : #endif
    3383             : 
    3384             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3385             : 
    3386             : #if     RK5_ENABLED
    3387             :         call test%run(test_setSortedArrHeapr_D1_RK5, SK_"test_setSortedArrHeapr_D1_RK5")
    3388             : #endif
    3389             : #if     RK4_ENABLED
    3390           1 :         call test%run(test_setSortedArrHeapr_D1_RK4, SK_"test_setSortedArrHeapr_D1_RK4")
    3391             : #endif
    3392             : #if     RK3_ENABLED
    3393           1 :         call test%run(test_setSortedArrHeapr_D1_RK3, SK_"test_setSortedArrHeapr_D1_RK3")
    3394             : #endif
    3395             : #if     RK2_ENABLED
    3396           1 :         call test%run(test_setSortedArrHeapr_D1_RK2, SK_"test_setSortedArrHeapr_D1_RK2")
    3397             : #endif
    3398             : #if     RK1_ENABLED
    3399           1 :         call test%run(test_setSortedArrHeapr_D1_RK1, SK_"test_setSortedArrHeapr_D1_RK1")
    3400             : #endif
    3401             : 
    3402             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3403             : #if 0
    3404             : #if     SK5_ENABLED
    3405             :         call test%run(test_setSortedArrHeapr_D1_PSSK5, SK_"test_setSortedArrHeapr_D1_PSSK5")
    3406             : #endif
    3407             : #if     SK4_ENABLED
    3408             :         call test%run(test_setSortedArrHeapr_D1_PSSK4, SK_"test_setSortedArrHeapr_D1_PSSK4")
    3409             : #endif
    3410             : #if     SK3_ENABLED
    3411             :         call test%run(test_setSortedArrHeapr_D1_PSSK3, SK_"test_setSortedArrHeapr_D1_PSSK3")
    3412             : #endif
    3413             : #if     SK2_ENABLED
    3414             :         call test%run(test_setSortedArrHeapr_D1_PSSK2, SK_"test_setSortedArrHeapr_D1_PSSK2")
    3415             : #endif
    3416             : #if     SK1_ENABLED
    3417             :         call test%run(test_setSortedArrHeapr_D1_PSSK1, SK_"test_setSortedArrHeapr_D1_PSSK1")
    3418             : #endif
    3419             : #endif
    3420             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3421             : 
    3422             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3423             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3424             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3425             : 
    3426             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3427             : 
    3428             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3429             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3430             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3431             : 
    3432             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3433             : 
    3434             : #if     SK5_ENABLED
    3435             :         call test%run(test_setSortedArrInsertionl_D0_SK5, SK_"test_setSortedArrInsertionl_D0_SK5")
    3436             : #endif
    3437             : #if     SK4_ENABLED
    3438             :         call test%run(test_setSortedArrInsertionl_D0_SK4, SK_"test_setSortedArrInsertionl_D0_SK4")
    3439             : #endif
    3440             : #if     SK3_ENABLED
    3441             :         call test%run(test_setSortedArrInsertionl_D0_SK3, SK_"test_setSortedArrInsertionl_D0_SK3")
    3442             : #endif
    3443             : #if     SK2_ENABLED
    3444             :         call test%run(test_setSortedArrInsertionl_D0_SK2, SK_"test_setSortedArrInsertionl_D0_SK2")
    3445             : #endif
    3446             : #if     SK1_ENABLED
    3447           1 :         call test%run(test_setSortedArrInsertionl_D0_SK1, SK_"test_setSortedArrInsertionl_D0_SK1")
    3448             : #endif
    3449             : 
    3450             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3451             : 
    3452             : #if     SK5_ENABLED
    3453             :         call test%run(test_setSortedArrInsertionl_D1_SK5, SK_"test_setSortedArrInsertionl_D1_SK5")
    3454             : #endif
    3455             : #if     SK4_ENABLED
    3456             :         call test%run(test_setSortedArrInsertionl_D1_SK4, SK_"test_setSortedArrInsertionl_D1_SK4")
    3457             : #endif
    3458             : #if     SK3_ENABLED
    3459             :         call test%run(test_setSortedArrInsertionl_D1_SK3, SK_"test_setSortedArrInsertionl_D1_SK3")
    3460             : #endif
    3461             : #if     SK2_ENABLED
    3462             :         call test%run(test_setSortedArrInsertionl_D1_SK2, SK_"test_setSortedArrInsertionl_D1_SK2")
    3463             : #endif
    3464             : #if     SK1_ENABLED
    3465           1 :         call test%run(test_setSortedArrInsertionl_D1_SK1, SK_"test_setSortedArrInsertionl_D1_SK1")
    3466             : #endif
    3467             : 
    3468             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3469             : 
    3470             : #if     IK5_ENABLED
    3471           1 :         call test%run(test_setSortedArrInsertionl_D1_IK5, SK_"test_setSortedArrInsertionl_D1_IK5")
    3472             : #endif
    3473             : #if     IK4_ENABLED
    3474           1 :         call test%run(test_setSortedArrInsertionl_D1_IK4, SK_"test_setSortedArrInsertionl_D1_IK4")
    3475             : #endif
    3476             : #if     IK3_ENABLED
    3477           1 :         call test%run(test_setSortedArrInsertionl_D1_IK3, SK_"test_setSortedArrInsertionl_D1_IK3")
    3478             : #endif
    3479             : #if     IK2_ENABLED
    3480           1 :         call test%run(test_setSortedArrInsertionl_D1_IK2, SK_"test_setSortedArrInsertionl_D1_IK2")
    3481             : #endif
    3482             : #if     IK1_ENABLED
    3483           1 :         call test%run(test_setSortedArrInsertionl_D1_IK1, SK_"test_setSortedArrInsertionl_D1_IK1")
    3484             : #endif
    3485             : 
    3486             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3487             : 
    3488             : #if     LK5_ENABLED
    3489           1 :         call test%run(test_setSortedArrInsertionl_D1_LK5, SK_"test_setSortedArrInsertionl_D1_LK5")
    3490             : #endif
    3491             : #if     LK4_ENABLED
    3492           1 :         call test%run(test_setSortedArrInsertionl_D1_LK4, SK_"test_setSortedArrInsertionl_D1_LK4")
    3493             : #endif
    3494             : #if     LK3_ENABLED
    3495           1 :         call test%run(test_setSortedArrInsertionl_D1_LK3, SK_"test_setSortedArrInsertionl_D1_LK3")
    3496             : #endif
    3497             : #if     LK2_ENABLED
    3498           1 :         call test%run(test_setSortedArrInsertionl_D1_LK2, SK_"test_setSortedArrInsertionl_D1_LK2")
    3499             : #endif
    3500             : #if     LK1_ENABLED
    3501           1 :         call test%run(test_setSortedArrInsertionl_D1_LK1, SK_"test_setSortedArrInsertionl_D1_LK1")
    3502             : #endif
    3503             : 
    3504             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3505             : 
    3506             : #if     CK5_ENABLED
    3507             :         call test%run(test_setSortedArrInsertionl_D1_CK5, SK_"test_setSortedArrInsertionl_D1_CK5")
    3508             : #endif
    3509             : #if     CK4_ENABLED
    3510           1 :         call test%run(test_setSortedArrInsertionl_D1_CK4, SK_"test_setSortedArrInsertionl_D1_CK4")
    3511             : #endif
    3512             : #if     CK3_ENABLED
    3513           1 :         call test%run(test_setSortedArrInsertionl_D1_CK3, SK_"test_setSortedArrInsertionl_D1_CK3")
    3514             : #endif
    3515             : #if     CK2_ENABLED
    3516           1 :         call test%run(test_setSortedArrInsertionl_D1_CK2, SK_"test_setSortedArrInsertionl_D1_CK2")
    3517             : #endif
    3518             : #if     CK1_ENABLED
    3519           1 :         call test%run(test_setSortedArrInsertionl_D1_CK1, SK_"test_setSortedArrInsertionl_D1_CK1")
    3520             : #endif
    3521             : 
    3522             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3523             : 
    3524             : #if     RK5_ENABLED
    3525             :         call test%run(test_setSortedArrInsertionl_D1_RK5, SK_"test_setSortedArrInsertionl_D1_RK5")
    3526             : #endif
    3527             : #if     RK4_ENABLED
    3528           1 :         call test%run(test_setSortedArrInsertionl_D1_RK4, SK_"test_setSortedArrInsertionl_D1_RK4")
    3529             : #endif
    3530             : #if     RK3_ENABLED
    3531           1 :         call test%run(test_setSortedArrInsertionl_D1_RK3, SK_"test_setSortedArrInsertionl_D1_RK3")
    3532             : #endif
    3533             : #if     RK2_ENABLED
    3534           1 :         call test%run(test_setSortedArrInsertionl_D1_RK2, SK_"test_setSortedArrInsertionl_D1_RK2")
    3535             : #endif
    3536             : #if     RK1_ENABLED
    3537           1 :         call test%run(test_setSortedArrInsertionl_D1_RK1, SK_"test_setSortedArrInsertionl_D1_RK1")
    3538             : #endif
    3539             : 
    3540             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3541             : #if 0
    3542             : #if     SK5_ENABLED
    3543             :         call test%run(test_setSortedArrInsertionl_D1_PSSK5, SK_"test_setSortedArrInsertionl_D1_PSSK5")
    3544             : #endif
    3545             : #if     SK4_ENABLED
    3546             :         call test%run(test_setSortedArrInsertionl_D1_PSSK4, SK_"test_setSortedArrInsertionl_D1_PSSK4")
    3547             : #endif
    3548             : #if     SK3_ENABLED
    3549             :         call test%run(test_setSortedArrInsertionl_D1_PSSK3, SK_"test_setSortedArrInsertionl_D1_PSSK3")
    3550             : #endif
    3551             : #if     SK2_ENABLED
    3552             :         call test%run(test_setSortedArrInsertionl_D1_PSSK2, SK_"test_setSortedArrInsertionl_D1_PSSK2")
    3553             : #endif
    3554             : #if     SK1_ENABLED
    3555             :         call test%run(test_setSortedArrInsertionl_D1_PSSK1, SK_"test_setSortedArrInsertionl_D1_PSSK1")
    3556             : #endif
    3557             : #endif
    3558             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3559             : 
    3560             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3561             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3562             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3563             : 
    3564             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3565             : 
    3566             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3567             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3568             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3569             : 
    3570             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3571             : 
    3572             : #if     SK5_ENABLED
    3573             :         call test%run(test_setSortedArrInsertionb_D0_SK5, SK_"test_setSortedArrInsertionb_D0_SK5")
    3574             : #endif
    3575             : #if     SK4_ENABLED
    3576             :         call test%run(test_setSortedArrInsertionb_D0_SK4, SK_"test_setSortedArrInsertionb_D0_SK4")
    3577             : #endif
    3578             : #if     SK3_ENABLED
    3579             :         call test%run(test_setSortedArrInsertionb_D0_SK3, SK_"test_setSortedArrInsertionb_D0_SK3")
    3580             : #endif
    3581             : #if     SK2_ENABLED
    3582             :         call test%run(test_setSortedArrInsertionb_D0_SK2, SK_"test_setSortedArrInsertionb_D0_SK2")
    3583             : #endif
    3584             : #if     SK1_ENABLED
    3585           1 :         call test%run(test_setSortedArrInsertionb_D0_SK1, SK_"test_setSortedArrInsertionb_D0_SK1")
    3586             : #endif
    3587             : 
    3588             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3589             : 
    3590             : #if     SK5_ENABLED
    3591             :         call test%run(test_setSortedArrInsertionb_D1_SK5, SK_"test_setSortedArrInsertionb_D1_SK5")
    3592             : #endif
    3593             : #if     SK4_ENABLED
    3594             :         call test%run(test_setSortedArrInsertionb_D1_SK4, SK_"test_setSortedArrInsertionb_D1_SK4")
    3595             : #endif
    3596             : #if     SK3_ENABLED
    3597             :         call test%run(test_setSortedArrInsertionb_D1_SK3, SK_"test_setSortedArrInsertionb_D1_SK3")
    3598             : #endif
    3599             : #if     SK2_ENABLED
    3600             :         call test%run(test_setSortedArrInsertionb_D1_SK2, SK_"test_setSortedArrInsertionb_D1_SK2")
    3601             : #endif
    3602             : #if     SK1_ENABLED
    3603           1 :         call test%run(test_setSortedArrInsertionb_D1_SK1, SK_"test_setSortedArrInsertionb_D1_SK1")
    3604             : #endif
    3605             : 
    3606             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3607             : 
    3608             : #if     IK5_ENABLED
    3609           1 :         call test%run(test_setSortedArrInsertionb_D1_IK5, SK_"test_setSortedArrInsertionb_D1_IK5")
    3610             : #endif
    3611             : #if     IK4_ENABLED
    3612           1 :         call test%run(test_setSortedArrInsertionb_D1_IK4, SK_"test_setSortedArrInsertionb_D1_IK4")
    3613             : #endif
    3614             : #if     IK3_ENABLED
    3615           1 :         call test%run(test_setSortedArrInsertionb_D1_IK3, SK_"test_setSortedArrInsertionb_D1_IK3")
    3616             : #endif
    3617             : #if     IK2_ENABLED
    3618           1 :         call test%run(test_setSortedArrInsertionb_D1_IK2, SK_"test_setSortedArrInsertionb_D1_IK2")
    3619             : #endif
    3620             : #if     IK1_ENABLED
    3621           1 :         call test%run(test_setSortedArrInsertionb_D1_IK1, SK_"test_setSortedArrInsertionb_D1_IK1")
    3622             : #endif
    3623             : 
    3624             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3625             : 
    3626             : #if     LK5_ENABLED
    3627           1 :         call test%run(test_setSortedArrInsertionb_D1_LK5, SK_"test_setSortedArrInsertionb_D1_LK5")
    3628             : #endif
    3629             : #if     LK4_ENABLED
    3630           1 :         call test%run(test_setSortedArrInsertionb_D1_LK4, SK_"test_setSortedArrInsertionb_D1_LK4")
    3631             : #endif
    3632             : #if     LK3_ENABLED
    3633           1 :         call test%run(test_setSortedArrInsertionb_D1_LK3, SK_"test_setSortedArrInsertionb_D1_LK3")
    3634             : #endif
    3635             : #if     LK2_ENABLED
    3636           1 :         call test%run(test_setSortedArrInsertionb_D1_LK2, SK_"test_setSortedArrInsertionb_D1_LK2")
    3637             : #endif
    3638             : #if     LK1_ENABLED
    3639           1 :         call test%run(test_setSortedArrInsertionb_D1_LK1, SK_"test_setSortedArrInsertionb_D1_LK1")
    3640             : #endif
    3641             : 
    3642             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3643             : 
    3644             : #if     CK5_ENABLED
    3645             :         call test%run(test_setSortedArrInsertionb_D1_CK5, SK_"test_setSortedArrInsertionb_D1_CK5")
    3646             : #endif
    3647             : #if     CK4_ENABLED
    3648           1 :         call test%run(test_setSortedArrInsertionb_D1_CK4, SK_"test_setSortedArrInsertionb_D1_CK4")
    3649             : #endif
    3650             : #if     CK3_ENABLED
    3651           1 :         call test%run(test_setSortedArrInsertionb_D1_CK3, SK_"test_setSortedArrInsertionb_D1_CK3")
    3652             : #endif
    3653             : #if     CK2_ENABLED
    3654           1 :         call test%run(test_setSortedArrInsertionb_D1_CK2, SK_"test_setSortedArrInsertionb_D1_CK2")
    3655             : #endif
    3656             : #if     CK1_ENABLED
    3657           1 :         call test%run(test_setSortedArrInsertionb_D1_CK1, SK_"test_setSortedArrInsertionb_D1_CK1")
    3658             : #endif
    3659             : 
    3660             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3661             : 
    3662             : #if     RK5_ENABLED
    3663             :         call test%run(test_setSortedArrInsertionb_D1_RK5, SK_"test_setSortedArrInsertionb_D1_RK5")
    3664             : #endif
    3665             : #if     RK4_ENABLED
    3666           1 :         call test%run(test_setSortedArrInsertionb_D1_RK4, SK_"test_setSortedArrInsertionb_D1_RK4")
    3667             : #endif
    3668             : #if     RK3_ENABLED
    3669           1 :         call test%run(test_setSortedArrInsertionb_D1_RK3, SK_"test_setSortedArrInsertionb_D1_RK3")
    3670             : #endif
    3671             : #if     RK2_ENABLED
    3672           1 :         call test%run(test_setSortedArrInsertionb_D1_RK2, SK_"test_setSortedArrInsertionb_D1_RK2")
    3673             : #endif
    3674             : #if     RK1_ENABLED
    3675           1 :         call test%run(test_setSortedArrInsertionb_D1_RK1, SK_"test_setSortedArrInsertionb_D1_RK1")
    3676             : #endif
    3677             : 
    3678             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3679             : #if 0
    3680             : #if     SK5_ENABLED
    3681             :         call test%run(test_setSortedArrInsertionb_D1_PSSK5, SK_"test_setSortedArrInsertionb_D1_PSSK5")
    3682             : #endif
    3683             : #if     SK4_ENABLED
    3684             :         call test%run(test_setSortedArrInsertionb_D1_PSSK4, SK_"test_setSortedArrInsertionb_D1_PSSK4")
    3685             : #endif
    3686             : #if     SK3_ENABLED
    3687             :         call test%run(test_setSortedArrInsertionb_D1_PSSK3, SK_"test_setSortedArrInsertionb_D1_PSSK3")
    3688             : #endif
    3689             : #if     SK2_ENABLED
    3690             :         call test%run(test_setSortedArrInsertionb_D1_PSSK2, SK_"test_setSortedArrInsertionb_D1_PSSK2")
    3691             : #endif
    3692             : #if     SK1_ENABLED
    3693             :         call test%run(test_setSortedArrInsertionb_D1_PSSK1, SK_"test_setSortedArrInsertionb_D1_PSSK1")
    3694             : #endif
    3695             : #endif
    3696             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3697             : 
    3698             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3699             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3700             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3701             : 
    3702             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3703             : 
    3704             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3705             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3706             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3707             : 
    3708             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3709             : 
    3710             : #if     SK5_ENABLED
    3711             :         call test%run(test_setSortedArrMerger_D0_SK5, SK_"test_setSortedArrMerger_D0_SK5")
    3712             : #endif
    3713             : #if     SK4_ENABLED
    3714             :         call test%run(test_setSortedArrMerger_D0_SK4, SK_"test_setSortedArrMerger_D0_SK4")
    3715             : #endif
    3716             : #if     SK3_ENABLED
    3717             :         call test%run(test_setSortedArrMerger_D0_SK3, SK_"test_setSortedArrMerger_D0_SK3")
    3718             : #endif
    3719             : #if     SK2_ENABLED
    3720             :         call test%run(test_setSortedArrMerger_D0_SK2, SK_"test_setSortedArrMerger_D0_SK2")
    3721             : #endif
    3722             : #if     SK1_ENABLED
    3723           1 :         call test%run(test_setSortedArrMerger_D0_SK1, SK_"test_setSortedArrMerger_D0_SK1")
    3724             : #endif
    3725             : 
    3726             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3727             : 
    3728             : #if     SK5_ENABLED
    3729             :         call test%run(test_setSortedArrMerger_D1_SK5, SK_"test_setSortedArrMerger_D1_SK5")
    3730             : #endif
    3731             : #if     SK4_ENABLED
    3732             :         call test%run(test_setSortedArrMerger_D1_SK4, SK_"test_setSortedArrMerger_D1_SK4")
    3733             : #endif
    3734             : #if     SK3_ENABLED
    3735             :         call test%run(test_setSortedArrMerger_D1_SK3, SK_"test_setSortedArrMerger_D1_SK3")
    3736             : #endif
    3737             : #if     SK2_ENABLED
    3738             :         call test%run(test_setSortedArrMerger_D1_SK2, SK_"test_setSortedArrMerger_D1_SK2")
    3739             : #endif
    3740             : #if     SK1_ENABLED
    3741           1 :         call test%run(test_setSortedArrMerger_D1_SK1, SK_"test_setSortedArrMerger_D1_SK1")
    3742             : #endif
    3743             : 
    3744             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3745             : 
    3746             : #if     IK5_ENABLED
    3747           1 :         call test%run(test_setSortedArrMerger_D1_IK5, SK_"test_setSortedArrMerger_D1_IK5")
    3748             : #endif
    3749             : #if     IK4_ENABLED
    3750           1 :         call test%run(test_setSortedArrMerger_D1_IK4, SK_"test_setSortedArrMerger_D1_IK4")
    3751             : #endif
    3752             : #if     IK3_ENABLED
    3753           1 :         call test%run(test_setSortedArrMerger_D1_IK3, SK_"test_setSortedArrMerger_D1_IK3")
    3754             : #endif
    3755             : #if     IK2_ENABLED
    3756           1 :         call test%run(test_setSortedArrMerger_D1_IK2, SK_"test_setSortedArrMerger_D1_IK2")
    3757             : #endif
    3758             : #if     IK1_ENABLED
    3759           1 :         call test%run(test_setSortedArrMerger_D1_IK1, SK_"test_setSortedArrMerger_D1_IK1")
    3760             : #endif
    3761             : 
    3762             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3763             : 
    3764             : #if     LK5_ENABLED
    3765           1 :         call test%run(test_setSortedArrMerger_D1_LK5, SK_"test_setSortedArrMerger_D1_LK5")
    3766             : #endif
    3767             : #if     LK4_ENABLED
    3768           1 :         call test%run(test_setSortedArrMerger_D1_LK4, SK_"test_setSortedArrMerger_D1_LK4")
    3769             : #endif
    3770             : #if     LK3_ENABLED
    3771           1 :         call test%run(test_setSortedArrMerger_D1_LK3, SK_"test_setSortedArrMerger_D1_LK3")
    3772             : #endif
    3773             : #if     LK2_ENABLED
    3774           1 :         call test%run(test_setSortedArrMerger_D1_LK2, SK_"test_setSortedArrMerger_D1_LK2")
    3775             : #endif
    3776             : #if     LK1_ENABLED
    3777           1 :         call test%run(test_setSortedArrMerger_D1_LK1, SK_"test_setSortedArrMerger_D1_LK1")
    3778             : #endif
    3779             : 
    3780             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3781             : 
    3782             : #if     CK5_ENABLED
    3783             :         call test%run(test_setSortedArrMerger_D1_CK5, SK_"test_setSortedArrMerger_D1_CK5")
    3784             : #endif
    3785             : #if     CK4_ENABLED
    3786           1 :         call test%run(test_setSortedArrMerger_D1_CK4, SK_"test_setSortedArrMerger_D1_CK4")
    3787             : #endif
    3788             : #if     CK3_ENABLED
    3789           1 :         call test%run(test_setSortedArrMerger_D1_CK3, SK_"test_setSortedArrMerger_D1_CK3")
    3790             : #endif
    3791             : #if     CK2_ENABLED
    3792           1 :         call test%run(test_setSortedArrMerger_D1_CK2, SK_"test_setSortedArrMerger_D1_CK2")
    3793             : #endif
    3794             : #if     CK1_ENABLED
    3795           1 :         call test%run(test_setSortedArrMerger_D1_CK1, SK_"test_setSortedArrMerger_D1_CK1")
    3796             : #endif
    3797             : 
    3798             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3799             : 
    3800             : #if     RK5_ENABLED
    3801             :         call test%run(test_setSortedArrMerger_D1_RK5, SK_"test_setSortedArrMerger_D1_RK5")
    3802             : #endif
    3803             : #if     RK4_ENABLED
    3804           1 :         call test%run(test_setSortedArrMerger_D1_RK4, SK_"test_setSortedArrMerger_D1_RK4")
    3805             : #endif
    3806             : #if     RK3_ENABLED
    3807           1 :         call test%run(test_setSortedArrMerger_D1_RK3, SK_"test_setSortedArrMerger_D1_RK3")
    3808             : #endif
    3809             : #if     RK2_ENABLED
    3810           1 :         call test%run(test_setSortedArrMerger_D1_RK2, SK_"test_setSortedArrMerger_D1_RK2")
    3811             : #endif
    3812             : #if     RK1_ENABLED
    3813           1 :         call test%run(test_setSortedArrMerger_D1_RK1, SK_"test_setSortedArrMerger_D1_RK1")
    3814             : #endif
    3815             : 
    3816             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3817             : #if 0
    3818             : #if     SK5_ENABLED
    3819             :         call test%run(test_setSortedArrMerger_D1_PSSK5, SK_"test_setSortedArrMerger_D1_PSSK5")
    3820             : #endif
    3821             : #if     SK4_ENABLED
    3822             :         call test%run(test_setSortedArrMerger_D1_PSSK4, SK_"test_setSortedArrMerger_D1_PSSK4")
    3823             : #endif
    3824             : #if     SK3_ENABLED
    3825             :         call test%run(test_setSortedArrMerger_D1_PSSK3, SK_"test_setSortedArrMerger_D1_PSSK3")
    3826             : #endif
    3827             : #if     SK2_ENABLED
    3828             :         call test%run(test_setSortedArrMerger_D1_PSSK2, SK_"test_setSortedArrMerger_D1_PSSK2")
    3829             : #endif
    3830             : #if     SK1_ENABLED
    3831             :         call test%run(test_setSortedArrMerger_D1_PSSK1, SK_"test_setSortedArrMerger_D1_PSSK1")
    3832             : #endif
    3833             : #endif
    3834             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3835             : 
    3836             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3837             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3838             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3839             : 
    3840             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3841             : 
    3842             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3843             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3844             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3845             : 
    3846             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3847             : 
    3848             : #if     SK5_ENABLED
    3849             :         call test%run(test_setSortedArrSelection_D0_SK5, SK_"test_setSortedArrSelection_D0_SK5")
    3850             : #endif
    3851             : #if     SK4_ENABLED
    3852             :         call test%run(test_setSortedArrSelection_D0_SK4, SK_"test_setSortedArrSelection_D0_SK4")
    3853             : #endif
    3854             : #if     SK3_ENABLED
    3855             :         call test%run(test_setSortedArrSelection_D0_SK3, SK_"test_setSortedArrSelection_D0_SK3")
    3856             : #endif
    3857             : #if     SK2_ENABLED
    3858             :         call test%run(test_setSortedArrSelection_D0_SK2, SK_"test_setSortedArrSelection_D0_SK2")
    3859             : #endif
    3860             : #if     SK1_ENABLED
    3861           1 :         call test%run(test_setSortedArrSelection_D0_SK1, SK_"test_setSortedArrSelection_D0_SK1")
    3862             : #endif
    3863             : 
    3864             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3865             : 
    3866             : #if     SK5_ENABLED
    3867             :         call test%run(test_setSortedArrSelection_D1_SK5, SK_"test_setSortedArrSelection_D1_SK5")
    3868             : #endif
    3869             : #if     SK4_ENABLED
    3870             :         call test%run(test_setSortedArrSelection_D1_SK4, SK_"test_setSortedArrSelection_D1_SK4")
    3871             : #endif
    3872             : #if     SK3_ENABLED
    3873             :         call test%run(test_setSortedArrSelection_D1_SK3, SK_"test_setSortedArrSelection_D1_SK3")
    3874             : #endif
    3875             : #if     SK2_ENABLED
    3876             :         call test%run(test_setSortedArrSelection_D1_SK2, SK_"test_setSortedArrSelection_D1_SK2")
    3877             : #endif
    3878             : #if     SK1_ENABLED
    3879           1 :         call test%run(test_setSortedArrSelection_D1_SK1, SK_"test_setSortedArrSelection_D1_SK1")
    3880             : #endif
    3881             : 
    3882             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3883             : 
    3884             : #if     IK5_ENABLED
    3885           1 :         call test%run(test_setSortedArrSelection_D1_IK5, SK_"test_setSortedArrSelection_D1_IK5")
    3886             : #endif
    3887             : #if     IK4_ENABLED
    3888           1 :         call test%run(test_setSortedArrSelection_D1_IK4, SK_"test_setSortedArrSelection_D1_IK4")
    3889             : #endif
    3890             : #if     IK3_ENABLED
    3891           1 :         call test%run(test_setSortedArrSelection_D1_IK3, SK_"test_setSortedArrSelection_D1_IK3")
    3892             : #endif
    3893             : #if     IK2_ENABLED
    3894           1 :         call test%run(test_setSortedArrSelection_D1_IK2, SK_"test_setSortedArrSelection_D1_IK2")
    3895             : #endif
    3896             : #if     IK1_ENABLED
    3897           1 :         call test%run(test_setSortedArrSelection_D1_IK1, SK_"test_setSortedArrSelection_D1_IK1")
    3898             : #endif
    3899             : 
    3900             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3901             : 
    3902             : #if     LK5_ENABLED
    3903           1 :         call test%run(test_setSortedArrSelection_D1_LK5, SK_"test_setSortedArrSelection_D1_LK5")
    3904             : #endif
    3905             : #if     LK4_ENABLED
    3906           1 :         call test%run(test_setSortedArrSelection_D1_LK4, SK_"test_setSortedArrSelection_D1_LK4")
    3907             : #endif
    3908             : #if     LK3_ENABLED
    3909           1 :         call test%run(test_setSortedArrSelection_D1_LK3, SK_"test_setSortedArrSelection_D1_LK3")
    3910             : #endif
    3911             : #if     LK2_ENABLED
    3912           1 :         call test%run(test_setSortedArrSelection_D1_LK2, SK_"test_setSortedArrSelection_D1_LK2")
    3913             : #endif
    3914             : #if     LK1_ENABLED
    3915           1 :         call test%run(test_setSortedArrSelection_D1_LK1, SK_"test_setSortedArrSelection_D1_LK1")
    3916             : #endif
    3917             : 
    3918             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3919             : 
    3920             : #if     CK5_ENABLED
    3921             :         call test%run(test_setSortedArrSelection_D1_CK5, SK_"test_setSortedArrSelection_D1_CK5")
    3922             : #endif
    3923             : #if     CK4_ENABLED
    3924           1 :         call test%run(test_setSortedArrSelection_D1_CK4, SK_"test_setSortedArrSelection_D1_CK4")
    3925             : #endif
    3926             : #if     CK3_ENABLED
    3927           1 :         call test%run(test_setSortedArrSelection_D1_CK3, SK_"test_setSortedArrSelection_D1_CK3")
    3928             : #endif
    3929             : #if     CK2_ENABLED
    3930           1 :         call test%run(test_setSortedArrSelection_D1_CK2, SK_"test_setSortedArrSelection_D1_CK2")
    3931             : #endif
    3932             : #if     CK1_ENABLED
    3933           1 :         call test%run(test_setSortedArrSelection_D1_CK1, SK_"test_setSortedArrSelection_D1_CK1")
    3934             : #endif
    3935             : 
    3936             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3937             : 
    3938             : #if     RK5_ENABLED
    3939             :         call test%run(test_setSortedArrSelection_D1_RK5, SK_"test_setSortedArrSelection_D1_RK5")
    3940             : #endif
    3941             : #if     RK4_ENABLED
    3942           1 :         call test%run(test_setSortedArrSelection_D1_RK4, SK_"test_setSortedArrSelection_D1_RK4")
    3943             : #endif
    3944             : #if     RK3_ENABLED
    3945           1 :         call test%run(test_setSortedArrSelection_D1_RK3, SK_"test_setSortedArrSelection_D1_RK3")
    3946             : #endif
    3947             : #if     RK2_ENABLED
    3948           1 :         call test%run(test_setSortedArrSelection_D1_RK2, SK_"test_setSortedArrSelection_D1_RK2")
    3949             : #endif
    3950             : #if     RK1_ENABLED
    3951           1 :         call test%run(test_setSortedArrSelection_D1_RK1, SK_"test_setSortedArrSelection_D1_RK1")
    3952             : #endif
    3953             : 
    3954             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3955             : #if 0
    3956             : #if     SK5_ENABLED
    3957             :         call test%run(test_setSortedArrSelection_D1_PSSK5, SK_"test_setSortedArrSelection_D1_PSSK5")
    3958             : #endif
    3959             : #if     SK4_ENABLED
    3960             :         call test%run(test_setSortedArrSelection_D1_PSSK4, SK_"test_setSortedArrSelection_D1_PSSK4")
    3961             : #endif
    3962             : #if     SK3_ENABLED
    3963             :         call test%run(test_setSortedArrSelection_D1_PSSK3, SK_"test_setSortedArrSelection_D1_PSSK3")
    3964             : #endif
    3965             : #if     SK2_ENABLED
    3966             :         call test%run(test_setSortedArrSelection_D1_PSSK2, SK_"test_setSortedArrSelection_D1_PSSK2")
    3967             : #endif
    3968             : #if     SK1_ENABLED
    3969             :         call test%run(test_setSortedArrSelection_D1_PSSK1, SK_"test_setSortedArrSelection_D1_PSSK1")
    3970             : #endif
    3971             : #endif
    3972             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3973             : 
    3974             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3975             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3976             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3977             : 
    3978             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3979             : 
    3980             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3981             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3982             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3983             : 
    3984             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3985             : 
    3986             : #if     SK5_ENABLED
    3987             :         call test%run(test_setSortedArrShell_D0_SK5, SK_"test_setSortedArrShell_D0_SK5")
    3988             : #endif
    3989             : #if     SK4_ENABLED
    3990             :         call test%run(test_setSortedArrShell_D0_SK4, SK_"test_setSortedArrShell_D0_SK4")
    3991             : #endif
    3992             : #if     SK3_ENABLED
    3993             :         call test%run(test_setSortedArrShell_D0_SK3, SK_"test_setSortedArrShell_D0_SK3")
    3994             : #endif
    3995             : #if     SK2_ENABLED
    3996             :         call test%run(test_setSortedArrShell_D0_SK2, SK_"test_setSortedArrShell_D0_SK2")
    3997             : #endif
    3998             : #if     SK1_ENABLED
    3999           1 :         call test%run(test_setSortedArrShell_D0_SK1, SK_"test_setSortedArrShell_D0_SK1")
    4000             : #endif
    4001             : 
    4002             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4003             : 
    4004             : #if     SK5_ENABLED
    4005             :         call test%run(test_setSortedArrShell_D1_SK5, SK_"test_setSortedArrShell_D1_SK5")
    4006             : #endif
    4007             : #if     SK4_ENABLED
    4008             :         call test%run(test_setSortedArrShell_D1_SK4, SK_"test_setSortedArrShell_D1_SK4")
    4009             : #endif
    4010             : #if     SK3_ENABLED
    4011             :         call test%run(test_setSortedArrShell_D1_SK3, SK_"test_setSortedArrShell_D1_SK3")
    4012             : #endif
    4013             : #if     SK2_ENABLED
    4014             :         call test%run(test_setSortedArrShell_D1_SK2, SK_"test_setSortedArrShell_D1_SK2")
    4015             : #endif
    4016             : #if     SK1_ENABLED
    4017           1 :         call test%run(test_setSortedArrShell_D1_SK1, SK_"test_setSortedArrShell_D1_SK1")
    4018             : #endif
    4019             : 
    4020             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4021             : 
    4022             : #if     IK5_ENABLED
    4023           1 :         call test%run(test_setSortedArrShell_D1_IK5, SK_"test_setSortedArrShell_D1_IK5")
    4024             : #endif
    4025             : #if     IK4_ENABLED
    4026           1 :         call test%run(test_setSortedArrShell_D1_IK4, SK_"test_setSortedArrShell_D1_IK4")
    4027             : #endif
    4028             : #if     IK3_ENABLED
    4029           1 :         call test%run(test_setSortedArrShell_D1_IK3, SK_"test_setSortedArrShell_D1_IK3")
    4030             : #endif
    4031             : #if     IK2_ENABLED
    4032           1 :         call test%run(test_setSortedArrShell_D1_IK2, SK_"test_setSortedArrShell_D1_IK2")
    4033             : #endif
    4034             : #if     IK1_ENABLED
    4035           1 :         call test%run(test_setSortedArrShell_D1_IK1, SK_"test_setSortedArrShell_D1_IK1")
    4036             : #endif
    4037             : 
    4038             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4039             : 
    4040             : #if     LK5_ENABLED
    4041           1 :         call test%run(test_setSortedArrShell_D1_LK5, SK_"test_setSortedArrShell_D1_LK5")
    4042             : #endif
    4043             : #if     LK4_ENABLED
    4044           1 :         call test%run(test_setSortedArrShell_D1_LK4, SK_"test_setSortedArrShell_D1_LK4")
    4045             : #endif
    4046             : #if     LK3_ENABLED
    4047           1 :         call test%run(test_setSortedArrShell_D1_LK3, SK_"test_setSortedArrShell_D1_LK3")
    4048             : #endif
    4049             : #if     LK2_ENABLED
    4050           1 :         call test%run(test_setSortedArrShell_D1_LK2, SK_"test_setSortedArrShell_D1_LK2")
    4051             : #endif
    4052             : #if     LK1_ENABLED
    4053           1 :         call test%run(test_setSortedArrShell_D1_LK1, SK_"test_setSortedArrShell_D1_LK1")
    4054             : #endif
    4055             : 
    4056             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4057             : 
    4058             : #if     CK5_ENABLED
    4059             :         call test%run(test_setSortedArrShell_D1_CK5, SK_"test_setSortedArrShell_D1_CK5")
    4060             : #endif
    4061             : #if     CK4_ENABLED
    4062           1 :         call test%run(test_setSortedArrShell_D1_CK4, SK_"test_setSortedArrShell_D1_CK4")
    4063             : #endif
    4064             : #if     CK3_ENABLED
    4065           1 :         call test%run(test_setSortedArrShell_D1_CK3, SK_"test_setSortedArrShell_D1_CK3")
    4066             : #endif
    4067             : #if     CK2_ENABLED
    4068           1 :         call test%run(test_setSortedArrShell_D1_CK2, SK_"test_setSortedArrShell_D1_CK2")
    4069             : #endif
    4070             : #if     CK1_ENABLED
    4071           1 :         call test%run(test_setSortedArrShell_D1_CK1, SK_"test_setSortedArrShell_D1_CK1")
    4072             : #endif
    4073             : 
    4074             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4075             : 
    4076             : #if     RK5_ENABLED
    4077             :         call test%run(test_setSortedArrShell_D1_RK5, SK_"test_setSortedArrShell_D1_RK5")
    4078             : #endif
    4079             : #if     RK4_ENABLED
    4080           1 :         call test%run(test_setSortedArrShell_D1_RK4, SK_"test_setSortedArrShell_D1_RK4")
    4081             : #endif
    4082             : #if     RK3_ENABLED
    4083           1 :         call test%run(test_setSortedArrShell_D1_RK3, SK_"test_setSortedArrShell_D1_RK3")
    4084             : #endif
    4085             : #if     RK2_ENABLED
    4086           1 :         call test%run(test_setSortedArrShell_D1_RK2, SK_"test_setSortedArrShell_D1_RK2")
    4087             : #endif
    4088             : #if     RK1_ENABLED
    4089           1 :         call test%run(test_setSortedArrShell_D1_RK1, SK_"test_setSortedArrShell_D1_RK1")
    4090             : #endif
    4091             : 
    4092             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4093             : #if 0
    4094             : #if     SK5_ENABLED
    4095             :         call test%run(test_setSortedArrShell_D1_PSSK5, SK_"test_setSortedArrShell_D1_PSSK5")
    4096             : #endif
    4097             : #if     SK4_ENABLED
    4098             :         call test%run(test_setSortedArrShell_D1_PSSK4, SK_"test_setSortedArrShell_D1_PSSK4")
    4099             : #endif
    4100             : #if     SK3_ENABLED
    4101             :         call test%run(test_setSortedArrShell_D1_PSSK3, SK_"test_setSortedArrShell_D1_PSSK3")
    4102             : #endif
    4103             : #if     SK2_ENABLED
    4104             :         call test%run(test_setSortedArrShell_D1_PSSK2, SK_"test_setSortedArrShell_D1_PSSK2")
    4105             : #endif
    4106             : #if     SK1_ENABLED
    4107             :         call test%run(test_setSortedArrShell_D1_PSSK1, SK_"test_setSortedArrShell_D1_PSSK1")
    4108             : #endif
    4109             : #endif
    4110             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4111             : 
    4112             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4113             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4114             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4115             : 
    4116             :         !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4117             : 
    4118             :         !error stop
    4119           1 :         call test%summarize()
    4120             : 
    4121           1 :     end subroutine setTest
    4122             : 
    4123             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4124             : 
    4125             : #if 0
    4126             :     !>  \brief
    4127             :     !> Test the performance of different sorting algorithms in [pm_arraySort](@ref pm_arraySort).
    4128             :     ! LCOV_EXCL_START
    4129             :     function test_performance_1() result(assertion)
    4130             : 
    4131             :         implicit none
    4132             :         logical(LK) :: assertion
    4133             :         character(:, SK), allocatable :: methodName
    4134             : 
    4135             :         assertion = .true._LK
    4136             :         test%File = test%openFile()
    4137             : 
    4138             :         !write(test%File%unit,"(*(g0,:,' '))") "Smooth sort" ! Smooth search is too slow to request arrays sizes > 10000.
    4139             :         !call bench(sortSmooth,10000_IK)
    4140             :         !write(test%File%unit,"(*(g0,:,' '))")
    4141             : 
    4142             :         methodName = "Bubble sort"
    4143             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4144             :         call bench(setSortedBubble_RK2,10000_IK)
    4145             :         write(test%File%unit,"(*(g0,:,' '))")
    4146             : 
    4147             :         methodName = "Selection sort"
    4148             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4149             :         call bench(setSortedSelection_RK2,10000_IK)
    4150             :         write(test%File%unit,"(*(g0,:,' '))")
    4151             : 
    4152             :         methodName = "insertion sort"
    4153             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4154             :         call bench(setSortedInsertion_RK2,10000_IK)
    4155             :         write(test%File%unit,"(*(g0,:,' '))")
    4156             : 
    4157             :         methodName = "Binary insertion sort"
    4158             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4159             :         call bench(setSortedInsertionb_RK2,10000_IK)
    4160             :         write(test%File%unit,"(*(g0,:,' '))")
    4161             : 
    4162             :         !methodName = "Pair insertion sort"
    4163             :         !write(test%File%unit,"(*(g0,:,' '))") methodName
    4164             :         !call bench(setSortedInsertionPair,10000_IK)
    4165             :         !write(test%File%unit,"(*(g0,:,' '))")
    4166             : 
    4167             :         methodName = "Double insertion sort"
    4168             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4169             :         call bench(setSortedInsertionDouble_RK2,10000_IK)
    4170             :         write(test%File%unit,"(*(g0,:,' '))")
    4171             : 
    4172             :         methodName = "Shell sort"
    4173             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4174             :         call bench(setSortedShell_RK2,100000_IK)
    4175             :         write(test%File%unit,"(*(g0,:,' '))")
    4176             : 
    4177             :         methodName = "Merge sort"
    4178             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4179             :         call bench(setSortedMergeRecDefCom_RK2,100000_IK)
    4180             :         write(test%File%unit,"(*(g0,:,' '))")
    4181             : 
    4182             :         methodName = "Heap sort"
    4183             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4184             :         call bench(setSortedHeap_RK2,100000_IK)
    4185             :         write(test%File%unit,"(*(g0,:,' '))")
    4186             : 
    4187             :         methodName = "Heap sort recursive"
    4188             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4189             :         call bench(setSortedHeapRec_RK2,100000_IK)
    4190             :         write(test%File%unit,"(*(g0,:,' '))")
    4191             : 
    4192             :         methodName = "Quicksort"
    4193             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4194             :         call bench(setSortedRec_RK2,100000_IK)
    4195             :         write(test%File%unit,"(*(g0,:,' '))")
    4196             : 
    4197             :         methodName = "Dual pivot quicksort"
    4198             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4199             :         call bench(setSortedDualPivot_RK2,100000_IK)
    4200             :         write(test%File%unit,"(*(g0,:,' '))")
    4201             : 
    4202             :         methodName = "Quicksort (no recursion)"
    4203             :         write(test%File%unit,"(*(g0,:,' '))") methodName
    4204             :         call bench(sortWrapper,100000_IK)
    4205             :         write(test%File%unit,"(*(g0,:,' '))")
    4206             : 
    4207             :         close(test%File%unit)
    4208             : 
    4209             :     contains
    4210             : 
    4211             :         subroutine sortWrapper(Array)
    4212             :             real(RK), intent(inout), contiguous :: Array(:)
    4213             :             call setSorted(Array)
    4214             :         end subroutine
    4215             : 
    4216             :         subroutine bench(sort,arraySize)
    4217             :             abstract interface
    4218             :                 subroutine setSorted_proc_RK2(Array)
    4219             :                     use pm_kind, only: RK2
    4220             :                     real(RK2)  , intent(inout), contiguous :: Array(:)
    4221             :                 end subroutine setSorted_proc_RK2
    4222             :             end interface
    4223             :             procedure(setSorted_proc_RK2)   :: sort
    4224             :             real(RK)    , allocatable   :: Array(:)
    4225             :             integer(IK) , intent(in)    :: arraySize
    4226             :             integer(IK)                 :: i,j,off,t1,t2,rate
    4227             :             real(RK)                    :: check
    4228             :             allocate(Array(arraySize))
    4229             :             i = 10_IK
    4230             :             ! find rate
    4231             :             call system_clock(t1,rate)
    4232             :             write(test%File%unit,"(*(g0,:,' '))") "      Size      time/element"
    4233             :             do while(i <= arraySize)
    4234             :                 call random_number(Array)
    4235             :                 check = sum(Array(1:i))
    4236             :                 off = 1
    4237             :                 call system_clock(t1)
    4238             :                 do while(off+i-1 <= arraySize)
    4239             :                     call setSorted(Array(off:off+i-1))
    4240             :                     off = off + i
    4241             :                 end do
    4242             :                 call system_clock(t2)
    4243             :                 ! Check result is ordered
    4244             :                 do j = 2, i
    4245             :                     if (Array(j) < Array(j-1)) then
    4246             :                         assertion = .false._LK
    4247             :                         write(test%File%unit,"(*(g0,:,' '))") "Sort error at ",j," value ",Array(j)
    4248             :                         if (i <= 100_IK) then
    4249             :                             write(test%File%unit,"(*(g0,:,' '))") Array(1:i)
    4250             :                         else
    4251             :                             !write(test%File%unit,"(*(g0,:,' '))") Array(j-3:j+3)
    4252             :                             write(test%File%unit,"(*(g0,:,' '))") Array(j-1), Array(j)
    4253             :                         end if
    4254             :                         write(*,*) methodName
    4255             :                         !return
    4256             :                     end if
    4257             :                 end do
    4258             :                 ! Check sum of result is approximately the same as it was
    4259             :                 check = check - sum(Array(1:i))
    4260             :                 if (check > 1e-15_RK * i*sqrt(real(i,RK))) then
    4261             :                     write(test%File%unit,"(*(g0,:,' '))") "Large difference in sums before and after",check
    4262             :                 end if
    4263             : 
    4264             :                 write(test%File%unit,"(*(g0,:,' '))")i,real(t2-t1,RK)/(real(rate,RK)*i*(arraySize/i))
    4265             :                 i = 10 * i
    4266             :             end do
    4267             :             deallocate(Array)
    4268             :         end subroutine bench
    4269             : 
    4270             :     end function test_performance_1
    4271             :     ! LCOV_EXCL_STOP
    4272             : #endif
    4273             : 
    4274             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4275             : 
    4276             : end module test_pm_arraySort

ParaMonte: Parallel Monte Carlo and Machine Learning Library 
The Computational Data Science Lab
© Copyright 2012 - 2024