view gcc/testsuite/gcc.dg/torture/pr47473.c @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line source

/* PR c/47473 */
/* { dg-do run } */
/* { dg-options "-std=c99" } */

int
main (void)
{
  long double _Complex w = 0.2L - 0.3iL;
  w = w * (0.3L - (0.0F + 1.0iF) * 0.9L);
  if (__builtin_fabsl (__real__ w + 0.21L) > 0.001L
      || __builtin_fabsl (__imag__ w + 0.27L) > 0.001L)
    __builtin_abort ();
  return 0;
}