| ! { dg-do run } | |
| ! { dg-options "-fcheck=do" } | |
| ! { dg-shouldfail "DO check" } | |
| ! | |
| ! PR fortran/34656 | |
| ! Run-time check for modifing loop variables | |
| ! | |
| PROGRAM test | |
| IMPLICIT NONE | |
| INTEGER :: i | |
| DO i=1,100 | |
| CALL do_something() | |
| ENDDO | |
| CONTAINS | |
| SUBROUTINE do_something() | |
| IMPLICIT NONE | |
| DO i=1,10 | |
| ENDDO | |
| END SUBROUTINE do_something | |
| END PROGRAM test | |
| ! { dg-output "Fortran runtime error: Loop variable has been modified" } |