From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 2071) id 692843858C52; Fri, 2 Dec 2022 21:35:13 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 692843858C52 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1670016913; bh=y29FgTHP06Q+5Owxs14t4EzwX8RRFeEd69kHgAlypqU=; h=From:To:Subject:Date:From; b=sHhpp7LWtFWr/Aic5StGKuP/h1YjqRd6RgbJgi4GFq+rmmGrwZIE1qrbF6uaH4rnv HH1dPetnqbmX2mtB51libDE78y2ScwC+uIimP6b7Gw/2q2JecCqreHkooBvUwOXaI3 +m9g905P34WGPSgiO7p9wNXL0pAX4WETGDSVEgUs= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Harald Anlauf To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-4473] Fortran: intrinsic MERGE shall use all its arguments [PR107874] X-Act-Checkin: gcc X-Git-Author: Harald Anlauf X-Git-Refname: refs/heads/master X-Git-Oldrev: e24fe1283ca1c4d22dc3cf29c26d7b705fb0a568 X-Git-Newrev: 36a4ee406b95ae24a59b8b3f8ebe29af6fd5261e Message-Id: <20221202213513.692843858C52@sourceware.org> Date: Fri, 2 Dec 2022 21:35:13 +0000 (GMT) List-Id: https://gcc.gnu.org/g:36a4ee406b95ae24a59b8b3f8ebe29af6fd5261e commit r13-4473-g36a4ee406b95ae24a59b8b3f8ebe29af6fd5261e Author: Harald Anlauf Date: Fri Dec 2 22:30:16 2022 +0100 Fortran: intrinsic MERGE shall use all its arguments [PR107874] gcc/testsuite/ChangeLog: PR fortran/107874 * gfortran.dg/merge_1.f90: Avoid recursive I/O. Diff: --- gcc/testsuite/gfortran.dg/merge_1.f90 | 22 +++++++++++++++------- 1 file changed, 15 insertions(+), 7 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/merge_1.f90 b/gcc/testsuite/gfortran.dg/merge_1.f90 index abbc2276b1c..437b13a8d3f 100644 --- a/gcc/testsuite/gfortran.dg/merge_1.f90 +++ b/gcc/testsuite/gfortran.dg/merge_1.f90 @@ -7,32 +7,40 @@ program testmerge9 integer :: i logical :: x(2) = (/.true., .false./) logical :: called(2) + logical :: y ! At run-time all arguments shall be evaluated do i = 1,2 called = .false. - print *, merge (tstuff(), fstuff(), x(i)) + y = merge (tstuff(), fstuff(), x(i)) + print *, y if (any (.not. called)) stop 1 end do ! Compile-time simplification shall not drop non-constant args called = .false. - print *, merge (tstuff(),fstuff(),.true.) + y = merge (tstuff(),fstuff(),.true.) + print *, y if (any (.not. called)) stop 2 called = .false. - print *, merge (tstuff(),fstuff(),.false.) + y = merge (tstuff(),fstuff(),.false.) + print *, y if (any (.not. called)) stop 3 called = .false. - print *, merge (tstuff(),.false.,.true.) + y = merge (tstuff(),.false.,.true.) + print *, y if (any (called .neqv. [.true.,.false.])) stop 4 called = .false. - print *, merge (tstuff(),.false.,.false.) + y = merge (tstuff(),.false.,.false.) + print *, y if (any (called .neqv. [.true.,.false.])) stop 5 called = .false. - print *, merge (.true.,fstuff(),.true.) + y = merge (.true.,fstuff(),.true.) + print *, y if (any (called .neqv. [.false.,.true.])) stop 6 called = .false. - print *, merge (.true.,fstuff(),.false.) + y = merge (.true.,fstuff(),.false.) + print *, y if (any (called .neqv. [.false.,.true.])) stop 7 contains logical function tstuff()