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