gcc/testsuite/gcc.c-torture/execute/complex-2.c

   1 void abort (void);
   2 void exit (int);
   3
   4 __complex__ double
   5 f (__complex__ double x, __complex__ double y)
   6 {
   7   x += y;
   8   return x;
   9 }
  10
  11 __complex__ double ag = 1.0 + 1.0i;
  12 __complex__ double bg = -2.0 + 2.0i;
  13
  14 int
  15 main (void)
  16 {
  17   __complex__ double a, b, c;
  18
  19   a = ag;
  20   b = -2.0 + 2.0i;
  21   c = f (a, b);
  22
  23   if (a != 1.0 + 1.0i)
  24     abort ();
  25   if (b != -2.0 + 2.0i)
  26     abort ();
  27   if (c != -1.0 + 3.0i)
  28     abort ();
  29
  30   exit (0);
  31 }