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! 8 9module x 10 integer :: i 11contains 12 SUBROUTINE do_something() 13 IMPLICIT NONE 14 DO i=1,10 15 ENDDO 16 END SUBROUTINE do_something 17end module x 18 19PROGRAM test 20 use x 21 IMPLICIT NONE 22 DO i=1,100 23 CALL do_something() 24 ENDDO 25end PROGRAM test 26 27! { dg-output "Fortran runtime error: Loop variable has been modified" } 28