Mercurial > projects > dstress
annotate run/c/creal_33_A.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_33_A; | |
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 const creal a = -0.0L + 0.0Li; |
885 | 19 |
20 if(!signbit(a.re)){ | |
21 assert(0); | |
22 } | |
23 | |
24 if(signbit(a.im)){ | |
25 assert(0); | |
26 } | |
27 | |
28 return 0; | |
29 } |