(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
torture/
pr47473.c
       1  /* PR c/47473 */
       2  /* { dg-do run } */
       3  /* { dg-options "-std=c99" } */
       4  
       5  int
       6  main (void)
       7  {
       8    long double _Complex w = 0.2L - 0.3iL;
       9    w = w * (0.3L - (0.0F + 1.0iF) * 0.9L);
      10    if (__builtin_fabsl (__real__ w + 0.21L) > 0.001L
      11        || __builtin_fabsl (__imag__ w + 0.27L) > 0.001L)
      12      __builtin_abort ();
      13    return 0;
      14  }