In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b634eb441c2bbbdbcd8dbcbbc4097658c7439a1f?hp=26fb2318c4fffb51517349273992c3b9514d0d67>
- Log ----------------------------------------------------------------- commit b634eb441c2bbbdbcd8dbcbbc4097658c7439a1f Author: Jarkko Hietaniemi <[email protected]> Date: Mon Oct 31 20:45:03 2016 -0400 Skip the subnormals tests in tru64. At first I thought these would be ftz/daz problems (flush-to-zero/denormals-are-zero), compiled with bare cc those seem to happen with denormals (e.g. DBL_MIN * 0.5), but the "cc -ieee" which perl is compiled with does make the ftz/daz go away. Needs further study. So make them TODO for now. ----------------------------------------------------------------------- Summary of changes: t/op/sprintf2.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t index 56ef3e2..de6eb4b 100644 --- a/t/op/sprintf2.t +++ b/t/op/sprintf2.t @@ -795,11 +795,15 @@ my @subnormals = ( SKIP: { # [rt.perl.org #128843] - skip("non-IEEE-754-non-64-bit", scalar @subnormals + 34) + my $skip_count = scalar @subnormals + 34; + skip("non-IEEE-754-non-64-bit", $skip_count) unless ($Config{nvsize} == 8 && $Config{nv_preserves_uv_bits} == 53 && ($Config{doublekind} == 3 || $Config{doublekind} == 4)); + if ($^O eq 'dec_osf') { + skip("$^O subnormals", $skip_count); + } for my $t (@subnormals) { # Note that "0x1p+2" is not considered numeric, -- Perl5 Master Repository
