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:
parent
80c386cb20
commit
95f012ef4a
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue