Bug 947160 – dev-tcltk/tcllib-2.0 fails tests (Normal-1.0 Normal generator with mean 1 and standard deviation 1 FAILED)

• Status: CONFIRMED
• Product: Gentoo Linux

[Description Agostino Sarubbo 2024-12-29 10:24:33 UTC]

https://blogs.gentoo.org/ago/2020/07/04/gentoo-tinderbox/

Issue: dev-tcltk/tcllib-2.0 fails tests.
Discovered on: amd64 (internal ref: gcc15_tinderbox)
System: GCC-15-SYSTEM (https://wiki.gentoo.org/wiki/Project:Tinderbox/Common_Issues_Helper#GCC-15)

Info about the issue:
https://wiki.gentoo.org/wiki/Project:Tinderbox/Common_Issues_Helper#CF0015

[Comment 1 Agostino Sarubbo 2024-12-29 10:24:35 UTC]

Created attachment 915431 [details]
build.log.xz

build log and emerge --info (compressed because it exceeds attachment limit, use 'xzless' to read it)

[Comment 2 Agostino Sarubbo 2024-12-29 10:24:35 UTC]

Error(s) that match a know pattern:


==== Normal-1.0 FAILED
==== Normal-1.0 Normal generator with mean 1 and standard deviation 1 FAILED
Error:  No test files remain after applying your match and skip patterns!

[Comment 3 Sam James 2025-01-03 13:09:41 UTC]

```
==== Normal-1.0 Normal generator with mean 1 and standard deviation 1 FAILED
==== Contents of test case:

    set p [::simulation::random::prng_Normal 1 1]
    set mean       0.0
    set stdev      0.0
    for {set i 0} {$i < 1000} {incr i} {
        set rnd [$p]
        set mean  [expr {$mean  + $rnd}]
        set stdev [expr {$stdev + $rnd * $rnd}]
    }
    set mean  [expr {$mean  / 1000.0}]
    set stdev [expr {sqrt($stdev / 1000.0)}]

    #
    # We use a rough estimate for the deviation in the mean and stdev
    # Main effect of test: is the procedure syntactically correct?
    #
    set result [expr {abs($mean - 1.0) < 0.5 && abs($stdev - 1.0) < 0.5}]

---- Result was:
0
---- Result should have been (exact matching):
1
==== Normal-1.0 FAILED
```