Mercurial > projects > dstress
annotate run/c/creal_32_B.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_32_B; | |
10 | |
1600
6d193e241564
Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents:
1489
diff
changeset
|
11 |
6d193e241564
Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents:
1489
diff
changeset
|
12 version(Tango) { |
6d193e241564
Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents:
1489
diff
changeset
|
13 import tango.math.IEEE; |
6d193e241564
Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents:
1489
diff
changeset
|
14 } else { |
885 | 15 import std.math; |
1600
6d193e241564
Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents:
1489
diff
changeset
|
16 } |
885 | 17 |
18 int main(){ | |
920 | 19 creal a = 0.0L + 0.0Li; |
885 | 20 |
21 if(signbit(a.re)){ | |
22 assert(0); | |
23 } | |
24 | |
25 if(signbit(a.im)){ | |
26 assert(0); | |
27 } | |
28 | |
29 return 0; | |
30 } |