! { dg-do run } | |
! These used to segfault. | |
program main | |
real, dimension(1,0) :: a, b, c | |
integer, dimension(0) :: j | |
a = 0 | |
c = 0 | |
b = cshift (a,1) | |
b = cshift (a,j) | |
b = eoshift (a,1) | |
b = eoshift (a,1,boundary=c(1,:)) | |
b = eoshift (a, j, boundary=c(1,:)) | |
end program main |