Mercurial > projects > dstress

annotate run/c/creal_33_D.d @ 1600:6d193e241564

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
885
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
1 // $HeadURL$
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
2 // $Date$
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
3 // $Author$
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
4
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
5 // @author@ Don Clugston <dac@nospam.com.au>
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
6 // @date@ 2006-03-02
1489
b8c0195059d9 changed nntp: URLs to http: URLs
thomask
parents: 1322
diff changeset
7 // @uri@ http://www.digitalmars.com/pnews/read.php?server=news.digitalmars.com&group=digitalmars.D.bugs&artnum=6425
885
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
8
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
9 module dstress.run.c.creal_33_D;
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
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
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
14 import std.math;
1600
6d193e241564 Allow for tango math in creal tests.
Christian Kamm <kamm incasoftware de>
parents: 1489
diff changeset
15 }
885
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
16
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
17 int main(){
920
5511f9277078 testcase review
thomask
parents: 885
diff changeset
18 const creal a = -0.0L - 0.0Li;
885
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
19
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
20 if(!signbit(a.re)){
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
21 assert(0);
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
22 }
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
23
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
24 if(!signbit(a.im)){
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
25 assert(0);
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
26 }
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
27
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
28 return 0;
db221d4acc19 Don Clugston <dac@nospam.com.au>
thomask
parents:
diff changeset
29 }