! { dg-do run } ! ! PR fortran/44354 ! array constructors were giving unexpected results when the ac-implied-do ! variable was used in one of the ac-implied-do bounds. ! ! Original testcase by Vittorio Zecca ! I=5 if (any((/(i,i=1,I)/) /= (/1,2,3,4,5/))) call abort ! { dg-warning "final expression references control variable" } if (I /= 5) call abort end