From c82e186794253f9b9d2c53d85c6d3fe15eb67022 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 20 Aug 2010 18:36:26 -0700
Subject: [PATCH] compiler.tests: forgot to check in x87-regression test way
 back

---
 basis/compiler/tests/x87-regression.factor | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 basis/compiler/tests/x87-regression.factor

diff --git a/basis/compiler/tests/x87-regression.factor b/basis/compiler/tests/x87-regression.factor
new file mode 100644
index 0000000000..9692f787f2
--- /dev/null
+++ b/basis/compiler/tests/x87-regression.factor
@@ -0,0 +1,10 @@
+IN: compiler.tests.x87-regression
+USING: math.floats.env alien.syntax alien.c-types compiler.test
+tools.test kernel math ;
+
+LIBRARY: libm
+FUNCTION: double sqrt ( double x ) ;
+
+[ { } ] [
+    4.0 [ [ 100 [ dup sqrt drop ] times ] collect-fp-exceptions nip ] compile-call
+] unit-test