1! { dg-do compile } 2! PR 50130 - this caused an ICE. Test case supplied by Joost 3! VandeVondele. 4integer, parameter :: a(10)=0 5integer, parameter :: b(10)=a(1:10:0) ! { dg-error "Illegal stride of zero" } 6END 7 8