diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2024-02-27 21:51:53 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2024-02-28 19:19:14 +0100 |
| commit | 95f012ef4a72eb50f05ad909fa10655f4cb8cbd3 (patch) | |
| tree | 69714084b2646683e5a3de18a6219b9b029e42da | |
| parent | 80c386cb20d38ebc55f30a79418fabfbed904b87 (diff) | |
| download | gcc-95f012ef4a72eb50f05ad909fa10655f4cb8cbd3.zip gcc-95f012ef4a72eb50f05ad909fa10655f4cb8cbd3.tar.gz gcc-95f012ef4a72eb50f05ad909fa10655f4cb8cbd3.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr101026.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr101026.f b/gcc/testsuite/gfortran.dg/pr101026.f index 9576d88..e05e21c 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) |