# New Ticket Created by  Jens Rieks 
# Please include the string:  [perl #34917]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=34917 >


It looks like "atan -0.0, -0.0 == 0.0" on OpenBSD 3.5/i386:

t/op/trans.....................NOK 13#     Failed test (t/op/trans.t at line 
307)
#          got: 'ok 1
# ok 2
# ok 3
# ok 4
# ok 5
# ok 6
# ok 7
# ok 8
# ok 9
# ok 10
# ok 11
# ok 12
# ok 13
# ok 14
# ok 15
# ok 16
# not 0.000000ok 17
# '
#     expected: 'ok 1
# ok 2
# ok 3
# ok 4
# ok 5
# ok 6
# ok 7
# ok 8
# ok 9
# ok 10
# ok 11
# ok 12
# ok 13
# ok 14
# ok 15
# ok 16
# ok 17
# '
t/op/trans.....................ok 19/19# Looks like you failed 1 tests of 19.

from t/op/trans_13.pasm:
        atan N4, -0.0, -0.0
        .fp_eq   (N4, -3.1415926, EQ17)
        print "not "
        print N4
EQ17:   print "ok 17\n"

Reply via email to