The NonStop-UX libraries have a novel way to say NaN.

p4raw-id: //depot/perl@7507

diff --git a/t/lib/bigfltpm.t b/t/lib/bigfltpm.t
index 2081694..12c46e6 100755 (executable)
--- a/t/lib/bigfltpm.t
+++ b/t/lib/bigfltpm.t
@@ -449,10 +449,10 @@ $Math::BigFloat::div_scale = 20
 $Math::BigFloat::div_scale = 40
 &fsqrt
 +0:0
--1:/^(?i:0|\?|NaNQ?)$
--2:/^(?i:0|\?|NaNQ?)$
--16:/^(?i:0|\?|NaNQ?)$
--123.456:/^(?i:0|\?|NaNQ?)$
+-1:/^(?i:0|\?|NaNQ?|-n\.nan)$
+-2:/^(?i:0|\?|NaNQ?|-n\.nan)$
+-16:/^(?i:0|\?|NaNQ?|-n\.nan)$
+-123.456:/^(?i:0|\?|NaNQ?|-n\.nan)$
 +1:1.
 +1.44:1.2
 +2:1.41421356237309504880168872420969807857