From ebf914e8b82f4e38e7cd3f915638a5882ce0b4b6 Mon Sep 17 00:00:00 2001
From: Marcus Comstedt <marcus@mc.pp.se>
Date: Fri, 29 May 1998 18:31:09 +0200
Subject: [PATCH] Fixed coredumps on Alpha.
Rev: src/modules/sprintf/testsuite.in:1.12
---
src/modules/sprintf/testsuite.in | 15 ++++++++++++---
1 file changed, 12 insertions(+), 3 deletions(-)
diff --git a/src/modules/sprintf/testsuite.in b/src/modules/sprintf/testsuite.in
index cc95418f79..c507bc85e5 100644
--- a/src/modules/sprintf/testsuite.in
+++ b/src/modules/sprintf/testsuite.in
@@ -70,9 +70,14 @@ test_eq([[sprintf("%4F", 2.0)]], "\100\000\000\000")
test_eq([[sprintf("%4F", 1.5)]], "\077\300\000\000")
test_eq([[sprintf("%4F", 1048576.125)]], "\111\200\000\001")
test_eq([[sprintf("%4F", -17.5)]], "\301\214\000\000")
-test_eq([[sprintf("%4F", pow(2.0,-128.0))]], "\000\040\000\000")
+cond([[pow(2.0,-128.0)!=0.0]],
+[[
+ test_eq([[sprintf("%4F", pow(2.0,-128.0))]], "\000\040\000\000")
+]])
test_eq([[sprintf("%4F", 0.033)]], "\075\007\053\002")
+test_do(signal(signum("SIGFPE"),0))
test_eq([[sprintf("%4F", pow(2.0,128.0))]], "\177\200\000\000")
+test_do(signal(signum("SIGFPE")))
test_eq([[sprintf("%8F", 0.0)]], "\000\000\000\000\000\000\000\000")
test_eq([[sprintf("%8F", 1.0)]], "\077\360\000\000\000\000\000\000")
test_eq([[sprintf("%8F", 0.5)]], "\077\340\000\000\000\000\000\000")
@@ -80,10 +85,14 @@ test_eq([[sprintf("%8F", 2.0)]], "\100\000\000\000\000\000\000\000")
test_eq([[sprintf("%8F", 1.5)]], "\077\370\000\000\000\000\000\000")
test_eq([[sprintf("%8F", 1048576.125)]], "\101\060\000\000\040\000\000\000")
test_eq([[sprintf("%8F", -17.5)]], "\300\061\200\000\000\000\000\000")
-test_eq([[sprintf("%8F", pow(2.0,-128.0))]], "\067\360\000\000\000\000\000\000")
+cond([[pow(2.0,-128.0)!=0.0]],
+[[
+ test_eq([[sprintf("%8F", pow(2.0,-128.0))]], "\067\360\000\000\000\000\000\000")
+]])
test_eq([[sprintf("%8F", 0.032999999821186065673828125)]], "\077\240\345\140\100\000\000\000")
+test_do(signal(signum("SIGFPE"),0))
test_eq([[sprintf("%8F", pow(2.0,1024.0))]], "\177\360\000\000\000\000\000\000")
-
+test_do(signal(signum("SIGFPE")))
dnl . : and ; hasn't been tested
dnl ^, @ and _ hasn't been tested yet
--
GitLab