| ! { dg-do run } |
| program main |
| implicit none |
| integer :: i |
| integer, parameter, dimension(3,3) :: a = & |
| reshape([1,2,3,4,5,6,7,8,9], shape(a)) |
| integer, dimension(3,3) :: b |
| integer, parameter, dimension(3,4,5) :: c = & |
| reshape([(i**2,i=1,3*4*5)],shape(c)) |
| integer, dimension(3,4,5) :: d |
| integer, dimension(4,5), parameter :: sh1 =& |
| reshape([(i**3-12*i**2,i=1,4*5)],shape(sh1)) |
| integer, dimension(3,5), parameter :: sh2 = & |
| reshape([(i**3-7*i**2,i=1,3*5)], shape(sh2)) |
| integer, dimension(3,4), parameter :: sh3 = & |
| reshape([(i**3-3*i**2,i=1,3*4)], shape(sh3)) |
| integer, parameter, dimension(3,4,5) :: c1 = cshift(c,shift=sh1,dim=1) |
| integer, parameter, dimension(3,4,5) :: c2 = cshift(c,shift=sh2,dim=2) |
| integer, parameter, dimension(3,4,5) :: c3 = cshift(c,shift=sh3,dim=3) |
| |
| b = a |
| if (any(cshift(a,1) /= cshift(b,1))) STOP 1 |
| if (any(cshift(a,2) /= cshift(b,2))) STOP 2 |
| if (any(cshift(a,1,dim=2) /= cshift(b,1,dim=2))) STOP 3 |
| d = c |
| if (any(cshift(c,1) /= cshift(d,1))) STOP 4 |
| if (any(cshift(c,2) /= cshift(d,2))) STOP 5 |
| if (any(cshift(c,3) /= cshift(d,3))) STOP 6 |
| |
| if (any(cshift(c,1,dim=2) /= cshift(d,1,dim=2))) STOP 7 |
| if (any(cshift(c,2,dim=2) /= cshift(d,2,dim=2))) STOP 8 |
| if (any(cshift(c,3,dim=3) /= cshift(d,3,dim=3))) STOP 9 |
| |
| if (any(cshift(d,shift=sh1,dim=1) /= c1)) STOP 10 |
| if (any(cshift(d,shift=sh2,dim=2) /= c2)) STOP 11 |
| if (any(cshift(d,shift=sh3,dim=3) /= c3)) STOP 12 |
| end program main |
