From 68f826d67a21e11fe79b923d632632299ff050f2 Mon Sep 17 00:00:00 2001 From: panne Date: Mon, 12 Jun 2000 19:57:40 +0000 Subject: [PATCH] [project @ 2000-06-12 19:57:40 by panne] Print only the first 6 characters of the result's decimal representation, this "solves" the problem that without optimization 0.46920002 was printed and 0.4692 with -O. Perhaps this could be turned into a test for constant folding, but this was probably not the test writer's intention. --- ghc/tests/codeGen/should_run/cg018.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ghc/tests/codeGen/should_run/cg018.hs b/ghc/tests/codeGen/should_run/cg018.hs index b230b00..02220c8 100644 --- a/ghc/tests/codeGen/should_run/cg018.hs +++ b/ghc/tests/codeGen/should_run/cg018.hs @@ -3,7 +3,9 @@ import PrelGHC( Float# ) import PrelFloat -main = putStr (shows (selectee1 + selectee2) "\n") +-- This test is a little bit numerically unstable, so compare only a small prefix. +-- Otherwise you get slightly different results with and without optimization. +main = putStrLn (take 6 (shows (selectee1 + selectee2) "")) data Tfo = Tfo Float# Float# Float# Float# Float# Float# Float# Float# Float# Float# Float# Float# -- 1.7.10.4