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 11 DO i=1,100 12 CALL do_something() 13 ENDDO 14CONTAINS 15 SUBROUTINE do_something() 16 IMPLICIT NONE 17 DO i=1,10 18 ENDDO 19 END SUBROUTINE do_something 20END PROGRAM test 21! { dg-output "Fortran runtime error: Loop variable has been modified" } 22