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