Added a test for inexact imaginaries.

This commit is contained in:
Vincent St-Amour 2010-07-16 12:35:00 -04:00
parent 3dab2fbbfc
commit b8b852dbc1
3 changed files with 28 additions and 0 deletions

View File

@ -0,0 +1,3 @@
#lang typed/scheme #:optimize
(require racket/unsafe/ops)
(+ 1.0+2.0i (* +1.0i 2.0+4.0i))

View File

@ -0,0 +1,22 @@
#lang typed/scheme #:optimize
(require racket/unsafe/ops)
(let* ((unboxed-gensym-1 1.0+2.0i)
(unboxed-gensym-2 (unsafe-flreal-part unboxed-gensym-1))
(unboxed-gensym-3 (unsafe-flimag-part unboxed-gensym-1))
(unboxed-gensym-4 +1.0i)
(unboxed-gensym-5 (unsafe-flreal-part unboxed-gensym-4))
(unboxed-gensym-6 (unsafe-flimag-part unboxed-gensym-4))
(unboxed-gensym-7 2.0+4.0i)
(unboxed-gensym-8 (unsafe-flreal-part unboxed-gensym-7))
(unboxed-gensym-9 (unsafe-flimag-part unboxed-gensym-7))
(unboxed-gensym-10 (unsafe-fl- (unsafe-fl* unboxed-gensym-5
unboxed-gensym-8)
(unsafe-fl* unboxed-gensym-6
unboxed-gensym-9)))
(unboxed-gensym-11 (unsafe-fl+ (unsafe-fl* unboxed-gensym-6
unboxed-gensym-8)
(unsafe-fl* unboxed-gensym-5
unboxed-gensym-9)))
(unboxed-gensym-12 (unsafe-fl+ unboxed-gensym-2 unboxed-gensym-10))
(unboxed-gensym-13 (unsafe-fl+ unboxed-gensym-3 unboxed-gensym-11)))
(unsafe-make-flrectangular unboxed-gensym-12 unboxed-gensym-13))

View File

@ -0,0 +1,3 @@
#lang typed/scheme
(require racket/unsafe/ops)
(+ 1.0+2.0i (* +1.0i 2.0+4.0i))