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