parquet_debug_set_weighted_int32_limit Subroutine

public subroutine parquet_debug_set_weighted_int32_limit(n)

Lowers the population ceiling the three int32-index refusals test against. Test-only.

Public for the reason parquet_debug_set_perm_rounds gives, and it exists because the real ceiling is huge(int32) items -- see wd_dbg_int32_limit, which records why no fixture can reach it. n < 1 restores the real one.

Arguments

Type IntentOptional Attributes Name
integer(kind=int64), intent(in) :: n

forced ceiling in items; < 1 restores the real one

Source Code

    subroutine parquet_debug_set_weighted_int32_limit(n)
        integer(int64), intent(in) :: n             !! forced ceiling in items; `< 1` restores the real one
        if (n < 1_int64) then
            wd_dbg_int32_limit = -1_int64
        else
            wd_dbg_int32_limit = n
        end if
    end subroutine parquet_debug_set_weighted_int32_limit