1! { dg-do compile } 2! { dg-options "-std=legacy" } 3! PR 91550 - this used to cause an ICE 4! Test case by Gerhard Steinmetz 5program p 6 real :: a(3) 7 integer :: i 8 do i = 1, 3, .1 ! { dg-error "cannot be zero" } 9 a(i) = i 10 end do 11end 12