gcc/testsuite/gfortran.dg/implied_do_1.f90


1
2
3
4
5
6
7
8
9
10
11

! { dg-do run }
! PR fortran/29458 - spurious warning for implied do-loop counter

  integer :: n, i
  i = 10
  n = 5
  n = SUM((/(i,i=1,n)/))

  ! 'i' must not be changed
  IF (i /= 10) CALL abort()
END