1! { dg-do run }
2! { dg-options "-fcheck=do" }
3! { dg-shouldfail "DO check" }
4!
5! PR fortran/34656
6! Run-time check for modifing loop variables
7!
8program test
9  implicit none
10  integer :: i,j
11  do i = 1, 10
12    call modLoopVar(i)
13  end do
14contains
15  subroutine modLoopVar(i)
16    integer :: i
17    i = i + 1
18  end subroutine modLoopVar
19end program test
20! { dg-output "Fortran runtime error: Loop variable has been modified" }
21