gcc/testsuite/gfortran.dg/implied_do_1.f90

   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()
  11 END