Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.c-torture/execute/complex-2.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
__complex__ double f (__complex__ double x, __complex__ double y) { x += y; return x; } __complex__ double ag = 1.0 + 1.0i; __complex__ double bg = -2.0 + 2.0i; main () { __complex__ double a, b, c; a = ag; b = -2.0 + 2.0i; c = f (a, b); if (a != 1.0 + 1.0i) abort (); if (b != -2.0 + 2.0i) abort (); if (c != -1.0 + 3.0i) abort (); exit (0); }