Mercurial > projects > dstress
annotate run/c/creal_32_D.d @ 1600:6d193e241564
Allow for tango math in creal tests.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Sun, 04 Jan 2009 22:25:02 +0100 |
parents | b8c0195059d9 |
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_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 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 } |