1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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/))
b = eoshift (a,1,boundary=c(1,:))
b = eoshift (a, j, boundary=c(1,:))
end program main
|