Mercurial > projects > dstress
annotate run/c/creal_34_D.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 | 6d193e241564 |
| children |
| rev | line source |
|---|---|
| 885 | 1 // $HeadURL$ |
| 2 // $Date$ | |
| 3 // $Author$ | |
| 4 | |
| 5 // @author@ Don Clugston <dac@nospam.com.au> | |
| 6 // @date@ 2006-03-02 | |
| 1489 | 7 // @uri@ http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=6425 |
| 885 | 8 |
| 9 module dstress.run.c.creal_34_D; | |
| 10 | |
|
1600
6d193e241564
Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents:
1489
diff
changeset
|
11 version(Tango) { |
|
6d193e241564
Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents:
1489
diff
changeset
|
12 import tango.math.IEEE; |
|
6d193e241564
Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents:
1489
diff
changeset
|
13 } else { |
| 885 | 14 import std.math; |
|
1600
6d193e241564
Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents:
1489
diff
changeset
|
15 } |
| 885 | 16 |
| 17 int main(){ | |
| 920 | 18 real re = -0.0L; |
| 19 ireal im = -0.0Li; | |
| 885 | 20 creal a = re + im; |
| 21 | |
| 22 if(!signbit(a.re)){ | |
| 23 assert(0); | |
| 24 } | |
| 25 | |
| 26 if(!signbit(a.im)){ | |
| 27 assert(0); | |
| 28 } | |
| 29 | |
| 30 return 0; | |
| 31 } |