gcc/testsuite/gfortran.dg/do_check_2.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,j
  11   do i = 1, 10
  12     call modLoopVar(i)
  13   end do
  14 contains
  15   subroutine modLoopVar(i)
  16     integer :: i
  17     i = i + 1
  18   end subroutine modLoopVar
  19 end program test
  20 ! { dg-output "Fortran runtime error: Loop variable has been modified" }