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 real :: i, j, k 11 j = 10.0 12 k = 1.0 13 do i = 1.0, j, k ! { dg-warning "must be integer" } 14 call modLoopVar(i) 15 end do 16contains 17 subroutine modLoopVar(x) 18 real :: x 19 x = x + 1 20 end subroutine modLoopVar 21end program test 22! { dg-output "Fortran runtime error: Loop variable has been modified" } 23