From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1665) id C1FE63858D32; Mon, 3 Oct 2022 07:29:12 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org C1FE63858D32 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1664782152; bh=A9wHhXglw0LdO/1h2WBnuQHFTBVtIYGIRlJppt6Cm5Y=; h=From:To:Subject:Date:From; b=v3qEj6RcyHJUdb/QKRWU9ng4D7SZ2OgYTPcUm8/BuJh1yXtNNg+dLarszUMgjNNi1 wNd4tFisDUdMsdczN8DkstkPrkbMAisYepZs2YjIRu5rdp1rpPGmhww9Eg7d+7rONT KXwI2gp8ZerfyfnbTyzQ32FQyB66uisxpr9kqE9Y= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: =?utf-8?q?Fran=E0=A4=A5=E0=A4=88ois-Xavier_Coudert?= To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-3023] Fortran: fix testcases X-Act-Checkin: gcc X-Git-Author: Francois-Xavier Coudert X-Git-Refname: refs/heads/master X-Git-Oldrev: 4347fea9c28b6dc5997ef8b87e49867a071967ea X-Git-Newrev: 31d7c8bc2630e1b5a35ccce97ac862c4920ba582 Message-Id: <20221003072912.C1FE63858D32@sourceware.org> Date: Mon, 3 Oct 2022 07:29:12 +0000 (GMT) List-Id: https://gcc.gnu.org/g:31d7c8bc2630e1b5a35ccce97ac862c4920ba582 commit r13-3023-g31d7c8bc2630e1b5a35ccce97ac862c4920ba582 Author: Francois-Xavier Coudert Date: Mon Oct 3 09:24:10 2022 +0200 Fortran: fix testcases Remove unreliable test for IEEE_FMA(), which fails on powerpc. Adjust stop codes for modes_1.f90. 2022-10-03 Francois-Xavier Coudert gcc/testsuite/ PR fortran/107062 * gfortran.dg/ieee/fma_1.f90: Fix test. * gfortran.dg/ieee/modes_1.f90: Fix test. Diff: --- gcc/testsuite/gfortran.dg/ieee/fma_1.f90 | 4 ---- gcc/testsuite/gfortran.dg/ieee/modes_1.f90 | 6 +++--- 2 files changed, 3 insertions(+), 7 deletions(-) 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) /= real(3, kind(sx1)) / 2) stop 4 - !if (ieee_fma(sx1, sx2, sx3) == 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) /= real(3, kind(dx1)) / 2) stop 4 - !if (ieee_fma(dx1, dx2, dx3) == 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) /= real(3, kind(lx1)) / 2) stop 4 - if (ieee_fma(lx1, lx2, lx3) == 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) /= real(3, kind(wx1)) / 2) stop 4 - if (ieee_fma(wx1, wx2, wx3) == wx1 * wx2 + wx3) stop 5 end diff --git a/gcc/testsuite/gfortran.dg/ieee/modes_1.f90 b/gcc/testsuite/gfortran.dg/ieee/modes_1.f90 index b6ab28847f7..205c47f3800 100644 --- a/gcc/testsuite/gfortran.dg/ieee/modes_1.f90 +++ b/gcc/testsuite/gfortran.dg/ieee/modes_1.f90 @@ -81,15 +81,15 @@ program foo ! Check again if (ieee_support_underflow_control()) then call ieee_get_underflow_mode(f) - if (.not. f) stop 3 + if (.not. f) stop 4 endif if (ieee_support_rounding(ieee_down)) then call ieee_get_rounding_mode(rmode) - if (rmode /= ieee_down) stop 4 + if (rmode /= ieee_down) stop 5 endif if (ieee_support_halting(ieee_overflow)) then call ieee_get_halting_mode(ieee_overflow, f) - if (f) stop 5 + if (f) stop 6 endif end program foo