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 --- .../testsuite/gcc.c-torture/execute/complex-1.c | 40 ++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100755 gcc_arm/testsuite/gcc.c-torture/execute/complex-1.c (limited to 'gcc_arm/testsuite/gcc.c-torture/execute/complex-1.c') diff --git a/gcc_arm/testsuite/gcc.c-torture/execute/complex-1.c b/gcc_arm/testsuite/gcc.c-torture/execute/complex-1.c new file mode 100755 index 0000000..424fa65 --- /dev/null +++ b/gcc_arm/testsuite/gcc.c-torture/execute/complex-1.c @@ -0,0 +1,40 @@ +double +g0 (double x) +{ + return 1.0; +} + +double +g1 (double x) +{ + return -1.0; +} + +double +g2 (double x) +{ + return 0.0; +} + +__complex__ double +cexp (__complex__ double x) +{ + double r; + + r = g0 (__real__ x); + __real__ x = r * g1 (__imag__ x); + __imag__ x = r * g2 (__imag__ x); + return x; +} + +main () +{ + __complex__ double x; + + x = cexp (1.0i); + if (__real__ x != -1.0) + abort (); + if (__imag__ x != 0.0) + abort (); + exit (0); +} -- cgit v1.2.3