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" } 12END 13