Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.c-torture/execute/complex-1.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
double g0 (double x) { return 1.0; } double g1 (double x) { return -1.0; } double g2 (double x) { return 0.0; } __complex__ double xcexp (__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 = xcexp (1.0i); if (__real__ x != -1.0) abort (); if (__imag__ x != 0.0) abort (); exit (0); }