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