Mercurial > projects > dstress
changeset 885:db221d4acc19
Don Clugston <dac@nospam.com.au>
2006-03-02
news:<du6chp$hub$1@digitaldaemon.com
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_07_A.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_07_A; + +union S{ + double f; + uint[2] i; +} + +int main(){ + cdouble a = - 0.0 + 0.0i; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_07_B.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_07_B; + +union S{ + double f; + uint[2] i; +} + +int main(){ + cdouble a = 0.0 + 0.0i; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_07_C.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_07_C; + +union S{ + double f; + uint[2] i; +} + +int main(){ + cdouble a = 0.0 - 0.0i; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_07_D.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_07_D; + +union S{ + double f; + uint[2] i; +} + +int main(){ + cdouble a = - 0.0 - 0.0i; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_08_A.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_08_A; + +union S{ + double f; + uint[2] i; +} + +int main(){ + const cdouble a = - 0.0 + 0.0i; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_08_B.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_08_B; + +union S{ + double f; + uint[2] i; +} + +int main(){ + const cdouble a = 0.0 + 0.0i; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_08_C.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_08_C; + +union S{ + double f; + uint[2] i; +} + +int main(){ + const cdouble a = 0.0 - 0.0i; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_08_D.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_08_D; + +union S{ + double f; + uint[2] i; +} + +int main(){ + const cdouble a = - 0.0 - 0.0i; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_09_A.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,36 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_09_A; + +union S{ + double f; + uint[2] i; +} + +int main(){ + double re = -0.0; + idouble im = 0.0i; + cdouble a = re + im; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_09_B.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,36 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_09_B; + +union S{ + double f; + uint[2] i; +} + +int main(){ + double re = 0.0; + idouble im = 0.0i; + cdouble a = re + im; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_09_C.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,36 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_09_C; + +union S{ + double f; + uint[2] i; +} + +int main(){ + double re = 0.0; + idouble im = -0.0i; + cdouble a = re + im; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cdouble_09_D.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,36 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cdouble_09_D; + +union S{ + double f; + uint[2] i; +} + +int main(){ + double re = -0.0; + idouble im = -0.0i; + cdouble a = re + im; + + S s; + s.f = 1; + int top = (s.i[0]==0) ? 1 : 0; + + s.f = a.re; + if(s.i[top] != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i[top] != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_07_A.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,32 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_07_A; + +union S{ + float f; + uint i; +} + +int main(){ + cfloat a = -0.0 + 0.0i; + + S s; + + s.f = a.re; + if(s.i != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_07_B.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,32 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_07_B; + +union S{ + float f; + uint i; +} + +int main(){ + cfloat a = 0.0 + 0.0i; + + S s; + + s.f = a.re; + if(s.i != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_07_C.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,32 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_07_C; + +union S{ + float f; + uint i; +} + +int main(){ + cfloat a = 0.0 - 0.0i; + + S s; + + s.f = a.re; + if(s.i != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_07_D.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,32 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_07_D; + +union S{ + float f; + uint i; +} + +int main(){ + cfloat a = - 0.0 - 0.0i; + + S s; + + s.f = a.re; + if(s.i != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_08_A.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,32 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_08_A; + +union S{ + float f; + uint i; +} + +int main(){ + const cfloat a = -0.0 + 0.0i; + + S s; + + s.f = a.re; + if(s.i != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_08_B.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,32 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_08_B; + +union S{ + float f; + uint i; +} + +int main(){ + const cfloat a = 0.0 + 0.0i; + + S s; + + s.f = a.re; + if(s.i != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_08_C.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,32 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_08_C; + +union S{ + float f; + uint i; +} + +int main(){ + const cfloat a = 0.0 - 0.0i; + + S s; + + s.f = a.re; + if(s.i != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_08_D.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,32 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_08_D; + +union S{ + float f; + uint i; +} + +int main(){ + const cfloat a = - 0.0 - 0.0i; + + S s; + + s.f = a.re; + if(s.i != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_09_A.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_09_A; + +union S{ + float f; + uint i; +} + +int main(){ + float re = -0.0; + ifloat im = 0.0i; + cfloat a = re + im; + + S s; + + s.f = a.re; + if(s.i != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_09_B.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_09_B; + +union S{ + float f; + uint i; +} + +int main(){ + float re = 0.0; + ifloat im = 0.0i; + cfloat a = re + im; + + S s; + + s.f = a.re; + if(s.i != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x00000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_09_C.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_09_C; + +union S{ + float f; + uint i; +} + +int main(){ + float re = 0.0; + ifloat im = -0.0i; + cfloat a = re + im; + + S s; + + s.f = a.re; + if(s.i != 0x00000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/cfloat_09_D.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,34 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com + +module dstress.run.c.cfloat_09_D; + +union S{ + float f; + uint i; +} + +int main(){ + float re = -0.0; + ifloat im = -0.0i; + cfloat a = re + im; + + S s; + + s.f = a.re; + if(s.i != 0x80000000){ + assert(0); + } + + s.f = a.im; + if(s.i != 0x80000000){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_32_A.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,26 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_32_A; + +import std.math; + +int main(){ + creal a = -0.0 + 0.0i; + + if(!signbit(a.re)){ + assert(0); + } + + if(signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_32_B.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,26 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_32_B; + +import std.math; + +int main(){ + creal a = 0.0 + 0.0i; + + if(signbit(a.re)){ + assert(0); + } + + if(signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_32_C.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,26 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_32_C; + +import std.math; + +int main(){ + creal a = 0.0 - 0.0i; + + if(signbit(a.re)){ + assert(0); + } + + if(!signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_32_D.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,26 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_32_D; + +import std.math; + +int main(){ + creal a = -0.0 - 0.0i; + + if(!signbit(a.re)){ + assert(0); + } + + if(!signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_33_A.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,26 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_33_A; + +import std.math; + +int main(){ + const creal a = -0.0 + 0.0i; + + if(!signbit(a.re)){ + assert(0); + } + + if(signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_33_B.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,26 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_33_B; + +import std.math; + +int main(){ + const creal a = 0.0 + 0.0i; + + if(signbit(a.re)){ + assert(0); + } + + if(signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_33_C.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,26 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_33_C; + +import std.math; + +int main(){ + const creal a = 0.0 - 0.0i; + + if(signbit(a.re)){ + assert(0); + } + + if(!signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_33_D.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,26 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_33_D; + +import std.math; + +int main(){ + const creal a = -0.0 - 0.0i; + + if(!signbit(a.re)){ + assert(0); + } + + if(!signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_34_A.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,28 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_34_A; + +import std.math; + +int main(){ + real re = -0.0; + ireal im = 0.0i; + creal a = re + im; + + if(!signbit(a.re)){ + assert(0); + } + + if(signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_34_B.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,28 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_34_B; + +import std.math; + +int main(){ + real re = 0.0; + ireal im = 0.0i; + creal a = re + im; + + if(signbit(a.re)){ + assert(0); + } + + if(signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_34_C.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,28 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_34_C; + +import std.math; + +int main(){ + real re = 0.0; + ireal im = -0.0i; + creal a = re + im; + + if(signbit(a.re)){ + assert(0); + } + + if(!signbit(a.im)){ + assert(0); + } + + return 0; +}
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/run/c/creal_34_D.d Fri Mar 03 17:28:18 2006 +0000 @@ -0,0 +1,28 @@ +// $HeadURL$ +// $Date$ +// $Author$ + +// @author@ Don Clugston <dac@nospam.com.au> +// @date@ 2006-03-02 +// @uri@ news:<du6chp$hub$1@digitaldaemon.com +// @WARNING@ direct use of phobos + +module dstress.run.c.creal_34_D; + +import std.math; + +int main(){ + real re = -0.0; + ireal im = -0.0i; + creal a = re + im; + + if(!signbit(a.re)){ + assert(0); + } + + if(!signbit(a.im)){ + assert(0); + } + + return 0; +}