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