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

     1  float __complex__
     2  p (float __complex__  a, float __complex__  b)
     3  {
     4    return a + b;
     5  }
     6  
     7  float __complex__  x = 1.0 + 14.0 * (1.0fi);
     8  float __complex__  y = 7.0 + 5.0 * (1.0fi);
     9  float __complex__  w = 8.0 + 19.0 * (1.0fi);
    10  float __complex__  z;
    11  
    12  main ()
    13  {
    14  
    15    z = p (x,y);
    16    y = p (x, 1.0f / z);
    17    if (z != w)
    18      abort ();
    19    exit (0);
    20  }