From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 4DEC43857C4A; Wed, 28 Sep 2022 15:33:02 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 4DEC43857C4A DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1664379182; bh=OuRLhZEPd5l4QNb83yATWFSse4CYHe+8fC3IC/liOg8=; h=From:To:Subject:Date:In-Reply-To:References:From; b=DromsTHIDATfUqmVuGSs66QPnK7Immiwl4P5TDgOCWv589GRjt7XXamx2041Iebw1 GCoeZhbL+If97dFOEKDsQRqFrSdSG7XHn1+aTcSAnoBwgytA6fdNuyVaTT14w251pH WQWsvbkEpce+iXeMgFmFcSajmNdy2RKCSQcEfkAg= From: "fxcoudert at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/107062] [13 regression] gfortran.dg/ieee/fma_1.f90 fails after r13-2577-g7c4c65d11469d2 Date: Wed, 28 Sep 2022 15:33:02 +0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Version: 13.0 X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: fxcoudert at gcc dot gnu.org X-Bugzilla-Status: ASSIGNED X-Bugzilla-Resolution: X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: fxcoudert at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: Message-ID: In-Reply-To: References: 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 List-Id: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D107062 --- Comment #3 from Francois-Xavier Coudert = --- Hum, that one test for FMA is really unreliable. I think I need to remove it altogether, it fails on x86 as well for float and double, if it also fails = on powerpc for long double, then let's get rid of it. Can you confirm that the test pass if you apply the patch below? That will = make sure there is no failure further down the test. diff --git a/gcc/testsuite/gfortran.dg/ieee/fma_1.f90 b/gcc/testsuite/gfortran.dg/ieee/fma_1.f90 index 34636426c98..320c73a0c3c 100644 --- a/gcc/testsuite/gfortran.dg/ieee/fma_1.f90 +++ b/gcc/testsuite/gfortran.dg/ieee/fma_1.f90 @@ -38,7 +38,6 @@ print *, sx1 * sx2 + sx3 print *, ieee_fma(sx1, sx2, sx3) if (ieee_fma(sx1, sx2, sx3) /=3D real(3, kind(sx1)) / 2) stop 4 - !if (ieee_fma(sx1, sx2, sx3) =3D=3D sx1 * sx2 + sx3) stop 5 ! Double @@ -57,7 +56,6 @@ print *, dx1 * dx2 + dx3 print *, ieee_fma(dx1, dx2, dx3) if (ieee_fma(dx1, dx2, dx3) /=3D real(3, kind(dx1)) / 2) stop 4 - !if (ieee_fma(dx1, dx2, dx3) =3D=3D dx1 * dx2 + dx3) stop 5 ! Large kind 1 @@ -76,7 +74,6 @@ print *, lx1 * lx2 + lx3 print *, ieee_fma(lx1, lx2, lx3) if (ieee_fma(lx1, lx2, lx3) /=3D real(3, kind(lx1)) / 2) stop 4 - if (ieee_fma(lx1, lx2, lx3) =3D=3D lx1 * lx2 + lx3) stop 5 ! Large kind 2 @@ -95,6 +92,5 @@ print *, wx1 * wx2 + wx3 print *, ieee_fma(wx1, wx2, wx3) if (ieee_fma(wx1, wx2, wx3) /=3D real(3, kind(wx1)) / 2) stop 4 - if (ieee_fma(wx1, wx2, wx3) =3D=3D wx1 * wx2 + wx3) stop 5 end=