parquet_debug_random_uses_int128 Function

public pure function parquet_debug_random_uses_int128() result(r)

Reports which side of the route (e) fork was compiled. Test-only.

Public only because it has to be: this module reaches no bind(C) surface, so the C++-side debug-hook convention the rest of the library uses is unavailable to it, and the fork is a compile-time source selection no runtime query could otherwise observe. It is excluded from README's API overview, no library code calls it, and it has no setter -- the fork is not a knob. Its whole job is to let one assertion close the allowlist's silent direction: this must agree with selected_int_kind(38) > 0, or a capable compiler is quietly shipping the wrapping kernel.

Arguments

None

Return Value logical

.true. if the 128-bit multiply was compiled


Source Code

    pure function parquet_debug_random_uses_int128() result(r)
        logical :: r                                !! `.true.` if the 128-bit multiply was compiled
#ifdef PF_INT128
        r = .true.
#else
        r = .false.
#endif
    end function parquet_debug_random_uses_int128