From cdc6e2c50f96119bdc4c1205ff5901ca82ec8357 Mon Sep 17 00:00:00 2001 From: camthesaxman Date: Wed, 29 Jan 2020 18:17:43 -0600 Subject: add old compiler with ARM support --- gcc_arm/testsuite/gcc.c-torture/compile/981007-1.c | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100755 gcc_arm/testsuite/gcc.c-torture/compile/981007-1.c (limited to 'gcc_arm/testsuite/gcc.c-torture/compile/981007-1.c') diff --git a/gcc_arm/testsuite/gcc.c-torture/compile/981007-1.c b/gcc_arm/testsuite/gcc.c-torture/compile/981007-1.c new file mode 100755 index 0000000..d41400b --- /dev/null +++ b/gcc_arm/testsuite/gcc.c-torture/compile/981007-1.c @@ -0,0 +1,21 @@ +extern double fabs (double); +extern double sqrt (double); + +typedef struct complexm { + double re,im; +} complex; + +static complex +setCom (double r, double i) +{ + complex ct; + ct.re=fabs(r)<1E-300?0.0:r; + ct.im=fabs(i)<1E-300?0.0:i; + return ct; +} + +static complex +csqrt_crash (double x) +{ + return (x>=0) ? setCom(sqrt(x),0) : setCom(0,sqrt(-x)); +} -- cgit v1.2.3