2 ! { dg-options "-fcheck=do" }
3 ! { dg-shouldfail "DO check" }
6 ! Run-time check for modifing loop variables
13 do i = 1.0, j, k ! { dg-warning "must be integer" }
17 subroutine modLoopVar(x)
20 end subroutine modLoopVar
22 ! { dg-output "Fortran runtime error: Loop variable has been modified" }