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