[project @ 2001-05-01 12:01:01 by simonmar]

Not quite sure what this test does, but I've had it lying around for a while.

diff --git a/ghc/tests/numeric/should_run/num011.hs b/ghc/tests/numeric/should_run/num011.hs
new file mode 100644 (file)
index 0000000..a8b1c4c
--- /dev/null
+++ b/ghc/tests/numeric/should_run/num011.hs
@@ -0,0 +1,2 @@
+import Ratio
+main = print (fromRational (1 % 85070591730234615865843651857942052864) :: Float)

diff --git a/ghc/tests/numeric/should_run/num011.stdout b/ghc/tests/numeric/should_run/num011.stdout
new file mode 100644 (file)
index 0000000..202e6ca
--- /dev/null
+++ b/ghc/tests/numeric/should_run/num011.stdout
@@ -0,0 +1 @@
+1.1754944e-38