modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/execute/complex-2.c (about)

     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  }