[Tcl-bugs] [ tcl-Bugs-2030480 ] make test fails on 8.5.3 eval isql

[SourceForge.net <no...@so...>]

Bugs item #2030480, was opened at 2008-07-28 12:41
Message generated for change (Comment added) made by dgp
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=2030480&group_id=10894

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
>Category: 56. LibTomMath
Group: current: 8.5.3
>Status: Pending
>Resolution: Duplicate
Priority: 5
Private: No
Submitted By: Phil Dietz (pedietz)
>Assigned to: Don Porter (dgp)
Summary: make test fails on 8.5.3 eval isql

Initial Comment:
running 'make test' on a linux RH7.3 box results in:


==== expr-47.12 isqrt of various sizes of integer FAILED
==== Contents of test case:

    set faults 0
    for {set i 0} {$faults < 10 && $i <= 1024} {incr i} {
        set root [expr {1 << $i}]
        set rm1 [expr {$root - 1}]
        set arg [expr {1 << (2 * $i)}]
        set tval [expr {isqrt($arg-1)}]
        if {$tval != $rm1} {
            append trouble "i = " $i ": isqrt(" $arg "-1) == " $tval  " != " $rm1 "\n"
            incr faults
        }
        set tval [expr {isqrt($arg)}]
        if {$tval != $root} {
            append trouble "i = " $i ": isqrt(" $arg ") == " $tval  " != " $root "\n"
            incr faults
        }
        set tval [expr {isqrt($arg+1)}]
        if {$tval != $root} {
            append trouble "i = " $i ": isqrt(" $arg "+1) == " $tval  " != " $root "\n"
            incr faults
        }
    }
    set trouble

---- Result was:
i = 28: isqrt(72057594037927936-1) == 279620267 != 268435455
i = 28: isqrt(72057594037927936+1) == 279620267 != 268435456
i = 29: isqrt(288230376151711744-1) == 545818760 != 536870911
i = 29: isqrt(288230376151711744+1) == 545818760 != 536870912
i = 30: isqrt(1152921504606846976-1) == 1079707056 != 1073741823
i = 30: isqrt(1152921504606846976+1) == 1079707056 != 1073741824
i = 31: isqrt(4611686018427387904-1) == 2150992608 != 2147483647
i = 31: isqrt(4611686018427387904+1) == 2150992608 != 2147483648
i = 32: isqrt(18446744073709551616-1) == 4296881274 != 4294967295
i = 41: isqrt(4835703278458516698824704-1) == 2199023259647 != 2199023255551

---- Result should have been (exact matching):

==== expr-47.12 FAILED


I dont see any bug reports on this on comp.lang.tcl or on sourceforge...

Linux version 2.4.20-20.7smp (bhc...@po...) (gcc version 2.96 20000731 (Red Hat Linux 7.3 2.96-113)) #1 SMP Mon Aug 18 14:46:14 EDT 2003


----------------------------------------------------------------------

>Comment By: Don Porter (dgp)
Date: 2008-07-28 15:35

Message:
Logged In: YES 
user_id=80530
Originator: NO


Appears to be a duplicate of
Tcl Bug 1609936 (also 1735583).

You've likely built Tcl from
source with a compiler with a
broken optimizer or linked
against a buggy C library so that
the ldexp() function doesn't work.



----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=2030480&group_id=10894