Ignore:
Timestamp:
Dec 30, 2016, 7:29:05 PM (5 years ago)
Author:
rme
Message:

Test for ticket:1398

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r16794 r16807  
    19661966    (minusp (coerce (- (/ (1+ (expt 2 278)) (expt 2 265))) 'short-float))
    19671967  t)
     1968
     1969(deftest ccl.bug#1398
     1970    (let ((a (make-array 2 :element-type '(complex double-float))))
     1971      (setf (aref a 0) #c(1d0 0d0)
     1972            (aref a 1) #c(1d0 0d0))
     1973      (= (aref a 0) (aref a 1)))
     1974  t)
Note: See TracChangeset for help on using the changeset viewer.