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 }