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