gcc/testsuite/gfortran.dg/do_check_1.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 zero STEP
   7 !
   8 program test
   9   implicit none
  10   integer :: i,j
  11   j = 0
  12   do i = 1, 40, j
  13     print *, i
  14   end do
  15 end program test
  16 ! { dg-output "Fortran runtime error: DO step value is zero" }