1! { dg-do compile }
2subroutine foo ()
3   real(4), allocatable, save :: tmp (:, :)
4   real(4), pointer, save :: arr (:, :, :)
5   integer :: l, m, n
6   tmp = (cshift(cshift(arr (:,:,l),m,2),n,1))
7end subroutine foo
8