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