1! { dg-do run } 2! 3! PR fortran/44354 4! array constructors were giving unexpected results when the ac-implied-do 5! variable was used in one of the ac-implied-do bounds. 6! 7! Original testcase by Vittorio Zecca <zeccav@gmail.com> 8! 9 I=5 10 if (any((/(i,i=1,I)/) /= (/1,2,3,4,5/))) STOP 1! { dg-warning "final expression references control variable" } 11 if (I /= 5) STOP 2 12 end 13 14