From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
 id C2B7D385DC09; Wed,  1 Apr 2020 12:57:46 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org C2B7D385DC09
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
 s=default; t=1585745866;
 bh=FtwvlhTyEXeFUVerXX4VrojepG7mE/DA05JqPMTcARM=;
 h=From:To:Subject:Date:In-Reply-To:References:From;
 b=KwFXEYm+y7WH+U1lXnEwH8/m2dREUg0digX6XbqoMDbe1vKEIigofYbOI+V1cykqn
 pT1RuFv0uBBioBm4Xwkzvye/LiMYC6Jnl+0+B0rDs2LaMElFn16UTTLKAv0UNPob/x
 3vb6uPO6SJvQux3l0xo5GNHO/b+gdibLRLYb25u0=
From: "jakub at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: =?UTF-8?B?W0J1ZyBkZWJ1Zy85NDQzOV0gWzEwIFJlZ3Jlc3Npb25dIGdjYzog?=
 =?UTF-8?B?ZXJyb3I6IGdjYy90ZXN0c3VpdGUvZ2NjLmRnL3RvcnR1cmUvYnVpbHRpbi1j?=
 =?UTF-8?B?b21wbGV4LTEuYzog4oCYLWZjb21wYXJlLWRlYnVn4oCZIGZhaWx1cmUgc2lu?=
 =?UTF-8?B?Y2UgcjEwLTM0OTktZzBjZTc3ZjQ2M2QxZDE1MGU=?=
Date: Wed, 01 Apr 2020 12:57:46 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: debug
X-Bugzilla-Version: 10.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: jakub at gcc dot gnu.org
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: 10.0
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-94439-4-p2fNZoZidf@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-94439-4@http.gcc.gnu.org/bugzilla/>
References: <bug-94439-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
X-BeenThere: gcc-bugs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-bugs mailing list <gcc-bugs.gcc.gnu.org>
List-Unsubscribe: <http://gcc.gnu.org/mailman/options/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <http://gcc.gnu.org/pipermail/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-request@gcc.gnu.org?subject=help>
List-Subscribe: <http://gcc.gnu.org/mailman/listinfo/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Wed, 01 Apr 2020 12:57:46 -0000

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D94439

--- Comment #1 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
Slightly reduced testcase:
extern void exit (int);
extern void abort (void);

#define COMPARE_BODY(A, B, TYPE, COPYSIGN)                              \
  do {                                                                  \
    TYPE s1 =3D COPYSIGN ((TYPE) 1.0, A);                                 \
    TYPE s2 =3D COPYSIGN ((TYPE) 1.0, B);                                 \
    if (s1 !=3D s2)                                                       \
      abort ();                                                         \
    if ((__builtin_isnan (A) !=3D 0) !=3D (__builtin_isnan (B) !=3D 0))    =
   \
      abort ();                                                         \
    if ((A !=3D B) !=3D (__builtin_isnan (A) !=3D 0))                      =
   \
      abort ();                                                         \
  } while (0)

void
comparel (long double a, long double b)
{
  COMPARE_BODY (a, b, long double, __builtin_copysignl);
}

void
comparecl (_Complex long double a, long double r, long double i)
{
  comparel (__real__ a, r);
  comparel (__imag__ a, i);
}

#define VERIFY(A, B, TYPE, COMPARE)                     \
  do {                                                  \
    TYPE a =3D A;                                         \
    TYPE b =3D B;                                         \
    _Complex TYPE cr =3D __builtin_complex (a, b);        \
    static _Complex TYPE cs =3D __builtin_complex (A, B); \
    COMPARE (cr, A, B);                                 \
    COMPARE (cs, A, B);                                 \
  } while (0)

#define ALL_CHECKS(PZ, NZ, NAN, INF, TYPE, COMPARE)     \
  do {                                                  \
    VERIFY (NAN, NZ, TYPE, COMPARE);                    \
    VERIFY (INF, NZ, TYPE, COMPARE);                    \
    VERIFY (INF, NAN, TYPE, COMPARE);                   \
    VERIFY (INF, INF, TYPE, COMPARE);                   \
  } while (0)

void
check_long_double (void)
{
  ALL_CHECKS (0.0l, -0.0l, __builtin_nanl(""), __builtin_infl(), long doubl=
e,
comparecl);
}=