From: Harald Anlauf <anlauf@gmx.de>
Date: Tue, 27 Feb 2024 20:51:53 +0000 (+0100)
Subject: Fortran testsuite: fix invalid Fortran in testcase
X-Git-Tag: basepoints/gcc-15~919
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=95f012ef4a72eb50f05ad909fa10655f4cb8cbd3;p=thirdparty%2Fgcc.git

Fortran testsuite: fix invalid Fortran in testcase

gcc/testsuite/ChangeLog:

	* gfortran.dg/pr101026.f: Let variables used in specification
	expression be passed as dummy arguments
---

diff --git a/gcc/testsuite/gfortran.dg/pr101026.f b/gcc/testsuite/gfortran.dg/pr101026.f
index 9576d8802ca6..e05e21c898a5 100644
--- a/gcc/testsuite/gfortran.dg/pr101026.f
+++ b/gcc/testsuite/gfortran.dg/pr101026.f
@@ -1,6 +1,6 @@
 ! { dg-do compile }
 ! { dg-options "-Ofast -frounding-math" }
-      SUBROUTINE PASSB4 (CC,CH)
+      SUBROUTINE PASSB4 (CC,CH,IDO,L1)
       DIMENSION CC(IDO,4,L1), CH(IDO,L1,*)
          DO 103 I=2,IDO,2
             TI4 = CC0-CC(I,4,K)