gcc/testsuite/gfortran.dg/do_check_4.f90

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