diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/initialization_25.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/initialization_25.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/initialization_25.f90 b/gcc/testsuite/gfortran.dg/initialization_25.f90 new file mode 100644 index 000000000..66c447e2f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/initialization_25.f90 @@ -0,0 +1,12 @@ +! { dg-do compile } +! +! PR fortran/35779 - unrelated error message +! Tescase contributed by +! Dick Hendrickson <dick DOT hendrickson AT gmail DOT com> +! +! Initial patch was reverted as it broke nested loops (see initialization_26.f90). +! + +! INTEGER :: J1 +! INTEGER,PARAMETER :: I2(10) = (/(J1,J1=its_bad,1,-1)/) ! { dg - error "does not reduce" } +END |