1! { dg-do run }
2! These used to segfault.
3program main
4  real, dimension(1,0) :: a, b, c
5  integer, dimension(0) :: j
6  a = 0
7  c = 0
8  b = cshift (a,1)
9  b = cshift (a,j)
10  b = eoshift (a,1)
11  b = eoshift (a,1,boundary=c(1,:))
12  b = eoshift (a, j, boundary=c(1,:))
13end program main
14