diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2022-12-02 22:30:16 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2022-12-02 22:34:38 +0100 |
| commit | 36a4ee406b95ae24a59b8b3f8ebe29af6fd5261e (patch) | |
| tree | 767e5c6ccda437c1cbb5ae7ac9a62b1492170b9b /gcc | |
| parent | e24fe1283ca1c4d22dc3cf29c26d7b705fb0a568 (diff) | |
| download | gcc-36a4ee406b95ae24a59b8b3f8ebe29af6fd5261e.zip gcc-36a4ee406b95ae24a59b8b3f8ebe29af6fd5261e.tar.gz gcc-36a4ee406b95ae24a59b8b3f8ebe29af6fd5261e.tar.bz2 | |
Fortran: intrinsic MERGE shall use all its arguments [PR107874]
gcc/testsuite/ChangeLog:
PR fortran/107874
* gfortran.dg/merge_1.f90: Avoid recursive I/O.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/merge_1.f90 | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/merge_1.f90 b/gcc/testsuite/gfortran.dg/merge_1.f90 index abbc227..437b13a 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() |