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
   9 module x
  10   integer :: i
  11 contains
  12   SUBROUTINE do_something()
  13     IMPLICIT NONE
  14     DO i=1,10
  15     ENDDO
  16   END SUBROUTINE do_something
  17 end module x
  18
  19 PROGRAM test
  20   use x
  21   IMPLICIT NONE
  22   DO i=1,100
  23      CALL do_something()
  24   ENDDO
  25 end PROGRAM test
  26
  27 ! { dg-output "Fortran runtime error: Loop variable has been modified" }