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
This commit is contained in:
Harald Anlauf 2024-02-27 21:51:53 +01:00
parent 80c386cb20
commit 95f012ef4a

View file

@ -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)