Mercurial > projects > dstress
annotate run/creal_03.d @ 1630:d0efa3ae5522 default tip
run/mini/naked_asm5: New x86_64 ABI passes the arguments in reverse order.
author | David Nadlinger <code@klickverbot.at> |
---|---|
date | Sat, 23 Apr 2011 22:57:32 +0200 |
parents | 5511f9277078 |
children |
rev | line source |
---|---|
374 | 1 // $HeadURL$ |
2 // $Date$ | |
3 // $Author$ | |
4 | |
94 | 5 module dstress.run.creal_03; |
6 | |
7 int main(){ | |
920 | 8 real x1 = 2.0L; |
9 real y1 = 3.0L; | |
10 real x2 = 5.0L; | |
11 real y2 = 7.0L; | |
12 ireal i = 1.0Li; | |
94 | 13 |
14 creal a = x1 + y1*i; | |
15 creal b = x2 + y2*i; | |
16 creal c = a * b; | |
17 | |
18 creal d = (x1*x2-y1*y2) + i*(x1*y2+x2*y1); | |
19 assert(c == d); | |
20 | |
21 return 0; | |
22 } |