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