|
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
|