(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.c-torture/
execute/
complex-2.c
       1  __complex__ double
       2  f (__complex__ double x, __complex__ double y)
       3  {
       4    x += y;
       5    return x;
       6  }
       7  
       8  __complex__ double ag = 1.0 + 1.0i;
       9  __complex__ double bg = -2.0 + 2.0i;
      10  
      11  main ()
      12  {
      13    __complex__ double a, b, c;
      14  
      15    a = ag;
      16    b = -2.0 + 2.0i;
      17    c = f (a, b);
      18  
      19    if (a != 1.0 + 1.0i)
      20      abort ();
      21    if (b != -2.0 + 2.0i)
      22      abort ();
      23    if (c != -1.0 + 3.0i)
      24      abort ();
      25  
      26    exit (0);
      27  }