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