1! { dg-do compile } 2! PR fortran/25101 -- Stride must be nonzero. 3program forall_2 4 integer :: a(10),j(2),i 5 forall(i=1:2:0) ! { dg-error "stride expression at" } 6 a(i)=1 7 end forall 8end program forall_2 9 10