gcc/testsuite/gfortran.dg/initialization_25.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/35779 - unrelated error message
   4 ! Tescase contributed by
   5 ! Dick Hendrickson <dick DOT hendrickson AT gmail DOT com>
   6 !
   7 ! Initial patch was reverted as it broke nested loops (see initialization_26.f90).
   8 !
   9
  10 !   INTEGER :: J1
  11 !   INTEGER,PARAMETER :: I2(10) = (/(J1,J1=its_bad,1,-1)/) ! { dg - error "does not reduce" }
  12 END