1! { dg-do run }
2! PR fortran/29458 - spurious warning for implied do-loop counter
3
4  integer :: n, i
5  i = 10
6  n = 5
7  n = SUM((/(i,i=1,n)/))
8
9  ! 'i' must not be changed
10  IF (i /= 10) CALL abort()
11END
12