From: Sam James <sam@gentoo.org>
Date: Thu, 26 Sep 2024 14:43:33 +0000 (+0100)
Subject: testsuite: XFAIL gfortran.dg/initialization_25.f90 properly
X-Git-Tag: basepoints/gcc-16~5654
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=819098dc71f2079aedc15a904ab5f17f0788d991;p=thirdparty%2Fgcc.git

testsuite: XFAIL gfortran.dg/initialization_25.f90 properly

The test was disabled/XFAIL'd informally in r0-100012-gcdc6637d7c78ec,
but r15-3890-g34bf6aa41ba539 didn't realize this, causing a FAIL.

Fix that by marking it as XFAIL per the original intent.

gcc/testsuite/ChangeLog:
	PR fortran/35779
	PR fortran/116858

	* gfortran.dg/initialization_25.f90: Mark as XFAIL.
---

diff --git a/gcc/testsuite/gfortran.dg/initialization_25.f90 b/gcc/testsuite/gfortran.dg/initialization_25.f90
index c8edb163be0..cae3bbd27d5 100644
--- a/gcc/testsuite/gfortran.dg/initialization_25.f90
+++ b/gcc/testsuite/gfortran.dg/initialization_25.f90
@@ -5,8 +5,8 @@
 ! Dick Hendrickson <dick DOT hendrickson AT gmail DOT com>
 !
 ! Initial patch was reverted as it broke nested loops (see initialization_26.f90).
-!
+! XFAIL is for PR35779
 
 !   INTEGER :: J1
-!   INTEGER,PARAMETER :: I2(10) = (/(J1,J1=its_bad,1,-1)/) ! { dg-error "does not reduce" }
+!   INTEGER,PARAMETER :: I2(10) = (/(J1,J1=its_bad,1,-1)/) ! { dg-error "does not reduce" { xfail *-*-* } }
 END