From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-wr1-x432.google.com (mail-wr1-x432.google.com [IPv6:2a00:1450:4864:20::432]) by sourceware.org (Postfix) with ESMTPS id 9492C3858D38 for ; Mon, 3 Oct 2022 07:39:11 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 9492C3858D38 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com Received: by mail-wr1-x432.google.com with SMTP id w18so6642235wro.7 for ; Mon, 03 Oct 2022 00:39:11 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=to:date:message-id:subject:mime-version:from:from:to:cc:subject :date; bh=1Mp6V8fD7BKJv3vcjayWCknr0Bh9AgvlzxWwHeJXmgM=; b=hcCZhl9zbms0mBWtuJkeMvsiQJzEnpPwaqoF0bTg0vI2PfRoprBczDP5JQahHzJKLr us1Tul5AgEirkqex5DTsnoeTuq4Xto1t/LNDM2aeEYK3PkL2GSlBpXD4N4qka54WjAx/ 7PPDjyk5f4LwQy1J60j6dZHuZX2RCtTyhPqrnDAL105ybEISYMMxOl5IzEevsAh57l58 nT8GN26SyuI1v2xMpEtFPfEXvPEzHy/9ewQG6bVPQlXXwUjoaoMwj7uvsxLXJ8r0ESuK r6Cpoa2PsMpt1f8SKvBiJ+uDCv7C5ReRyayWD68StKoLP9hGEaAry2/Iz2vvl0uAkULW syyA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=to:date:message-id:subject:mime-version:from:x-gm-message-state :from:to:cc:subject:date; bh=1Mp6V8fD7BKJv3vcjayWCknr0Bh9AgvlzxWwHeJXmgM=; b=BtdzGCEo/doJQ9tSgj8DXTpWtpd24JSdGcDN74abMnopwupVvGfKfPHZ2P0mAJGwEB IOhtfFhywAhzAuG8tukQWqt3RIhw+mAAM0oppp5ykiIVTJLbg6kaVfQKQ9ErmWFjXbbf mOyv30Bbs2adcOINpYUv4b7YkFMvgxGxNbRy/1/Q+A2vh1BeIj6ljvf/wfqusYYTwCoE PudMEa2HRR3GYV20Qz+fEzVGx4ZFn/nuG+CCQOL/72luRcpA0PGydmsQfXPMcGl+9Ouu JtQxEON1j4U7HHeqgnOIGC28VWJ6UGUDvFZlxAPYYV4JJb7Clej2GaZfAIlqfhI/VSIB mC3A== X-Gm-Message-State: ACrzQf2cZkY+dLnBi07/ButG8uDoScOFP0jAnofbrPD6q94jEAEaqPr+ Q5lh++hkhaDNsqrW+cTEhq2S1OKgKa4= X-Google-Smtp-Source: AMsMyM6YkZUiRNA5yZUzk78PM3ith5hxMI4GVCLu9d9/N39sef0q7oPtgkI+vMyNkL6wMSWglkIq+g== X-Received: by 2002:adf:f709:0:b0:22e:327d:f147 with SMTP id r9-20020adff709000000b0022e327df147mr4701417wrp.240.1664782749318; Mon, 03 Oct 2022 00:39:09 -0700 (PDT) Received: from smtpclient.apple ([2a01:e34:ec28:8cb0:4100:c3cb:7b3d:a8c7]) by smtp.gmail.com with ESMTPSA id l17-20020a05600c4f1100b003b4ff30e566sm23806543wmq.3.2022.10.03.00.39.07 for (version=TLS1_2 cipher=ECDHE-ECDSA-AES128-GCM-SHA256 bits=128/128); Mon, 03 Oct 2022 00:39:08 -0700 (PDT) From: FX Content-Type: multipart/mixed; boundary="Apple-Mail=_74333A53-374F-4E48-9EF6-AB0CF5DEF0FD" Mime-Version: 1.0 (Mac OS X Mail 16.0 \(3696.120.41.1.1\)) Subject: [committed] Fix FMA test case Message-Id: <7E31370F-4100-4A32-8F05-055E8569D106@gmail.com> Date: Mon, 3 Oct 2022 09:39:07 +0200 To: Fortran X-Mailer: Apple Mail (2.3696.120.41.1.1) X-Spam-Status: No, score=-1.7 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,KAM_SHORT,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,SPF_PASS,TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: --Apple-Mail=_74333A53-374F-4E48-9EF6-AB0CF5DEF0FD Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 I=E2=80=99ve committed the attached patch as obvious, relaxing the = IEEE_FMA tests to remove some floating-point equality tests that failed = on various targets (powerpc in this case): = https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D107062 = https://gcc.gnu.org/git/?p=3Dgcc.git;a=3Dcommit;h=3D31d7c8bc2630e1b5a35ccc= e97ac862c4920ba582 FX --Apple-Mail=_74333A53-374F-4E48-9EF6-AB0CF5DEF0FD Content-Disposition: attachment; filename=0001-Fortran-fix-testcases.patch Content-Type: application/octet-stream; x-unix-mode=0644; name="0001-Fortran-fix-testcases.patch" Content-Transfer-Encoding: quoted-printable =46rom=2031d7c8bc2630e1b5a35ccce97ac862c4920ba582=20Mon=20Sep=2017=20= 00:00:00=202001=0AFrom:=20Francois-Xavier=20Coudert=20= =0ADate:=20Mon,=203=20Oct=202022=2009:24:10=20+0200=0A= Subject:=20[PATCH]=20Fortran:=20fix=20testcases=0A=0ARemove=20unreliable=20= test=20for=20IEEE_FMA(),=20which=20fails=20on=20powerpc.=0AAdjust=20stop=20= codes=20for=20modes_1.f90.=0A=0A2022-10-03=20=20Francois-Xavier=20= Coudert=20=20=0A=0Agcc/testsuite/=0A=0A=09PR=20= fortran/107062=0A=09*=20gfortran.dg/ieee/fma_1.f90:=20Fix=20test.=0A=09*=20= gfortran.dg/ieee/modes_1.f90:=20Fix=20test.=0A---=0A=20= gcc/testsuite/gfortran.dg/ieee/fma_1.f90=20=20=20|=204=20----=0A=20= gcc/testsuite/gfortran.dg/ieee/modes_1.f90=20|=206=20+++---=0A=202=20= files=20changed,=203=20insertions(+),=207=20deletions(-)=0A=0Adiff=20= --git=20a/gcc/testsuite/gfortran.dg/ieee/fma_1.f90=20= b/gcc/testsuite/gfortran.dg/ieee/fma_1.f90=0Aindex=20= 34636426c98..320c73a0c3c=20100644=0A---=20= a/gcc/testsuite/gfortran.dg/ieee/fma_1.f90=0A+++=20= b/gcc/testsuite/gfortran.dg/ieee/fma_1.f90=0A@@=20-38,7=20+38,6=20@@=0A=20= =20=20print=20*,=20sx1=20*=20sx2=20+=20sx3=0A=20=20=20print=20*,=20= ieee_fma(sx1,=20sx2,=20sx3)=0A=20=20=20if=20(ieee_fma(sx1,=20sx2,=20sx3)=20= /=3D=20real(3,=20kind(sx1))=20/=202)=20stop=204=0A-=20=20!if=20= (ieee_fma(sx1,=20sx2,=20sx3)=20=3D=3D=20sx1=20*=20sx2=20+=20sx3)=20stop=20= 5=0A=20=0A=20=20=20!=20Double=0A=20=0A@@=20-57,7=20+56,6=20@@=0A=20=20=20= print=20*,=20dx1=20*=20dx2=20+=20dx3=0A=20=20=20print=20*,=20= ieee_fma(dx1,=20dx2,=20dx3)=0A=20=20=20if=20(ieee_fma(dx1,=20dx2,=20dx3)=20= /=3D=20real(3,=20kind(dx1))=20/=202)=20stop=204=0A-=20=20!if=20= (ieee_fma(dx1,=20dx2,=20dx3)=20=3D=3D=20dx1=20*=20dx2=20+=20dx3)=20stop=20= 5=0A=20=0A=20=20=20!=20Large=20kind=201=0A=20=0A@@=20-76,7=20+74,6=20@@=0A= =20=20=20print=20*,=20lx1=20*=20lx2=20+=20lx3=0A=20=20=20print=20*,=20= ieee_fma(lx1,=20lx2,=20lx3)=0A=20=20=20if=20(ieee_fma(lx1,=20lx2,=20lx3)=20= /=3D=20real(3,=20kind(lx1))=20/=202)=20stop=204=0A-=20=20if=20= (ieee_fma(lx1,=20lx2,=20lx3)=20=3D=3D=20lx1=20*=20lx2=20+=20lx3)=20stop=20= 5=0A=20=0A=20=20=20!=20Large=20kind=202=0A=20=0A@@=20-95,6=20+92,5=20@@=0A= =20=20=20print=20*,=20wx1=20*=20wx2=20+=20wx3=0A=20=20=20print=20*,=20= ieee_fma(wx1,=20wx2,=20wx3)=0A=20=20=20if=20(ieee_fma(wx1,=20wx2,=20wx3)=20= /=3D=20real(3,=20kind(wx1))=20/=202)=20stop=204=0A-=20=20if=20= (ieee_fma(wx1,=20wx2,=20wx3)=20=3D=3D=20wx1=20*=20wx2=20+=20wx3)=20stop=20= 5=0A=20=0A=20end=0Adiff=20--git=20= a/gcc/testsuite/gfortran.dg/ieee/modes_1.f90=20= b/gcc/testsuite/gfortran.dg/ieee/modes_1.f90=0Aindex=20= b6ab28847f7..205c47f3800=20100644=0A---=20= a/gcc/testsuite/gfortran.dg/ieee/modes_1.f90=0A+++=20= b/gcc/testsuite/gfortran.dg/ieee/modes_1.f90=0A@@=20-81,15=20+81,15=20@@=20= program=20foo=0A=20=20=20!=20Check=20again=0A=20=20=20if=20= (ieee_support_underflow_control())=20then=0A=20=20=20=20=20call=20= ieee_get_underflow_mode(f)=0A-=20=20=20=20if=20(.not.=20f)=20stop=203=0A= +=20=20=20=20if=20(.not.=20f)=20stop=204=0A=20=20=20endif=0A=20=20=20if=20= (ieee_support_rounding(ieee_down))=20then=0A=20=20=20=20=20call=20= ieee_get_rounding_mode(rmode)=0A-=20=20=20=20if=20(rmode=20/=3D=20= ieee_down)=20stop=204=0A+=20=20=20=20if=20(rmode=20/=3D=20ieee_down)=20= stop=205=0A=20=20=20endif=0A=20=20=20if=20= (ieee_support_halting(ieee_overflow))=20then=0A=20=20=20=20=20call=20= ieee_get_halting_mode(ieee_overflow,=20f)=0A-=20=20=20=20if=20(f)=20stop=20= 5=0A+=20=20=20=20if=20(f)=20stop=206=0A=20=20=20endif=0A=20=0A=20end=20= program=20foo=0A--=20=0A2.37.0=20(Apple=20Git-136)=0A=0A= --Apple-Mail=_74333A53-374F-4E48-9EF6-AB0CF5DEF0FD--