# New Ticket Created by Ron Blaschke
# Please include the string: [perl #38887]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=38887 >
.sub main
# produce INFINITY (is there a constant for that?)
set N0, 0.0
ln N1, N0
print N1
print "\n"
# produce NAN (is there a constant for that?)
set N0, -1.0
sqrt N1, N0
print N1
print "\n"
.end
On Windows with Visual C++ 8.0 above code prints
>parrot test.pir
-1.#INF00
-1.#IND00
On UNIXish platforms it's probably "-inf" and "-nan".
That's why F<t/pmc/complex.t> currently fails on Windows: It expects
"-inf" on stringification.
t\pmc\complex....ok 13/50
t\pmc\complex....NOK 30# Failed test (t\pmc\complex.t at line 997)
# got: '
# ln(0+0i)
# got -1.#INF00+0.000000i
# not -inf+0.000000i
# done
# '
# expected: 'done
# '
t\pmc\complex....ok 50/50# Looks like you failed 1 test of 50.
t\pmc\complex....dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 30
Failed 1/50 tests, 98.00% okay (less 3 skipped tests: 46 okay, 92.00%)
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t\pmc\complex.t 1 256 50 1 2.00% 30
3 subtests skipped.
Failed 1/1 test scripts, 0.00% okay. 1/50 subtests failed, 98.00% okay.
